Ir para conteúdo

POWERED BY:

Arquivado

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

Creator

Problemas na busca

Por , em ASP Clássico

Recommended Posts

Creator    0

Creator
Postado

Ae pessoal tudo bem?Eu tenho um site em ASP é um catálogo, www.jpctoys.com.br e é assim quando eu coloco para busca algum produto ele mostra la...83 produtos encontrados, mas quando eu do um avancar na página ele nao mostra o resto q era para mostra ele da como nenhum resultado na busca, mas isso só da quando eu utilizo a busca.se eu clico direto numa categoria que tem um numero de produtos que não cabe na página e eu dou avançar funciona normal, eu vou postar o código da página para ver.se alguem quiser simular o erro é só entrar no site www.jpctoys.com.br e coloque na busca "boneca" e coloque OK e tente dar um avancar e você verá o erro, depois no lado esquerdo tem uma categoria "boneca" clique e de avancar e funciona normal.esse código é o da página que vai depois que você efetua a busca a página produtos.aspSEGUE O CÓDIGO.<!--#include file="Includes/Config.asp"--><!--#include file="Includes/ADOVBS.inc"--><link href="Includes/Styles.css" rel="stylesheet" type="text/css"><%Call AbreBancoDim VarCategoriaDim VarSubCategoriaDim VarBuscaTextoDim VarActDim VarAct2Dim ProdutosDim CategoriaDim SubCategoriaDim VarPaginaDim TotaldePaginasDim IntI VarCategoria = Request("Categoria")VarSubCategoria = Request.QueryString("SubCategoria")VarBuscaTexto = Request.Form("BuscaTexto")VarAct2 = Request.QueryString("Act2")Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")VarAct = Request.QueryString("Act")If Request.QueryString("Pagina") = "" Then VarPagina = 1 Else VarPagina = Request.QueryString("Pagina") Select case VarAct Case "Anterior" VarPagina = VarPagina - 1 Case "Proxima" VarPagina = VarPagina + 1 End select End IfSet Produtos = Server.CreateObject("ADODB.RecordSet")Produtos.CursorLocation = adUseClientProdutos.CursorType = adOpenStaticProdutos.CacheSize = TotalPorPaginaIf VarAct2 = "" and VarCategoria <> "" and VarSubCategoria = "" Then Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'") Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"&VarCategoria&"' And Estoque > 0 AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText Elseif VarAct2 = "" and VarSubCategoria <> "" Then Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'") Set SubCategoria = Banco.Execute("SELECT * FROM SubCategorias WHERE Cod LIKE '"& VarSubCategoria &"'") Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '%"& VarCategoria &"%' And Estoque > 0 AND CodSubCategoria LIKE '%"&VarSubCategoria&"%' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText Elseif VarAct2 = "Busca" and VarCategoria = "0" and VarBuscaTexto <> "" Then Produtos.Open "SELECT * FROM Produtos WHERE NomeProduto LIKE '%"&VarBuscaTexto&"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On And Estoque > 0 ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseif VarAct2 = "Busca" and VarBuscaTexto <> "" and VarCategoria <> "0" Then Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '%"& VarCategoria &"%'") Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '%"& VarCategoria &"%' AND Estoque > 0 AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseif VarAct2 = "Busca" and VarBuscaTexto = "" Then Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '%"& VarCategoria &"%' And Estoque > 0 AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseIf VarAct2 = "" and VarCategoria = "" and VarSubCategoria = "" Then Produtos.Open "SELECT * FROM Produtos Where Estoque > 0 ORDER BY Cod Desc", Banco, , , adCmdTextEnd If%><table width="771" align="center" cellpadding="0" cellspacing="0"> <tr> <td><!--#include file="Includes/BarraCima.asp"--></td> </tr> <tr> <td align="center"><table width="771" cellspacing="0" cellpadding="0"> <tr> <td width="9"></td> <td width="151" valign="top" bgcolor="#FFFFFF"><!--#include file="Includes/BarraEsq.asp"--></td> <td width="451" align="center" valign="top"><table width="443" cellspacing="0" cellpadding="0"> <tr> <td height="134" align="center" valign="top"><table width="443" align="center" cellpadding="0" cellspacing="0"> <tr> <td><img src="Imagens/produtos.jpg" width="443" height="27"></td> </tr> </table> <table width="423" cellspacing="0" cellpadding="0"> <tr> <td height="107" align="center" valign="top"><table width="290" cellspacing="0" cellpadding="0"> <tr> <td height="5"></td> </tr> </table> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="9%" align="center"><img src="Imagens/SpacerCima.gif" width="1" height="9"></td> </tr> <tr> <td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left"><span class="TextTahoma11CinzaBold">   <%If VarCategoria <> "" and VarCategoria <> "0" and VarAct2 <> "Busca" Then Response.Write Categoria("Categoria") Else Response.Write "Resultado da Busca" End If%></span><span class="TextTahoma11Cinza"><%If VarSubCategoria <> "" Then Response.Write " >>> " & SubCategoria("SubCategoria") End If%> </span></div></td> </tr> <tr> <td height="20" align="center"><img src="Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td> </tr> <tr> <td height="5%" align="center"> <% Produtos.PageSize = TotalPorPagina If Produtos.EOF Then Response.Write "<tr><td><center><br /><span class=TextTahoma11CinzaBold>Não foi encontrado nenhum produto com essas especificações!</span><br><br></center></td></tr>" Else %> </td> </tr> <tr> <td height="5%" align="center"><div align="right"><span class="TextTahoma11Cinza">Foram encontrados <%=Produtos.RecordCount%> resultados.</span></div></td> </tr> <tr> <td align="center" valign="middle"> </td> </tr> <tr> <td height="20" align="center" valign="middle"> <% Produtos.AbsolutePage = VarPagina TotaldePaginas = Produtos.PageCount For intI = 1 to Produtos.PageSize %> <table width="396" cellspacing="0" cellpadding="0"> <tr> <td height="36" align="center" background="Imagens/fund_prod_gr.jpg"><table width="396" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#FFFFFF"><img src="Imagens/cima_prod_gr.jpg" width="396" height="3" /></td> </tr> </table> <table width="396" cellpadding="0" cellspacing="0"> <tr> <td width="174" height="114" align="center"><a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>"><img src="<%=Produtos("Foto2")%>" width="165" height="106" border="0"></a></td> <td width="1" bgcolor="#969696"></td> <td width="221" align="center"><table width="191" cellspacing="0" cellpadding="0"> <tr> <td width="233" height="18" valign="top" align="center"><a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>" class="LinkTahomaVinhoBold"><%=Produtos("Cod")%></a></td> </tr> </table> <table width="191" cellspacing="0" cellpadding="0"> <tr> <td width="233" height="18" valign="top" align="center"><span class="TextTahoma11Cinza"><a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>" class="LinkTahoma12cinzabold"><%=Produtos("NomeProduto")%></a></span></td> </tr> </table> </td> </tr> </table> <table width="396" cellspacing="0" cellpadding="0"> <tr> <td valign="top"><img src="Imagens/baixo_prod_gr.jpg" width="396" height="3" /></td> </tr> </table></td> </tr> </table> <table width="290" cellspacing="0" cellpadding="0"> <tr> <td height="5"></td> </tr> </table> <% Produtos.MOVENEXT If Produtos.EOF Then Exit For Next %> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="50%"><div align="center"><span class="TextTahoma11Cinza"><br />Página <%=VarPagina%> de <%=TotaldePaginas%></span></div></td> <td width="50%"><div align="right"> <% If VarPagina > 1 Then Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina="& VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> | </span>" End if If VarPagina <> TotaldePaginas Then Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>" End If %> </div></td> </tr> </table><%End If%></td> </tr> <tr> <td height="20" align="center" valign="middle"><%=Voltar%></td> </tr> </table> <table width="290" cellspacing="0" cellpadding="0"> <tr> <td height="5"></td> </tr> </table></td> </tr> </table> </td> </tr> </table> </td> <td width="151" valign="top" bgcolor="#FFFFFF"><!--#include file="Includes/BarraDir.asp"--></td> <td width="9"></td> </tr> </table></td> </tr> <tr> <td><!--#include file="Includes/Rodape.asp"--></td> </tr></table><%Call FechaBanco%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Quando você realiza a busca, você não está passando os parametros corretos para o link "PROXIMO"

