Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

plock007

Problema menu dinâmico

Por , em ASP Clássico

Recommended Posts

plock007    0

plock007
Postado

Seguinte, criei um menu dinâmico em ASP onde ele tem suas categorias e deslizando o mouse em algumas delas, ele rola outras subcategorias! meu problema é que se você clicar numa categoria onde ele rola as subcategorias, a categoria clicada abre e da página não encontrada! Estou utilizando esse menu para abrir as páginas dentro de um frame <a href="<pagina.asp>" target="main"> Gostaria de uma ajuda para anular esse efeito! Quando clicar numa categoria assim, ele simplesmente não faça nada! alguém sabe como proceder? segue o código! obrigado galera!

 

<html><head><title>Menu CRH</title><link rel="stylesheet" type="text/css" href="estilos/estilo01.css" /></head><body><%Dim StrCon, objCon, ComandoSQL, objRS, objRS2StrCon = "Data Source=C:\Inetpub\wwwroot\intranet\site\recrutamento.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"Set objCon = Server.CreateObject("ADODB.Connection")objCon.Open StrConComandoSQL = " SELECT * FROM categorias ORDER BY id"Set objRS = objCon.Execute(ComandoSQL)%><table border="1" bordercolor="silver" cellpadding="3" cellspacing="0"><%If Not objRS.EOF ThenWhile Not objRS.EOF%><tr><td class=estilo1 onMouseOver="this.className='estilo2'; layer1_menu_<%=objRS("id")%>.style.display=''" onMouseOut="this.className='estilo1'; layer1_menu_<%=objRS("id")%>.style.display='none'"><span style="width:100%;cursor:hand" onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?categoria=<%=objRS("id")%>','_self')"><a href=<%=objRS("html")%> target="centro"><!-- </span> --><%=objRS("titulo")%><%ComandoSQL = " SELECT * FROM subcategorias WHERE categoria=" & objRS("id") & " ORDER BY titulo ASC"Set objRS2 = objCon.Execute(ComandoSQL)%><div id="layer1_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')"><a href=<%=objRS2("url")%> target="centro"><%Response.Write objRS2("titulo")%></span></td></tr><%objRS2.MoveNextWend%></table><%End If%></div><%Set objRS2 = Nothing%></td></tr><%objRS.MoveNextWendEnd If%></table><%objRS.CloseSet objRS = NothingSet ComandoSQL = NothingobjCon.CloseSet objCon = NothingSet StrCon = Nothing%></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

pelo visto a url está sendo montada de forma errada, veja como fica no endereço do browser após clicar

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito