Eu tenho um menu de um site, aonde a categoria que aparece no menu e as subcategorias vem de uma DB em Access...
Minha DB tem duas tabelas:
Tabela CATEGORIAS >> campos: ID, titulo, link
Tabela SUBCATEGORIAS >> campos: ID, categoria, titulo, link
O erro que está aprecendo é este:
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: 'subcategorias'
/nr/menu/menu2.asp, line 48
Na linha 48 eu tenho isso:
response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?subcategorias="&subcategorias("id")&"','_self')"">"&subcategorias("titulo")&"</span>"' IMPRIME A SUBCATEGORIA
Podem me ajudar neste código que estou tentando montar... O que eu quero é chamar no menu que aparece na página asp para cada opção cadastrada no menu, o link cadastrado para aquela opção...
Veja abaixo código completo da página:
<html> <head> <title>Menu Suspenso</title> <style type="text/css"> .estilo1{ font-family: Arial; font-size: 12px; background: whitesmoke; color: black; } .estilo2{ font-family: Arial; font-size: 12px; background: gray; color: white; } </style> </head> <body> <% Dim StrCon, objCon, ComandoSQL, objRS, objRS2 StrCon = "Data Source=C:\Inetpub\wwwroot\nr\Menu\menu.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open StrCon strSQL = "SELECT titulo.categorias, subcategorias.titulo " strSQL = strSQL & "FROM categorias " strSQL = strSQL & "INNER JOIN subcategorias " strSQL = strSQL & "ON categorias.id = subcategorias.categoria " strSQL = strSQL & "ORDER BY Categorias.titulo, subcategorias.categoria" ComandoSQL = " SELECT * FROM categorias ORDER BY titulo ASC" Set objRS = objCon.Execute(ComandoSQL) %> <table border="1" bordercolor="silver" cellpadding="3" cellspacing="0"> <% If Not objRS.EOF Then While Not objRS.EOF titulo="" while not objrs.eof if objrs("titulo")<>titulo then response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?categoria="&objRS("id")&"','_self')"">"&objRS("titulo")&"</span>"'IMPRIME A CATEGORIA titulo=objrs("titulo")' ALTERA O VALOR DE "TITULO" end if response.write"<span style='width:100%;cursor:hand' onClick=""window.open('"&Request.ServerVariables("SCRIPT_NAME")&"?subcategorias="&subcategorias("id")&"','_self')"">"&subcategorias("titulo")&"</span>"' IMPRIME A SUBCATEGORIA objrs.movenext wend %> <tr> <% ComandoSQL = " SELECT * FROM subcategorias WHERE categoria=" & objRS("id") & " ORDER BY titulo ASC" Set objRS2 = objCon.Execute(ComandoSQL) %> <div id="layer_menu_<%=objRS("id")%>" style="position:absolute; z-index:1; display: none" onMouseOut="this.style.display='none'"> <% If Not objRS2.EOF Then %> <table border="1" bordercolor="silver" cellpadding="3" cellspacing="0"> <% While Not objRS2.EOF %> <tr> <td class=estilo1 onMouseOver="this.className='estilo2'" onMouseOut="this.className='estilo1'"> <span style="width:100%;cursor:hand" onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?categoria=<%=objRS("id")%>&subcategoria=<%=objRS2("id")%>','_self')"> <% Response.Write objRS2("titulo") %> </span> </td> </tr> <% objRS2.MoveNext Wend %> </table> <% End If %> </div> <% Set objRS2 = Nothing %> </td> </tr> <% objRS.MoveNext Wend End If %> </table> <% objRS.Close Set objRS = Nothing Set ComandoSQL = Nothing objCon.Close Set objCon = Nothing Set StrCon = Nothing %> </body> </html>