http://www.jpctoys.com.br/catalogo/Produto...amp;Act=Proxima

 

Veja que Categoria recebe 0 e SubCatetoria está vazio.

 

Já no link Bonecas quando é feito o acesso direto, esses valores estão preenchidos.

http://www.jpctoys.com.br/catalogo/Produto...amp;Act=Proxima

Categoria=42

SubCategoria=117

Compartilhar este post

Link para o post
Compartilhar em outros sites

Creator    0

Creator
Postado

Quando você realiza a busca, você não está passando os parametros corretos para o link "PROXIMO"http://www.jpctoys.com.br/catalogo/Produto...amp;Act=ProximaVeja que Categoria recebe 0 e SubCatetoria está vazio.Já no link Bonecas quando é feito o acesso direto, esses valores estão preenchidos.http://www.jpctoys.com.br/catalogo/Produto...amp;Act=ProximaCategoria=42SubCategoria=117

Cara por favor...teria como você me da uma ajuda em como eu arrumo isso????....que eu sou meio leigo em ASP eu peguei este script e fiz algumas modificações apenas...Por favor se você puder me dar uma ajudaobrigado!!!!Abracos

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Estava olhando seu código aqui de novo, em relação a busca, aquelas duas variaveis não vão fazer muita falta na paginação nao.

 

 

Substitui essa linha

VarBuscaTexto = Request.Form("BuscaTexto")

 

Por essa

VarBuscaTexto = Request("BuscaTexto")

 

E substitui essa linha

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

 

Por essa

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

 

Diz ai o que deu...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Creator    0

Creator
Postado

Estava olhando seu código aqui de novo, em relação a busca, aquelas duas variaveis não vão fazer muita falta na paginação nao.

 

 

Substitui essa linha

VarBuscaTexto = Request.Form("BuscaTexto")

 

Por essa

VarBuscaTexto = Request("BuscaTexto")

 

E substitui essa linha

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

 

Por essa

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

 

Diz ai o que deu...

Intaum cara....fico na mesma da uma olhada...num sei c eu fiz errado...olha o código aki em baixo..pra num apaga eu deixei os antigo como comentário e coloquei....

 

falou

Compartilhar este post

Link para o post
Compartilhar em outros sites

Creator    0

Creator
Postado

 

Estava olhando seu código aqui de novo, em relação a busca, aquelas duas variaveis não vão fazer muita falta na paginação nao.

 

 

Substitui essa linha

VarBuscaTexto = Request.Form("BuscaTexto")

 

Por essa

VarBuscaTexto = Request("BuscaTexto")

 

E substitui essa linha

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

 

Por essa

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

 

Diz ai o que deu...

Intaum cara....fico na mesma da uma olhada...num sei c eu fiz errado...olha o código aki em baixo..pra num apaga eu deixei os antigo como comentário e coloquei....

 

falou

 

opaaa tinha esquecido o codigo

 

<!--#include file="Includes/Config.asp"-->

<!--#include file="Includes/ADOVBS.inc"-->

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

<%

Call AbreBanco

 

Dim VarCategoria

Dim VarSubCategoria

Dim VarBuscaTexto

Dim VarAct

Dim VarAct2

Dim Produtos

Dim Categoria

Dim SubCategoria

Dim VarPagina

Dim TotaldePaginas

Dim IntI

 

VarCategoria = Request("Categoria")

VarSubCategoria = Request.QueryString("SubCategoria")

VarBuscaTexto = Request("BuscaTexto")

'VarBuscaTexto = Request.Form("BuscaTexto")

VarAct2 = Request.QueryString("Act2")

Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")

 

VarAct = Request.QueryString("Act")

 

If Request.QueryString("Pagina") = "" Then

VarPagina = 1

 

Else

 

VarPagina = Request.QueryString("Pagina")

Select case VarAct

Case "Anterior"

VarPagina = VarPagina - 1

Case "Proxima"

VarPagina = VarPagina + 1

End select

 

End If

 

Set Produtos = Server.CreateObject("ADODB.RecordSet")

Produtos.CursorLocation = adUseClient

Produtos.CursorType = adOpenStatic

Produtos.CacheSize = TotalPorPagina

 

If VarAct2 = "" and VarCategoria <> "" and VarSubCategoria = "" Then

 

Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")

 

Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"&VarCategoria&"' And Estoque > 0 AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText

 

Elseif VarAct2 = "" and VarSubCategoria <> "" Then

 

Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")

 

Set SubCategoria = Banco.Execute("SELECT * FROM SubCategorias WHERE Cod LIKE '"& VarSubCategoria &"'")

 

Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '%"& VarCategoria &"%' And Estoque > 0 AND CodSubCategoria LIKE '%"&VarSubCategoria&"%' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText

 

Elseif VarAct2 = "Busca" and VarCategoria = "0" and VarBuscaTexto <> "" Then

 

Produtos.Open "SELECT * FROM Produtos WHERE NomeProduto LIKE '%"&VarBuscaTexto&"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On And Estoque > 0 ORDER BY NomeProduto ASC", Banco, , , adCmdText

 

Elseif VarAct2 = "Busca" and VarBuscaTexto <> "" and VarCategoria <> "0" Then

 

Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '%"& VarCategoria &"%'")

 

Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '%"& VarCategoria &"%' AND Estoque > 0 AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText

 

Elseif VarAct2 = "Busca" and VarBuscaTexto = "" Then

 

Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '%"& VarCategoria &"%' And Estoque > 0 AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText

 

ElseIf VarAct2 = "" and VarCategoria = "" and VarSubCategoria = "" Then

 

Produtos.Open "SELECT * FROM Produtos Where Estoque > 0 ORDER BY Cod Desc", Banco, , , adCmdText

 

End If

 

%>

<table width="771" align="center" cellpadding="0" cellspacing="0">

<tr>

<td><!--#include file="Includes/BarraCima.asp"--></td>

</tr>

<tr>

<td align="center"><table width="771" cellspacing="0" cellpadding="0">

<tr>

<td width="9"></td>

<td width="151" valign="top" bgcolor="#FFFFFF"><!--#include file="Includes/BarraEsq.asp"--></td>

<td width="451" align="center" valign="top"><table width="443" cellspacing="0" cellpadding="0">

<tr>

<td height="134" align="center" valign="top"><table width="443" align="center" cellpadding="0" cellspacing="0">

<tr>

<td><img src="Imagens/produtos.jpg" width="443" height="27"></td>

</tr>

</table>

<table width="423" cellspacing="0" cellpadding="0">

<tr>

<td height="107" align="center" valign="top"><table width="290" cellspacing="0" cellpadding="0">

<tr>

<td height="5"></td>

</tr>

</table>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="100%" height="9%" align="center"><img src="Imagens/SpacerCima.gif" width="1" height="9"></td>

</tr>

<tr>

<td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left"><span class="TextTahoma11CinzaBold">  

