Mostrando 15 registros por página

[gica 0]

Como faço nesse codigo para mostrar apenas 15 registros por página e colocar Pagina 1 de 2...Obrigado<%option explicitdim Conn, rsQuery, SQLStringdim 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 IfIf 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 IfIf Request.form("dsBairro") <> "all" then SQLString = SQLString&" AND COM.COM_TXT_BAIRRO = '"&Request.form("dsBairro")&"'"End IfIf Request.form("dsCidade") <> "all" then SQLString = SQLString&" AND COM.COM_TXT_CIDADE = '"&Request.form("dsCidade")&"'"End IfIf Request.form("dsEstado") <> "all" then SQLString = SQLString&" AND COM.COM_TXT_ESTADO = '"&Request.form("dsEstado")&"'"End IfSQLString = 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 NextrsQuery.Open SQLstring, ConndsResultado = ""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 IfEnd IfrsQuery.CloseConn.CloseSet rsQuery = NothingSet Conn = Nothing%>

[WLJ 0]

Dá uma olhada neste tópico do nosso amigo Bicicleta. Acho que pode te ajudar. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[gica 0]

Olhei e mudei meu codigo....nao da erro mas tambem nao me retorna nada..algume pode me ajudar???<%option explicitdim Conn, rsQuery, SQLString , registros, paginadim dsResultado, i, dsCab, dsCategoria, dsCategoriaCheck%><!--#include file="includes/Conn.asp"--><%registros = 20pagina = Request.QueryString("pagina")If pagina = "" Thenpagina = 1End IfSet rsQuery = Server.CreateObject("ADODB.RecordSet")rsQuery.PageSize = registros 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 IfIf 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 IfIf Request.form("dsBairro") <> "all" then SQLString = SQLString&" AND COM.COM_TXT_BAIRRO = '"&Request.form("dsBairro")&"'"End IfIf Request.form("dsCidade") <> "all" then SQLString = SQLString&" AND COM.COM_TXT_CIDADE = '"&Request.form("dsCidade")&"'"End IfIf Request.form("dsEstado") <> "all" then SQLString = SQLString&" AND COM.COM_TXT_ESTADO = '"&Request.form("dsEstado")&"'"End IfSQLString = 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 NextrsQuery.Open SQLstring, ConndsResultado = ""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 rs.AbsolutePage = pagina While Not rsQuery.EOF AND x < rs.PageSize x = x + 1 %> <b><%=rsQuery("campo")%></b><br> <% rsQuery.MoveNext Wend wend anterior = pagina - 1proxima = pagina + 1ultima = rsQuery.PageCountprimeira = 1ultm2 = FormatNumber(rsQuery.PageCount - 1,0)If pagina <> 1 ThenResponse.Write "<b>« <a href=site.asp?pagina="&primeira&">Primeira Página</a></b> "End IfIf pagina > 1 AND pagina <> 2 ThenResponse.Write "<b>[ <a href=site.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "End IfIf pagina > 1 ThenResponse.Write "<b>[ <a href=site.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "End IfResponse.Write "<b>[ "&pagina&" ]</b> "If Not rsQuery.EOF ThenResponse.Write "<b>[ <a href=site.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "End IfIf Not rsQuery.EOF AND pagina <> ultima AND pagina <> ultm2 ThenResponse.Write "<b>[ <a href=site.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "End IfIf Not rsQuery.EOF ThenResponse.Write "<b><a href=site.asp?pagina="&ultima&">Última Página</a> »</b> "End If 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 IfEnd IfrsQuery.CloseConn.CloseSet rsQuery = NothingSet Conn = Nothing%>