shelter Postado Abril 26, 2006 Denunciar Share Postado Abril 26, 2006 Aqui galera peguei este codigo lega de um menu suspenso em asp... bem legal, só que não consigo chamar uma pagina pelo nemu ( criar um link no inten )Me ajudemShelter<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, objRS2StrCon = "Data Source=C:\menu.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"Set objCon = Server.CreateObject("ADODB.Connection")objCon.Open StrConComandoSQL = " 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%><tr> <tudo class=estilo1 onMouseOver="this.className='estilo2'; layer_menu_<%=objRS("id")%>.style.display=''" onMouseOut="this.className='estilo1'; layer_menu_<%=objRS("id")%>.style.display='none'"> <span style="width:100%;cursor:hand" onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?categoria=<%=objRS("id")%>','_self')"> <%=objRS("titulo")%> </span><%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> <tudo 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> </tudo> </tr><% objRS2.MoveNext Wend%></table><%End If%></div><%Set objRS2 = Nothing%> </tudo> </tr><% objRS.MoveNext WendEnd If%></table><%objRS.CloseSet objRS = NothingSet ComandoSQL = NothingobjCon.CloseSet objCon = NothingSet StrCon = Nothing%></body></html> ;) Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 shelter Postado Abril 27, 2006 Autor Denunciar Share Postado Abril 27, 2006 galera me ajuda aí vai.....T + obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
shelter
Aqui galera peguei este codigo lega de um menu suspenso em asp... bem legal, só que não consigo chamar uma pagina pelo nemu ( criar um link no inten )
Me ajudem
Shelter
<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:\menu.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open StrCon
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
%>
<tr>
<tudo class=estilo1 onMouseOver="this.className='estilo2'; layer_menu_<%=objRS("id")%>.style.display=''" onMouseOut="this.className='estilo1'; layer_menu_<%=objRS("id")%>.style.display='none'">
<span style="width:100%;cursor:hand" onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?categoria=<%=objRS("id")%>','_self')">
<%=objRS("titulo")%>
</span>
<%
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>
<tudo 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>
</tudo>
</tr>
<%
objRS2.MoveNext
Wend
%>
</table>
<%
End If
%>
</div>
<%
Set objRS2 = Nothing
%>
</tudo>
</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 para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.