<%If VarCategoria <> "" and VarCategoria <> "0" and VarAct2 <> "Busca" Then Response.Write Categoria("Categoria") Else Response.Write "Resultado da Busca" End If%></span><span class="TextTahoma11Cinza"><%If VarSubCategoria <> "" Then Response.Write " >>> " & SubCategoria("SubCategoria") End If%>

</span></div></td>

</tr>

<tr>

<td height="20" align="center"><img src="Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>

</tr>

<tr>

<td height="5%" align="center">

<%

 

Produtos.PageSize = TotalPorPagina

 

If Produtos.EOF Then

Response.Write "<tr><td><center><br /><span class=TextTahoma11CinzaBold>Não foi encontrado nenhum produto com essas especificações!</span><br><br></center></td></tr>"

Else

 

%> </td>

</tr>

<tr>

<td height="5%" align="center"><div align="right"><span class="TextTahoma11Cinza">Foram encontrados <%=Produtos.RecordCount%> resultados.</span></div></td>

</tr>

<tr>

<td align="center" valign="middle"> </td>

</tr>

<tr>

<td height="20" align="center" valign="middle">

 

<%

 

Produtos.AbsolutePage = VarPagina

TotaldePaginas = Produtos.PageCount

 

For intI = 1 to Produtos.PageSize

 

%>

<table width="396" cellspacing="0" cellpadding="0">

<tr>

<td height="36" align="center" background="Imagens/fund_prod_gr.jpg"><table width="396" cellspacing="0" cellpadding="0">

<tr>

<td bgcolor="#FFFFFF"><img src="Imagens/cima_prod_gr.jpg" width="396" height="3" /></td>

</tr>

</table>

<table width="396" cellpadding="0" cellspacing="0">

<tr>

<td width="174" height="114" align="center"><a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>"><img src="<%=Produtos("Foto2")%>" width="165" height="106" border="0"></a></td>

<td width="1" bgcolor="#969696"></td>

<td width="221" align="center"><table width="191" cellspacing="0" cellpadding="0">

<tr>

<td width="233" height="18" valign="top" align="center"><a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>" class="LinkTahomaVinhoBold"><%=Produtos("Cod")%></a></td>

</tr>

</table>

<table width="191" cellspacing="0" cellpadding="0">

<tr>

<td width="233" height="18" valign="top" align="center"><span class="TextTahoma11Cinza"><a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>" class="LinkTahoma12cinzabold"><%=Produtos("NomeProduto")%></a></span></td>

</tr>

</table>

</td>

</tr>

</table>

<table width="396" cellspacing="0" cellpadding="0">

<tr>

<td valign="top"><img src="Imagens/baixo_prod_gr.jpg" width="396" height="3" /></td>

</tr>

</table></td>

</tr>

</table>

<table width="290" cellspacing="0" cellpadding="0">

<tr>

<td height="5"></td>

</tr>

</table>

<%

 

Produtos.MOVENEXT

 

If Produtos.EOF Then Exit For

 

Next

 

%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="50%"><div align="center"><span class="TextTahoma11Cinza"><br />Página <%=VarPagina%> de <%=TotaldePaginas%></span></div></td>

<td width="50%"><div align="right">

<%

 

If VarPagina > 1 Then

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina="& VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> | </span>"

End if

 

If VarPagina <> TotaldePaginas Then

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

'Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

End If

 

%>

</div></td>

</tr>

</table><%End If%></td>

</tr>

 

<tr>

<td height="20" align="center" valign="middle"><%=Voltar%></td>

</tr>

</table>

<table width="290" cellspacing="0" cellpadding="0">

<tr>

<td height="5"></td>

</tr>

</table></td>

</tr>

</table>

</td>

</tr>

</table> </td>

<td width="151" valign="top" bgcolor="#FFFFFF"><!--#include file="Includes/BarraDir.asp"--></td>

<td width="9"></td>

</tr>

</table></td>

</tr>

<tr>

<td><!--#include file="Includes/Rodape.asp"--></td>

</tr>

</table>

<%

 

Call FechaBanco

 

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Substitui essa linha

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

 

Por essa

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Creator    0

Creator
Postado

Substitui essa linha

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

 

Por essa

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"

AEEEEEEEEEE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

deu certo cara....só o botão anterior q num ta dando....é só eu colocar o mesmo código????

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Coloca este

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & (VarPagina-1) &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Creator    0

Creator
Postado

Coloca esteResponse.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & (VarPagina-1) &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a>"

ixe eu coloquei e deu erro...da uma olhada laaparece essa mensagem quando você clica no anteriorADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /catalogo/Produtos.asp, line 141

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Troca esse código

 

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & (VarPagina-1) &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a>"

Por esse

If VarPagina > 1 Then
voltar = VarPagina - 2
if voltar <= 0 then : voltar = "" end if
Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & voltar &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> | </span>"
End if

Compartilhar este post

Link para o post
Compartilhar em outros sites

Creator    0

Creator
Postado

