Páginação

[Guest Gi]

Como faço nesse codigo para mostrar apenas 15 registros por página e colocar Pagina 1 de 2...Obrigado

<%

option explicit

dim Conn, rsQuery, SQLString

dim dsResultado, i, dsCab, dsCategoria, dsCategoriaCheck

%>

<!--#include file="includes/Conn.asp"-->

<%

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

SQLString = "SELECT CAT.CAT_TXT_DESCRICAO AS CATEGORIA, COM.COM_NUM_CODIGO AS CODIGO, COM_TXT_NOME AS NOME, COM.COM_TXT_BAIRRO AS BAIRRO, COM.COM_TXT_ESTADO AS ESTADO ,COM.COM_TXT_CIDADE AS CIDADE FROM CAT, COM WHERE "

If Len(Trim(Request.form("keyword"))) <> 0 then

SQLString = SQLString&" COM.COM_TXT_NOME LIKE '%"&Request.form("keyword")&"%' AND"

End If

If Request.form("idCat") <> "all" then

SQLString = SQLString&" CAT.CAT_NUM_CODIGO = "&Request.form("idCat")&" AND CAT.CAT_NUM_CODIGO = COM.CAT_NUM_CODIGO"

Else

SQLString = SQLString&" CAT.CAT_NUM_CODIGO = COM.CAT_NUM_CODIGO"

End If

If Request.form("dsBairro") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_BAIRRO = '"&Request.form("dsBairro")&"'"

End If

If Request.form("dsCidade") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_CIDADE = '"&Request.form("dsCidade")&"'"

End If

If Request.form("dsEstado") <> "all" then

SQLString = SQLString&" AND COM.COM_TXT_ESTADO = '"&Request.form("dsEstado")&"'"

End If

SQLString = SQLString&" AND COM.COM_FL_ATIVO = '1' GROUP BY CAT.CAT_TXT_DESCRICAO, COM.COM_TXT_BAIRRO, COM.COM_TXT_CIDADE, COM.COM_TXT_ESTADO, COM.COM_TXT_NOME, COM.COM_NUM_CODIGO ORDER BY 1,2 ASC"

On Error Resume Next

rsQuery.Open SQLstring, Conn

dsResultado = ""

dsCategoriaCheck = ""

If rsQuery.EoF Then

dsCab = "<font face=""verdana"" size=""1""><b>Não foram encontrados resultados para a sua busca!"

Else

i = 0

while not rsQuery.EoF

dsCategoria = rsQuery("CATEGORIA")

If dsCategoria <> dsCategoriaCheck Then

dsResultado = dsResultado&"<font face=""verdana"" size=""1"" color=003366><b>"&dsCategoria&"</b></font>"

End If

i = (i + 1)

dsResultado = dsResultado & "<tr><td><font face=""verdana"" size=""1"" color=#003366><b><a href=""dspMostraDet.asp?idEst="&rsQuery("CODIGO")&""" target=""_self"">"&rsQuery("NOME")&"</a> </b><br> "&rsQuery("BAIRRO")&"<br>"&rsQuery("CIDADE")&" - "&rsQuery("ESTADO")&" <br></font><table width=600 border=0><tr><td><a href=""dspMostraDet.asp?idEst="&rsQuery("CODIGO")&""" target=""_self""><img src=http://www.checkpoint.com.br/site/img/detalhes.gif border=0></a></td><td><img src=http://www.checkpoint.com.br/site/img/reservar.gif></td></tr></table></td></tr><br><br>"

dsCategoriaCheck = dsCategoria

rsQuery.Movenext

wend

If i = 1 Then

dsCab = "<font face=""verdana"" size=""1""><b>Foi encontrado "&i&" registro para a sua busca!"

Else

dsCab = "<font face=""verdana"" size=""1""><b>Foram encontrados "&i&" registros para a sua busca!"

End If

End If

rsQuery.Close

Conn.Close

Set rsQuery = Nothing

Set Conn = Nothing

%>

[bareta]

da uma olhada

http://scriptbrasil.com.br/forum/index.php...indpost&p=60707

[Guest Gi]

[Guest - Marcelo -]

alguém tem um codigo par reload automatico a cada 2segundos?

[cyberalexxx]

Sr. Marcelo isso não tem nada a ver com o POST mais toma ai:

<%Response.AddHeader "Refresh", "2"%>

[ursolouco]

Sr. Marcelo isso não tem nada a ver com o POST mais toma ai:

<%Response.AddHeader "Refresh", "2"%>

Sr Marcelo!!!

Se o código enviado não resolver o vosso problema, procure ultilizar Allow Meta Refresh..