Ajuda Com Link Do Menu.

nadia_xidea · Dezembro 3, 2006

Oi pessoal, estou precisando da ajuda de vocês...

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>

kuroi · Dezembro 3, 2006

o que era pra ser a variavel subcategorias?? um recordset??

mas ele nem foi criado, muito menos executado, como você pode querer pegar o subcategorias("id")??

acho que o que você quer seria tipo objRS("[subcategorias.id]")

mas pra isso você teria que alterar o select de modo a selecionar td os campos da tabela subcategorias.

Entrar

Ajuda Com Link Do Menu.

Pergunta

nadia_xidea

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

kuroi

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades