Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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.SilvaCarregando comentários...