Paginação

[lordstarlight 0]

Olá Galera,

 

Estou tentanto adaptar um código de paginação pego no laboratório de scripts e agora apresenta esse erro:

 

Tipo de erro:

ADODB.Recordset (0x800A0CB3)

O conjunto de registros atual não oferece suporte para indicadores. Isso pode ser uma limitação do provedor ou do tipo de cursor selecionado.

 

Alguém sabe o que esta errado.

 

Valeu http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[lordstarlight 0]

Lá vai.

 

 

If  act = "list" ThenPagAtual = Request.QueryString("PagAtual") 'página atualSet conn = Server.CreateObject("ADODB.Connection")' Sem DNSconn.Open "DSN=db;UID=root;PWD=;DATABASE=db"Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = "SELECT * FROM Customers"RS.Open SQL, conn, 3'############## paginacao Introdução  #################'------- Coloque aqui a quantidade de registros que você deseja por página --------Const NumPorPage = 5'Verifica qual a página solicitada   Dim PagAtual   IF Request.QueryString("PagAtual") = "" Then		 PagAtual = 1 'Primeira página	 Else		 PagAtual = Request.QueryString("PagAtual")   End If   'Cria conexão com o Banco de Dados, já abrir anteriormente   'Criado anteriormente Set RS = Server.CreateObject("ADODB.Recordset")   '>>> FIZ EM CIMA RS.CursorLocation = 3		Acerta a posição do cursor . 3 ou adUseClient     RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros   'Cria a String SQL   '>>> FIZ EM CIMA Dim SQLpag   '>>> FIZ EM CIMA SQLpag = "SELECT * FROM jogos"   '>>> FIZ EM CIMA RS.Open SQLpag, Conn	Abre o RecordSet	RS.MoveFirst				'Move o RecorSet para o início 	RS.PageSize = NumPorPage	'Coloca a quantidade de páginas	Dim TotalPages			  'Pega o número total de páginas	TotalPages = RS.PageCount	RS.AbsolutePage = PagAtual  'Configura a página atual'############## paginacao Introdução  - FIM #################Count = 0	   'Zera o contador   'Inicia a Função DO, utilizando a quantidade de páginas especificadas'Ou seja ele irá executar a ação até que o valor Count seja menor que "20" como está no nosso exemplo i = 0 DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize %>	 <span class="text5-11">Clientes Cadastrados</span> <br> <br> 	  <table width="80%" height="0%" border="0" align="center" cellpadding="0" cellspacing="0" class="text2-11" >	 <%malha = "malha1"	  contador = 0	idCustomer = rs("idCustomer")	dateCad = rs("dateCad")	customer = rs("customer")	cpf = rs("cpf")	address = rs("address")	district = rs("district")	city = rs("city")	state = rs("state")	zipCode = rs("zipCode")	ddd = rs("ddd")			phone = rs("phone")	refPoint = rs("refPoint")		email = rs("email")	profile = rst("profile")	password = rst("password")	contador = contador + 1	%>		<tr  class="<%=malha%>"> 		  <td width="94" class="textPadBold"> Id :</td>		  <td><span class="text4-2"><%=idCustomer%></span></td>		  <td> Cadastrado em :<span class="text3-1">  </span></td>		  <td><span class="text3-1"><%=dateCad%></span></td>		  <td width="112" rowspan="8"> <form action="<%=Request.ServerVariables("URL")%>" method="post">			  <div align="center"> 				<input type="hidden" name="idCustomer" value="<%=idCustomer%>">				<input type="submit" name="act" value="Editar" style="font: 10px; color: #0071E1">				<input type="submit" name="act" value="Excluir" onClick="return confirm('Você deseja realmente excluir este registro?')" style="font: 10px; color: #FF0000">			  </div>			</form></td>		</tr>		<tr  class="<%=malha%>"> 		  <td class="textPadBold"> Nome :</td>		  <td> <span class="text3-1"><%=customer%></span></td>		  <td>CPF :</td>		  <td><span class="text3-1"><%=cpf%></span></td>		</tr>		<tr  class="<%=malha%>"> 		  <td class="textPadBold"> Endereço :</td>		  <td colspan="3"><span class="text3-1"><%=address%></span></td>		</tr>		<tr class="<%=malha%>"> 		  <td class="textPadBold"> Bairro :</td>		  <td width="270"><span class="text3-1"><%=district%></span> </td>		  <td width="111">Cidade : </td>		  <td width="194"><span class="text3-1"><%=city%></span> </td>		</tr>		<tr class="<%=malha%>"> 		  <td class="textPadBold"> Estado :</td>		  <td><span class="text3-1"><%=state%></span></td>		  <td>CEP :</td>		  <td><span class="text3-1"><%=zipCode%></span></td>		</tr>		<tr class="<%=malha%>"> 		  <td class="textPadBold"> Telefone :</td>		  <td><span class="text3-1">(<%=ddd%>) <%=phone%></span></td>		  <td>Ponto Ref. :</td>		  <td><span class="text3-1"><%=refPoint%></span></td>		</tr>		<tr class="<%=malha%>"> 		  <td class="textPadBold"> E-mail :</td>		  <td><a href="mailto:<%=email%>" class="text3-2"><%=email%></a></td>		  <td>Perfil :</td>		  <td><span class="text3-1"><%=profile%></span></td>		</tr>		<tr class="<%=malha%>"> 		  <td class="textPadBold"> Senha :</td>		  <td><span class="text3-1"><%=password%></span></td>		  <td> </td>		  <td> </td>		  <%if 	malha = "malha1" Then			malha = "malha2"			Else			malha = "malha1"			End If			i = i+1		 Count = Count + 1   'paginacao   		 RS.MoveNext   		 LOOP				'tb paginacao%>		</tr>	  </table><%var01 = Len(PagAtual) 'Lê o tamanho do numerovar02 = var01 - 1 'subtrai um da variavel , retirando o digito menos sig.var03 = Left(PagAtual,var02) 'obtem os digitos mais  sig. do numerovar04 = Right(PagAtual,1)	'obtem o digito menos sig. do numerovar05 = var03 & 0 ' Acrecenta ZERO no finalIF var04 <> 0 THEN	 ' condição se o digito menos sig. é Zeroinicial = var05 + 1final = inicial + 9  ELSEinicial = var05 - 9  final = var05END IFindice_i = var04 - 1 'ultimo digito  - 1indice_f = 10 - var04 ' 10 - digito menos sig.' If CInt(inicial) < 1 Then inicial = 1If CInt(final) > CInt(TotalPages) Then final = TotalPages'------------------------------------------------------------------------------IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima	  Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 	  Response.Write("<a href='jogos.asp?PagAtual=" &  1 & "'>")	  Response.Write("Primeira") 	  Response.Write("</a></font></B>  ")	  	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 	  Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>")	  Response.Write("Anterior") 	  Response.Write("</a></font></B>  ")	  IF PagAtual > 10 THEN	   Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 	   Response.Write("<a href='jogos.asp?PagAtual=" & inicial - 1 & "'>")	   Response.Write("...") 	   Response.Write("</a></font></B>  ")	   ELSE	   Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 	   Response.Write("....") 	   Response.Write("</font></B>  ")	   END IF  Else	  Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") 	  Response.Write("Primeira") 	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 	  Response.Write("Anterior") 	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 	  Response.Write("...") 	  Response.Write("</font></B>  ")End If'---------------------- NUMEROS  ---------------------------For i = inicial To final	 If CInt(i)=CInt(PagAtual) Then		 Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "	 END IF	 If CInt(i) < CInt(PagAtual) Then	  Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a></font>  "	 END IF	 If CInt(i) > CInt(PagAtual) Then		 Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a></font>  "  END IFNext'------------------------------------------------------IF CInt(PagAtual) <> CInt(TotalPages) THEN p1 = Left(PagAtual,var02) p2 = Left(TotalPages,var02)p3 = Left(TotalPages,var02) & 0'##### CONDIÇÕES ########'digitos mais significativos do Numero com 1 no fim > PagAtual'EX:  21   [ 22 ]  23   24  25		 2 com 1 => 21 > 22 (F)'OU'PagAtual <= 10	  E	TotalPages > 10'EX:  ... 1  2  3  4 [ 5 ]  6  ...			  5 <= 10 (V)  E   6 > 10 (F) IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN 	   Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")	   Response.Write("<a href='jogos.asp?PagAtual=" & final + 1 & "'>")	   Response.Write("...")	   Response.Write("</a></font></B>  ") 		 ELSE	   Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")	   Response.Write("...") 	   Response.Write("</font></B>  ")   END IF	  Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")	  Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual + 1 & "'>")	  Response.Write("Próxima")	  Response.Write("</a></font></B>  ") 	  Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")	  Response.Write("<a href='jogos.asp?PagAtual=" & TotalPages & "'>")	  Response.Write("Ultima")	  Response.Write("</a></font></B>  ")		 ELSE	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")	  Response.Write("...") 	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")	  Response.Write("Próxima") 	  Response.Write("</font></B>  ")	  Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")	  Response.Write("Ultima") 	  Response.Write("</font></B>  ")End If %>