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>