Troca esse código

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & (VarPagina-1) &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a>"
Por esse
If VarPagina > 1 Thenvoltar = VarPagina - 2if voltar <= 0 then : voltar = "" end ifResponse.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & voltar &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> | </span>"End if
Entao cara deu certo...mas só não ta funcionando na pa'gina dois...na página 1...3...4...5...6 etc.....funciona menos na segunda...ela da aquela mesma msg de erro...FALOU!!!!!!!!!

Troca esse código

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & (VarPagina-1) &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a>"
Por esse
If VarPagina > 1 Thenvoltar = VarPagina - 2if voltar <= 0 then : voltar = "" end ifResponse.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & voltar &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> | </span>"End if
Entao cara deu certo...mas só não ta funcionando na pa'gina dois...na página 1...3...4...5...6 etc.....funciona menos na segunda...ela da aquela mesma msg de erro...FALOU!!!!!!!!!
PUIS ERRADO É A 3 Q TA DANDO PAU

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Altera essa linha

Case "Anterior"
VarPagina = VarPagina - 1

Ficará assim

Case "Anterior"
VarPagina = VarPagina - 1
if VarPagina = 0 then : VarPagina = "" : end if

 

Troca essa

If VarPagina > 1 Then
voltar = VarPagina - 2
if voltar <= 0 then : voltar = "" end if
Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & voltar &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> | </span>"
End if

Por essa

Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a>"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Creator    0

Creator
Postado

opa cara beleza???

 

então agora deu certo, funciono certinho pode entra ae e teste...

 

então nesse mesmo site tem uma outra parte que esta com o mesmo problema é a página de produtos só que dentro do painel de controle do site onde o cara insere o produto.....ai eu tentei colocar as mesmas coisas q você me passo pra arruma esse mas num deu certo...vou postar os dois códigos como ele era antes e como ele fico com as alterações...

 

se tiver como você me ajuda eu agradeço....

 

FALOU VALEU

 

CÓDIGO ANTES DE TROCAR

 

