Ir para conteúdo

POWERED BY:

Arquivado

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

formalivre

problemas com menu de lista

Por , em ASP Clássico

Recommended Posts

Mário Monteiro    179

Mário Monteiro
Postado

como está seu codigo atual e o que ta dando errado???

Compartilhar este post

Link para o post
Compartilhar em outros sites

formalivre    0

formalivre
Postado

olá. está é a página onde são listadas as categorias atrvés de um menu de lista:<!--#Include file="conexao.asp"--><%Response.Expires = 0Dim conexao, strCat, rsCat, numCat, Cat, strNRegistros, rsNRegistrosstrCat = "SELECT * "strCat = strCat & "FROM categorias "strCat = strCat & "ORDER BY categoria asc"Set rsCat = conexao.Execute(strCat)Do While Not rsCat.EofnumCat = rsCat.Fields("idcat")Cat = rsCat.Fields("Categoria")selecao = selecao & "<option value='"& numCat &"'>"& Cat &"</option>"strNRegistros = "SELECT COUNT(idcat) AS numclassific FROM noticias "strNRegistros = strNRegistros & "WHERE noticias.idcat=" & numCat & " "Set rsNRegistros = conexao.Execute(strNRegistros)%><%rsCat.MoveNextLoop%><form name="nome_form" action="teste.asp" method="post"><select name="strValor" OnChange="document.nome_form.submit()"><option selected>Selecione</option><%= selecao %></select></form>agora está dando erro na página onde aparece os resultados vindo da página das categorias diz que o banco de dados está vazio.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

mas isso ai em cima esta listando algo na pagina??

Compartilhar este post

Link para o post
Compartilhar em outros sites

formalivre    0

formalivre
Postado

página "teste.asp"

<%Dim conexao, strNRegistros, rsNRegistros, strClassific, rsClassific, categoriaAtual, strClassifi, rsClassifi, idcategoriaAtual=(Request.QueryString("Categoria"))Session("usuario") = categoriaAtual%><html><head><title>Revista Aclimação Vertical</title><script LANGUAGE="JavaScript"> <!--function AbreJanela(arquivo){window.open(arquivo,'nenWin','resizable=no,toolbar=no,status=no,menubar=no,scrollbars=yes, personalbar=no,width=500,height=250')}// --></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"><!--.style1 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px;}.style3 {font-size: 12px; color: #000000; font-family: Verdana, Arial, Helvetica, sans-serif;}--></style></head><body bgcolor=#FFFFFF text=#000080 link="#000080" vlink="#000080" alink="#000080"><table width="100%" border="0" cellspacing="0" cellpadding="8"> <tr> <td width="8%" valign="top" class= "texto"><div align="center"> <p><a href="java script:history.go(-1)" class="style1">voltar</a></p> </div></td> <td class="style3">Anunciantes desta categoria:</td> </tr> <tr> <td valign="top" class= "texto"> </td> <td> <%regs = 10 'Aqui setamos quantos registros serão listados por páginapag = request.querystring("pagina")if pag = "" Thenpag = 1end ifset conn = createobject("adodb.connection")conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("adm/noticias.mdb")set rs = createobject("adodb.recordset")set rs.activeconnection = connrs.cursortype = 3 'Definimos o cursor a ser utilizadors.pagesize = regssql = "SELECT * "sql = sql & "FROM noticias "sql = sql & "INNER JOIN Categorias "sql = sql & "ON noticias.idcat = categorias.idcat "sql = sql & "WHERE noticias.idcat LIKE '" & Session("usuario") & "'"sql = sql & "ORDER BY noticias.idnot asc"rs.open sqlif rs.eof or rs.bof thenresponse.write "O banco de dados está vazio"elsers.absolutepage = pagcontador = 0do while not rs.eof and contador < rs.pagesizeid = rs("idnot")response.write "<b><font face= verdana size= 2 color=#FF6600> " & rs("titulo") & "</font></b><br><br>"response.write "<font face= verdana size= 1 color=#000000> " & rs("autor") & "<br><br></font>"response.write "<a href=java script:AbreJanela('popup1.asp?id=" & rs("idnot") & "')><font face= verdana size= 2 >Ver anúncio</a><br><hr size=1>"contador = contador +1rs.movenextloopend if'Criando links para a navegaçãoresponse.write "<br>Página(s): "for i = 1 to rs.pagecountif i = cint(pag) thenresponse.write "" & i & " "elseresponse.write "<a href='" & request.servervariables("script_name") & "?pagina=" & i & "&Categoria="& categoriaAtual &"'>" & i & "</a> "end ifnextrs.closeconn.closeset rs = nothingset conn = nothing%></td> </tr></table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

formalivre    0

formalivre
Postado

qualquer categoria que eu escolho mostra que o banco de dados está vazio. esta linha do código <form name="nome_form" action="teste.asp" method="post">antes estava assim <form name="nome_form" action="teste.asp?Categoria=<% = numCat %>" method="post">e quando eu acessava uma categoria mostrava sempre o mesmo ítem "id4"

Compartilhar este post

Link para o post
Compartilhar em outros sites

ultra    0

ultra
Postado

Na pagina teste.asp, mude o parâmetro lá dentro do SQLdeve tar assim: Request.QueryString("categoria")mude para: Request.Form("strValor")

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