Jump to content
Fórum Script Brasil
  • 0

Ajuda Com Link Do Menu.


nadia_xidea
 Share

Question

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>

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      151k
    • Total Posts
      649.1k
×
×
  • Create New...