<!--#include file="../Includes/Config.asp"--><!--#include file="../Includes/ADOVBS.inc"--><!--#include file="../Includes/Travar2.asp"--><link href="../Includes/Styles.css" rel="stylesheet" type="text/css"><%Call AbreBancoDim VarCategoriaDim VarSubCategoriaDim VarBuscaTextoDim VarActDim VarAct2Dim ProdutosDim CategoriaDim SubCategoriaDim VarPaginaDim TotaldePaginasDim IntI	VarCategoria = Request("Categoria")VarSubCategoria = Request.QueryString("SubCategoria")VarBuscaTexto = Request.Form("BuscaTexto")VarAct2 = Request.QueryString("Act2")Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")VarAct = Request.QueryString("Act")If Request.QueryString("Pagina") = "" Then	VarPagina = 1	Else	VarPagina = Request.QueryString("Pagina")	Select case VarAct		'Case "Anterior"			'VarPagina = VarPagina - 1		Case "Anterior"			VarPagina = VarPagina - 1	if VarPagina = 0 then : VarPagina = "" : end if			Case "Proxima"			VarPagina = VarPagina + 1	End select	End IfSet Produtos = Server.CreateObject("ADODB.RecordSet")Produtos.CursorLocation = adUseClientProdutos.CursorType = adOpenStaticProdutos.CacheSize = TotalPorPaginaIf VarAct2 = "" and VarCategoria <> "" and VarSubCategoria = "" Then	Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")		Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"&VarCategoria&"' And Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText	Elseif VarAct2 = "" and VarSubCategoria <> "" Then		Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")		Set SubCategoria = Banco.Execute("SELECT * FROM SubCategorias WHERE Cod LIKE '"& VarSubCategoria &"'")		Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' And CodSubCategoria LIKE '"&VarSubCategoria&"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText	Elseif VarAct2 = "Busca" and VarCategoria = "0" and VarBuscaTexto <> "" Then	Produtos.Open "SELECT * FROM Produtos WHERE NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseif VarAct2 = "Busca" and VarBuscaTexto <> "" and VarCategoria <> "0" Then	Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")		Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseif VarAct2 = "Busca" and VarBuscaTexto = "" Then	Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseIf VarAct2 = "" and VarCategoria = "" and VarSubCategoria = "" Then	Produtos.Open "SELECT * FROM Produtos ORDER BY Cod Desc", Banco, , , adCmdTextEnd If%><table width="771" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">  <tr>	<td><!--#include file="../Includes/BarraCimaAdm.asp"--></td>  </tr>  <tr>	<td><table width="771"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">	  <tr>		<td width="151" valign="top"><!--#include file="../Includes/BarraEsqAdm.asp"--></td>		<td width="469" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">			<tr>			  <td width="100%" height="9%" align="center"><img src="../Imagens/SpacerCima.gif" width="1" height="9"></td>			</tr>			<tr>			  <td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left"><span class="TextTahoma11AzulBold">  						<%If VarCategoria <> "" and VarCategoria <> "0" and VarAct2 <> "Busca" Then Response.Write Categoria("Categoria") Else Response.Write "Resultado da Busca" End If%>				  </span><span class="TextTahoma11Azul">				  <%If VarSubCategoria <> "" Then Response.Write " >>> " & SubCategoria("SubCategoria") End If%>			  </span></div></td>			</tr>			<tr>			  <td height="20" align="center"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>			</tr>			<tr>			  <td height="20" align="center"><div align="right"><a href="InsProduto.asp" class="LinkTahoma11CinzaBold">Inserir novo produto </a></div></td>			</tr>			<tr>			  <td height="20" align="center"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>			</tr>			<tr>			  <td height="5%" align="center"><%						  						  Produtos.PageSize = TotalPorPagina						  						  If Produtos.EOF Then								  Response.Write "<tr><td><center><br /><span class=TextTahoma11CinzaBold>Não foi encontrado nenhum produto com essas especificações!</span><br /><br /></center></td></tr>"						  Else						  						  %>			  </td>			</tr>			<tr>			  <td height="5%" align="center"><div align="right"><span class="TextTahoma11Cinza">Foram encontrados <%=Produtos.RecordCount%> resultados.</span></div></td>			</tr>			<tr>			  <td height="20" align="center"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>			</tr>			<tr>			  <td align="center" valign="middle"><table width="95%"  border="0" cellspacing="0" cellpadding="0">				  <%								Produtos.AbsolutePage = VarPagina						TotaldePaginas = Produtos.PageCount												For intI = 1 to Produtos.PageSize												%>				  <tr>					<td width="177" rowspan="3" align="left" valign="middle"><a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>"><img src="<%=Produtos("Foto2")%>" width="165" height="106" border="0"></a></td>					<td width="252" valign="bottom"> <a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>" class="LinkTahomaVinhoBold"><%=Produtos("Cod")%></a></td>				  </tr>				  <tr>					<td valign="top"> <a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>" class="LinkTahoma12cinzabold"><%=Produtos("NomeProduto")%></a></td>				  </tr>				  				  <tr>					<td width="252" valign="top"><table width="205" border="0" cellspacing="0" cellpadding="0">						<tr>						  <td colspan="2" valign="middle"><div align="left">							<%If Produtos("Destaque") = True Then%>							<a href="StaDestaque.asp?Produto=<%=Produtos("Cod")%>&Act=Down"><img src="../Imagens/IcDesDestacar.gif" alt="Tirar de destaque" border="0"></a>							<%Else%>							<a href="StaDestaque.asp?Produto=<%=Produtos("Cod")%>&Act=Up"><img src="../Imagens/IcDestacar.gif" alt="Colocar em destaque" border="0"></a>							<%End If%>    							<%If Produtos("Status") = True Then%>							<a href="StaProduto.asp?Produto=<%=Produtos("Cod")%>&Act=Desativar"><img src="../Imagens/IcDesAtivar.gif" alt="Desativar" border="0"></a>							<%Else%>							<a href="StaProduto.asp?Produto=<%=Produtos("Cod")%>&Act=Ativar"><img src="../Imagens/IcAtivar.gif" alt="Ativar" border="0"></a>							<%End If%>     <a href="AltProduto.asp?Produto=<%=Produtos("Cod")%>"><img src="../Imagens/IcAtualizar.gif" alt="Alterar informações" border="0"></a>    <a href="DelProduto.asp?Produto=<%=Produtos("Cod")%>"><img src="../Imagens/IcDelete.gif" alt="Deletar" border="0"></a>							<%If Produtos("Promocao") = True Then%>							<a href="StaPromocao.asp?Produto=<%=Produtos("Cod")%>&Act=Down"><img src="../Imagens/ictirarpromo.jpg" alt="Tirar Promoção" border="0"></a>							<%Else%>							<a href="StaPromocao.asp?Produto=<%=Produtos("Cod")%>&Act=Up"><img src="../Imagens/icpromo.jpg" alt="Colocar Promoção" border="0"></a>							<%End If%>						  </div></td>						  </tr>											</table></td>				  </tr>				  <tr align="center" valign="middle">					<td height="20" colspan="2"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>				  </tr>				  <%														Produtos.MOVENEXT														If Produtos.EOF Then Exit For														Next														%>			  </table></td>			</tr>			<tr>			  <td height="20" align="center" valign="middle"><table width="100%"  border="0" cellspacing="0" cellpadding="0">				  <tr>					<td width="50%"><div align="left"><span class="TextTahoma11Cinza">Página <%=VarPagina%> de <%=TotaldePaginas%></span></div></td>					<td width="50%"><div align="right">						<%							  							  If VarPagina > 1 Then									  Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina="& VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> | </span>"							  End if							  							  If VarPagina <> TotaldePaginas Then									Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Proxima</a>"							  End If							  							  %>					</div></td>				  </tr>			  </table></td>			</tr>			<%End If%>			<tr>			  <td height="20" align="center" valign="middle"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>			</tr>			<tr>			  <td height="20" align="center" valign="middle"><%=Voltar%></td>			</tr>		</table></td>		<td width="151" valign="top"><!--#include file="../Includes/BarraDirAdm.asp"--></td>	  </tr>	</table></td>  </tr>  <tr>	<td><!--#include file="../Includes/RodapeAdm.asp"--></td>  </tr></table><%Call FechaBanco%>

 

