Menu, está dificil

[natalia 0]

Oi pessoal, estou com problemas p/ fazer um menu dinâmico. Vou explicar:Eu tenho uma página DEFAULT.ASP, nela contém um include deste arquivo MENU_VERTICAL. Esse menu passa como parametros os codigos da Categoria e Subcategoria. Até aí tudo bem, só que a SUBCATEGORIA.ASP página que recebe esses parametros, eu preciso montar um outro tipo de menu. Ele será a subcategoria da sub.Ex: Eletronicos(categoria) | Portáteis(subcategoria) | Discman(aqui seria a sub da subcategoria). Meu código é esse, só coloquei alguns trechos, o original tem o caminho do BD abre e fecha conexao, etc.'aqui recebe os parametros codigo categoria e subcategoriavarMenuCat = Request.QueryString("CodCat")varMenuSub = Request.QueryString("CodSubcat")strMenuCat = " SELECT Categoria.Codigo_Cat, Categoria.Img_Cat, SubCategoria.Codigo_Subcat "strMenuCat = strMenuCat & " FROM Categoria INNER JOIN SubCategoria "strMenuCat = strMenuCat & " ON Categoria.Codigo_Cat = SubCategoria.Codigo_Cat "strMenuCat = strMenuCat & " WHERE Categoria.Codigo_Cat = " & varMenuCatstrMenuSub = " SELECT SubCategoria.Codigo_Subcat, Seg_SubCat.Codigo_SegSub, Seg_SubCat.Nome_SegSub "strMenuSub = strMenuSub & " FROM SubCategoria INNER JOIN Seg_SubCat "strMenuSub = strMenuSub & " ON SubCategoria.Codigo_Subcat = Seg_SubCat.Codigo_Subcat "strMenuSub = strMenuSub & " WHERE SubCategoria.Codigo_Subcat = " & varMenuSub 'aqui no if não está dando certo.If varMenuCat = rsMenuCat("Codigo_Cat") ThenSet rsMenuCat = Conexao.Execute(strMenuCat) While Not rsMenuCat.EOF <img src="<%=rsMenuCat("Img_Cat")%>">rsMenuCat.MoveNextWendrsMenuCat.closeElseif rsMenuSub = rsMenuSub("Codigo_Subcat") ThenSet rsMenuSub = Conexao.Execute(strMenuSub)While Not rsMenuSub.EOF<%=rsMenuSub("Nome_SegSub")%>rsMenuSub.MoveNextWendrsMenuSub.closeEnd if Erro nesta linha: If varMenuCat = rsMenuCat("Codigo_Cat") ThenErro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveisAlguém poderia me ajudar?

[WLJ 0]

o erro naum é aqui naum?

Elseif rsMenuSub = rsMenuSub("Codigo_Subcat") ThenSet rsMenuSub = Conexao.Execute(strMenuSub)While Not rsMenuSub.EOF<%=rsMenuSub("Nome_SegSub")%>rsMenuSub.MoveNextWendrsMenuSub.closeEnd if

naum seria...

Elseif varMenuSub = rsMenuSub("Codigo_Subcat") Then

Set rsMenuSub = Conexao.Execute(strMenuSub)

While Not rsMenuSub.EOF

<%=rsMenuSub("Nome_SegSub")%>

rsMenuSub.MoveNext

Wend

rsMenuSub.close

End if

[natalia 0]

foi um descuido meu, mas mesmo assim não funcionou, continua com o mesmo problema

[Salgado 4]

varMenuSub e rsMenuSub("Codigo_Subcat") são do mesmo tipo?

Caso varMenuSub seja int use assim:

Elseif varMenuSub = cint(rsMenuSub("Codigo_Subcat")) then

Valeu?

[natalia 0]

Pessoal obrigada pela ajuda, mais ainda não deu.