Este fórum é para dúvidas onde a base da questão é a linguagem ASP.
Moderador: web
por cristiano R Offline » Qua Dez 08, 2010 2:15 pm
|
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:
- Código: Selecionar todos
<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/padrao.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") = "Nao" 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>
cristiano R
NOVO MEMBRO
Mensagens: 2
Registrado em: Qua Dez 08, 2010 2:01 pm
|
por web Offline » Qua Dez 08, 2010 2:30 pm
Pelo código não dá para ver, até porque tem ASP, poderia postar um print da página?
Gostou do que encontrou? Divulgue, indique, participe, agradeça pelas respostas.
Faço scripts personalizados ou reparos em scripts. Orçamento MSN codigosnaweb1 [@] gmail [.] com
web
ADMIN
Mensagens: 12439
Registrado em: Sáb Jan 20, 2007 6:08 pm
Localização: RJ / RJ / Brasil
|
por cristiano R Offline » Qua Dez 08, 2010 5:45 pm
Pode-se visualizar diretamente pelo site
http://www.livrariamoria.com.br
Quando seleciona-se uma categoria do menu, uma nova página é aberta disponiblizando os produtos da categoria selecionada, porém o menu não apresenta as outras sessões.
O que preciso é que o Menu permaneça como na página principal.
cristiano R
NOVO MEMBRO
Mensagens: 2
Registrado em: Qua Dez 08, 2010 2:01 pm
|
por web Offline » Qua Dez 08, 2010 6:59 pm
Isso é meio complicado. Mas pelo que entendi o menu é criado em uma consulta. Em sessoes.asp deve ter uma consulta que carrega o menu de acordo com o valor passado, então você teria que tirar essa condição, e coloca a mesma condição da index.
Gostou do que encontrou? Divulgue, indique, participe, agradeça pelas respostas.
Faço scripts personalizados ou reparos em scripts. Orçamento MSN codigosnaweb1 [@] gmail [.] com
web
ADMIN
Mensagens: 12439
Registrado em: Sáb Jan 20, 2007 6:08 pm
Localização: RJ / RJ / Brasil
|
Voltar para Asp
Quem está online
Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante
