Ir para conteúdo

POWERED BY:

Arquivado

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

W.Silva

Paginação!!

Por , em ASP Clássico

Recommended Posts

W.Silva    0

W.Silva
Postado

Salve Galera!!

 

Não consigo montar minha paginação com links....

 

Vejam:

 

<%	Dim Conn, strConn, Rs, objCmd, Consumidores_SQL, cRegistros, pag	pag = Request.QueryString("nPagina")		If pag = "" Then  pag = 1	End If		Set Conn = Server.CreateObject("adodb.connection")		strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=."		Conn.Open (strConn)	Set Rs = Server.CreateObject("adodb.recordset")	Consumidores_SQL = "SELECT CustomerID, CompanyName, ContactName FROM Customers"	Set Rs = Conn.Execute(Consumidores_SQL)	cRegistros = 0	Rs.PageSize = 20	'Definindo o numero de registros na pagina%><html><head><title>SQL -Server</title><style type="text/css"><!--.azul {	font-family: Verdana;	font-size: 10px;	background-color: #007CA6;	font-weight: bold;	color: #FFFFFF;}.subtitulos {	font-family: Verdana;	font-size: 9px;	font-weight: bold;	text-indent: 10pt;}.dados {	font-family: Verdana;	font-size: 10px;	background-color: #F7F7F7;}.bordaInferior {	border-top-width: 1px;	border-right-width: 1px;	border-bottom-width: 1px;	border-left-width: 1px;	border-top-style: none;	border-right-style: solid;	border-bottom-style: solid;	border-left-style: none;	border-top-color: #666666;	border-right-color: #666666;	border-bottom-color: #666666;	border-left-color: #666666;}--></style><style type="text/css"><!--.final {	font-family: Verdana;	font-size: 10px;}--></style></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="780" height="94" border="0" cellspacing="0">  <tr>     <td height="10" colspan="3" class="azul"><p align="center"> NorthWind - Fornecedores</p></td>  </tr>  <tr>     <td width="69" class="bordaInferior"> <p align="center" class="subtitulos">Código:</p></td>    <td width="386" height="10" class="bordaInferior"> <p align="center" class="subtitulos">Nome         da Companhia:</p></td>    <td width="319" height="10" class="bordaInferior"> <p align="center" class="subtitulos">Nome         do Contato:</p></td>  </tr>  <% While Not Rs.EOF and cRegistros<Rs.PageSize  %>  <tr>     <td height="10"> <p align="center" class="dados"> <%=Rs("CustomerID")%></p></td>    <td height="10"> <p class="dados"> <%=Rs("CompanyName")%></p></td>    <td height="10"> <p class="dados"> <%=Rs("ContactName")%></p></td>  </tr>  <% 	 cRegistros = cRegistros + 1 	 Rs.MoveNext	Wend  %>  <tr>     <td height="20" colspan=2> <p class="final"><strong>Total:</strong> <%=cRegistros%> fornecedores</p></td>    <td height="20"><p class="final">Pagina: <%%></p></td>  </tr>  <tr>     <td height="10" colspan="3" class="azul"><p align="center">SQL Server 7.0</p></td>  </tr></table></body></html><%	Response.Cookies("Fornecedores")="Index01"	Rs.Close	Set Rs = Nothing	Conn.Close	Set Conn = Nothing%>
Funciona normal, mas os links.... (Pagina: 01 | 02 | 03 | ......) não consigo faze-los de forma alguma. Já tentei de tudo, se alguem puder me ajudar....

 

Abraços

W.Silva

Compartilhar este post

Link para o post
Compartilhar em outros sites

W.Silva    0

W.Silva
Postado

Nossa que viaji!!! Eu só usei paginação uma vez, após isto, nunca mais........... RecordCount conta o numero de registros armazenados no seu RecordSet Pagesize seria o tamanho dos registros nas paginas ? ou sera AbsolutePage ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

mjs    0

mjs
Postado

Nossa que viaji!!! Eu só usei paginação uma vez, após isto, nunca mais........... RecordCount conta o numero de registros armazenados no seu RecordSet Pagesize seria o tamanho dos registros nas paginas ? ou sera AbsolutePage ?

PageSize conta o número de registros que serão mostrados por páginas.AbsolutePage é a página atual pelo que lembro

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