mostrar menu em todas as sessões

[joecris]

Olá pessoal,

Gostaria de solicitar a ajuda de vocês para resolver um probleminha. Tenho esse código abaixo que é o menu de um site.

Na 1ª parte do código o menu é apresentado na página principal e quando selecionamos uma sessão abre-se a nova janela

porém o menu apresenta apenas os itens da categoria selecionada. Preciso que o menu permaneça com todas as sessões

independentemente da categoria selecionada.

Na 2ª parte do código é mencionado que essa ação é realizada, mas não sei como fazer o procedimento. Se alguém souber como

fazer e puder me ajudar eu agradeço.

Código:

<link href="topnav.css" rel="stylesheet" type="text/css" />

<link href="layout/stylesheet.css" rel="stylesheet" type="text/css" />

<style type="text/css">

<!--

.style300 {

color: 246384;

font-size: 18px;

}

-->

</style>

<!--#include file="funcoes.asp"-->

<%

set produto = conexao.execute("SELECT * FROM produtos WHERE status <> 'ok' AND estoque='s' order by rand() limit 9 ;")

%>

<%

pagina ="http://"& Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("url")&"?"& request.ServerVariables("QUERY_STRING")

%>

<%set rs = conexao.execute("SELECT * FROM sessoes WHERE id='"&request("id")&"'")%>

<table width="145" border="0" cellpadding="0" cellspacing="0">

<!--DWLayoutTable-->

<tr>

<td width="145" colspan="2" valign="top">

<% if rs("img_se") = "" then %>

<img src="img_se/padrão.gif" width="155">

<% else %>

<img src="img_se/<%=rs("img_se")%>">

<% end if %> </td>

</tr>

<tr>

<td width="145" colspan="2" valign="top" height="5" bgcolor="#f7f7f7"></td>

</tr>

<tr>

<td colspan="2" valign="top" bgcolor="f7f7f7"> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" id="menu">

<!--DWLayoutTable-->

<%

if request("id") = "" then%>

<%

sql = "SELECT * FROM sessoes WHERE ver = 's' ORDER by nome;"

Set sessoes = conexao.Execute(sql)

While Not sessoes.EOF

set semcateg = conexao.execute("SELECT * FROM categoria WHERE idsessao='"&sessoes("id")&"' and nome='Todos'")

if semcateg.eof or semcateg.bof then%>

<tr>

<td width="10" height="19"> </td>

<td width="128" valign="top" <%If loja("retratil") = "Sim" then

response.write "style=""cursor:pointer"" onclick=""SwitchMenu('"&sessoes("nome")&"')"""

end if%>><span class="style300"><strong><%=sessoes("nome")%></strong></span></td>

</tr>

<TR>

<TD height="38"> </TD>

<TD valign="top">

<%

set categ = conexao.execute("SELECT * FROM categoria WHERE idsessao='"&sessoes("id")&"' ORDER by nome LIMIT 16;")%> <span class="submenu" id="<%=sessoes("nome")%>"

<% If loja("retratil") = "não" then

response.write "style=""display:block"""

else

if 1 + request("id") -1 = 1 + sessoes("id") - 1 then

response.write "style=""display:block"""

else

response.write "style=""display:none"""

end if

end if%>>

<%while not categ.eof%>

<a href="sessoes.asp?id=<%=sessoes("id")%>&categoria=<%=categ("idcategoria")%>"><%=categ("nome")%></a><Br />

<%

categ.movenext%>

<%wend%>

<a href="sessoes.asp?id=<%=sessoes("id")%>" class="vermais">+ Veja mais...</a> </span></TD>

</TR>

<TR>

<TD colspan="2" align="center" style="font-size:5PX; color:#FFFFFF">a</TD>

<%else%>

<TR>

<TD height="18"></TD>

<TD valign="top"> <a href="sessoes.asp?id=<%=sessoes("id")%>&categoria=<%=semcateg("idcategoria")%>"><%=sessoes("nome")%></a></TD>

</TR>

<%

end if

sessoes.MoveNext

wend

'AQUI É PARA QUANDO ESTÁ SOLICITANDO A SESSÃO

else

set categoria = conexao.execute("SELECT * FROM categoria WHERE idsessao='"&request("id")&"' ORDER BY nome")

while not categoria.eof

set subcategoria = conexao.execute("SELECT * FROM subcategoria WHERE idcategoria='"&categoria("idcategoria")&"' ORDER by nome ")

if subcategoria.eof or subcategoria.bof then%>

<TR>

<TD height="18"></TD>

<TD valign="top"> <a href="sessoes.asp?id=<%=request("id")%>&categoria=<%=categoria("idcategoria")%>"><%=categoria("nome")%></a></TD>

</TR>

<%else%>

<tr>

<td height="18"></td>

<td valign="top" <%If loja("retratil") = "Sim" then

response.write "style=""cursor:pointer"" onclick=""SwitchMenu('"&categoria("nome")&"')"""

end if%>><%=categoria("nome")%> </td>

</tr>

<TR>

<TD height="37">

<TD valign="top">

<%while not subcategoria.eof%>

<a href="sessoes.asp?id=<%=request("id")%>&categoria=<%=categoria("idcategoria")%>&subcategoria=<%=subcategoria("idsubcategoria")%>"><%=subcategoria("nome")%></a><Br />

<%

subcategoria.movenext%>

<%wend%>

<TR>

<TD colspan="2" align="center" style="font-size:3PX; color:#FFFFFF">a</TD>

<%end if

categoria.movenext

wend

end if

%>

</table></td>

</tr>

<tr>

<td align="left" valign="bottom" bgcolor="#f7f7f7"><img src="images/rodape_baix_1.gif" width="9" height="10" /></td>

<td align="right" valign="bottom" bgcolor="#f7f7f7"><img src="images/rodape_baix_2.gif" width="8" height="10" /></td>

</tr>

<tr>

<td align="left" valign="bottom" height="10"></td>

<td align="right" valign="bottom" height="10"></td>

</tr>

<tr>

<td colspan="2"><iframe src="assinar_news.asp" width="155" marginwidth="0" height="150" marginheight="0" align="left" scrolling="no" frameborder="0"></iframe> </td>

</tr>

<tr>

<td colspan="2"><!--DWLayoutEmptyCell--> </td>

</tr>

</table>