CÓDIGO DEPOIS QUE EU TROQUEI

 

<!--#include file="../Includes/Config.asp"--><!--#include file="../Includes/ADOVBS.inc"--><!--#include file="../Includes/Travar2.asp"--><link href="../Includes/Styles.css" rel="stylesheet" type="text/css"><%Call AbreBancoDim VarCategoriaDim VarSubCategoriaDim VarBuscaTextoDim VarActDim VarAct2Dim ProdutosDim CategoriaDim SubCategoriaDim VarPaginaDim TotaldePaginasDim IntI	VarCategoria = Request("Categoria")VarSubCategoria = Request.QueryString("SubCategoria")VarBuscaTexto = Request.Form("BuscaTexto")'VarBuscaTexto = Request.Form("BuscaTexto")VarAct2 = Request.QueryString("Act2")Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")VarAct = Request.QueryString("Act")If Request.QueryString("Pagina") = "" Then	VarPagina = 1	Else	VarPagina = Request.QueryString("Pagina")	Select case VarAct		'Case "Anterior"			'VarPagina = VarPagina - 1		Case "Anterior"			VarPagina = VarPagina - 1	if VarPagina = 0 then : VarPagina = "" : end if			Case "Proxima"			VarPagina = VarPagina + 1	End select	End IfSet Produtos = Server.CreateObject("ADODB.RecordSet")Produtos.CursorLocation = adUseClientProdutos.CursorType = adOpenStaticProdutos.CacheSize = TotalPorPaginaIf VarAct2 = "" and VarCategoria <> "" and VarSubCategoria = "" Then	Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")		Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"&VarCategoria&"' And Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText	Elseif VarAct2 = "" and VarSubCategoria <> "" Then		Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")		Set SubCategoria = Banco.Execute("SELECT * FROM SubCategorias WHERE Cod LIKE '"& VarSubCategoria &"'")		Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' And CodSubCategoria LIKE '"&VarSubCategoria&"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdText	Elseif VarAct2 = "Busca" and VarCategoria = "0" and VarBuscaTexto <> "" Then	Produtos.Open "SELECT * FROM Produtos WHERE NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseif VarAct2 = "Busca" and VarBuscaTexto <> "" and VarCategoria <> "0" Then	Set Categoria = Banco.Execute("SELECT * FROM Categorias WHERE Cod LIKE '"& VarCategoria &"'")		Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseif VarAct2 = "Busca" and VarBuscaTexto = "" Then	Produtos.Open "SELECT * FROM Produtos WHERE CodCategoria LIKE '"& VarCategoria &"' AND NomeProduto LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY NomeProduto ASC", Banco, , , adCmdTextElseIf VarAct2 = "" and VarCategoria = "" and VarSubCategoria = "" Then	Produtos.Open "SELECT * FROM Produtos ORDER BY Cod Desc", Banco, , , adCmdTextEnd If%><table width="771" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">  <tr>	<td><!--#include file="../Includes/BarraCimaAdm.asp"--></td>  </tr>  <tr>	<td><table width="771"  border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">	  <tr>		<td width="151" valign="top"><!--#include file="../Includes/BarraEsqAdm.asp"--></td>		<td width="469" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">			<tr>			  <td width="100%" height="9%" align="center"><img src="../Imagens/SpacerCima.gif" width="1" height="9"></td>			</tr>			<tr>			  <td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left"><span class="TextTahoma11AzulBold">  						<%If VarCategoria <> "" and VarCategoria <> "0" and VarAct2 <> "Busca" Then Response.Write Categoria("Categoria") Else Response.Write "Resultado da Busca" End If%>				  </span><span class="TextTahoma11Azul">				  <%If VarSubCategoria <> "" Then Response.Write " >>> " & SubCategoria("SubCategoria") End If%>			  </span></div></td>			</tr>			<tr>			  <td height="20" align="center"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>			</tr>			<tr>			  <td height="20" align="center"><div align="right"><a href="InsProduto.asp" class="LinkTahoma11CinzaBold">Inserir novo produto </a></div></td>			</tr>			<tr>			  <td height="20" align="center"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>			</tr>			<tr>			  <td height="5%" align="center"><%						  						  Produtos.PageSize = TotalPorPagina						  						  If Produtos.EOF Then								  Response.Write "<tr><td><center><br /><span class=TextTahoma11CinzaBold>Não foi encontrado nenhum produto com essas especificações!</span><br /><br /></center></td></tr>"						  Else						  						  %>			  </td>			</tr>			<tr>			  <td height="5%" align="center"><div align="right"><span class="TextTahoma11Cinza">Foram encontrados <%=Produtos.RecordCount%> resultados.</span></div></td>			</tr>			<tr>			  <td height="20" align="center"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>			</tr>			<tr>			  <td align="center" valign="middle"><table width="95%"  border="0" cellspacing="0" cellpadding="0">				  <%								Produtos.AbsolutePage = VarPagina						TotaldePaginas = Produtos.PageCount												For intI = 1 to Produtos.PageSize												%>				  <tr>					<td width="177" rowspan="3" align="left" valign="middle"><a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>"><img src="<%=Produtos("Foto2")%>" width="165" height="106" border="0"></a></td>					<td width="252" valign="bottom"> <a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>" class="LinkTahomaVinhoBold"><%=Produtos("Cod")%></a></td>				  </tr>				  <tr>					<td valign="top"> <a href="MaisProduto.asp?Produto=<%=Produtos("Cod")%>" class="LinkTahoma12cinzabold"><%=Produtos("NomeProduto")%></a></td>				  </tr>				  				  <tr>					<td width="252" valign="top"><table width="205" border="0" cellspacing="0" cellpadding="0">						<tr>						  <td colspan="2" valign="middle"><div align="left">							<%If Produtos("Destaque") = True Then%>							<a href="StaDestaque.asp?Produto=<%=Produtos("Cod")%>&Act=Down"><img src="../Imagens/IcDesDestacar.gif" alt="Tirar de destaque" border="0"></a>							<%Else%>							<a href="StaDestaque.asp?Produto=<%=Produtos("Cod")%>&Act=Up"><img src="../Imagens/IcDestacar.gif" alt="Colocar em destaque" border="0"></a>							<%End If%>    							<%If Produtos("Status") = True Then%>							<a href="StaProduto.asp?Produto=<%=Produtos("Cod")%>&Act=Desativar"><img src="../Imagens/IcDesAtivar.gif" alt="Desativar" border="0"></a>							<%Else%>							<a href="StaProduto.asp?Produto=<%=Produtos("Cod")%>&Act=Ativar"><img src="../Imagens/IcAtivar.gif" alt="Ativar" border="0"></a>							<%End If%>     <a href="AltProduto.asp?Produto=<%=Produtos("Cod")%>"><img src="../Imagens/IcAtualizar.gif" alt="Alterar informações" border="0"></a>    <a href="DelProduto.asp?Produto=<%=Produtos("Cod")%>"><img src="../Imagens/IcDelete.gif" alt="Deletar" border="0"></a>							<%If Produtos("Promocao") = True Then%>							<a href="StaPromocao.asp?Produto=<%=Produtos("Cod")%>&Act=Down"><img src="../Imagens/ictirarpromo.jpg" alt="Tirar Promoção" border="0"></a>							<%Else%>							<a href="StaPromocao.asp?Produto=<%=Produtos("Cod")%>&Act=Up"><img src="../Imagens/icpromo.jpg" alt="Colocar Promoção" border="0"></a>							<%End If%>						  </div></td>						  </tr>											</table></td>				  </tr>				  <tr align="center" valign="middle">					<td height="20" colspan="2"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>				  </tr>				  <%														Produtos.MOVENEXT														If Produtos.EOF Then Exit For														Next														%>			  </table></td>			</tr>			<tr>			  <td height="20" align="center" valign="middle"><table width="100%"  border="0" cellspacing="0" cellpadding="0">				  <tr>					<td width="50%"><div align="left"><span class="TextTahoma11Cinza">Página <%=VarPagina%> de <%=TotaldePaginas%></span></div></td>					<td width="50%"><div align="right">						<%							  							  If VarPagina > 1 Then							  Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior |</a>"									  'Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina="& VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior</a><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> | </span>"							  End if							  							  If VarPagina <> TotaldePaginas Then									  Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"									'Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Proxima</a>"							  End If							  							  %>					</div></td>				  </tr>			  </table></td>			</tr>			<%End If%>			<tr>			  <td height="20" align="center" valign="middle"><img src="../Imagens/LinhaCinzaClaro.gif" width="100%" height="1"></td>			</tr>			<tr>			  <td height="20" align="center" valign="middle"><%=Voltar%></td>			</tr>		</table></td>		<td width="151" valign="top"><!--#include file="../Includes/BarraDirAdm.asp"--></td>	  </tr>	</table></td>  </tr>  <tr>	<td><!--#include file="../Includes/RodapeAdm.asp"--></td>  </tr></table><%Call FechaBanco%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Retira o if de dentro do Select Case e coloca ele em cima do código que cria o links ANTERIOR e PRÓXIMO.

<%
if VarPagina = 0 then : VarPagina = "" : end if

If VarPagina > 1 Then
	Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior |</a>"
End if
							  
If VarPagina <> TotaldePaginas Then
	Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"
End If
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Creator    0

Creator
Postado

Retira o if de dentro do Select Case e coloca ele em cima do código que cria o links ANTERIOR e PRÓXIMO.

<%if VarPagina = 0 then : VarPagina = "" : end ifIf VarPagina > 1 Then	Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Anterior"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Anterior |</a>"End if							  If VarPagina <> TotaldePaginas Then	Response.Write "<a href="& Chr(34) & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&BuscaTexto="& VarBuscaTexto &"&Act2="& VarAct2 &"&Categoria="& VarCategoria &"&SubCategoria="& VarSubCategoria &"&Act=Proxima"& Chr(34) &" class="& Chr(34) &"LinkTahoma11CinzaBold"& Chr(34) &">Próxima</a>"End If%>
Ixe num deu ele da nenhum produto encontrado

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