Ir para conteúdo
Fórum Script Brasil
  • 0

Menu


shelter

Pergunta

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...