Problemas com Paginação

[tebba 0]

Pessoal, to usando o código do iMaster para fazer paginação e deu problema com o AbsolutePage. Eu coloco um Rs.AbsolutePage=intPagina e dá o seguinte erro:

Tipo de erro:ADODB.Recordset (0x800A0BB9)Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito./kart/fotos.asp, line 90

Quando eu dou um Response.Write nele, ele me retorna -1.Vou colocar o código abaixo para que vcs possam analisar!

  <%    Dim strFotos, RsFotos    Dim Registros, intPagina, intRec, Foto  strFotos = "Select * From Fotos Where Id_Etapa=1 Order By Foto"  Set RsFotos  = Server.CreateObject("ADODB.Recordset")  Registros = 3  Conn.CursorLocation = 3 'adUseClient  RsFotos.Open strFotos, strConn  RsFotos.PageSize = Registros'  RsFotos.CacheSize = Registros    If RsFotos.Eof then  Response.Write "Nenhuma Foto foi encontrada"  Response.End()  else  If Request.QueryString("pagina") = "" then    intPagina = 1  else    if CInt(Request.QueryString("pagina")) < 1 then    intPagina = 1    else    if CInt(Request.QueryString("pagina")) > RsFotos.PageCount then      intPagina = RsFotos.PageCount    else      intPagina = Request.QueryString("pagina")    end if    end if  end if  end if'  Response.Write RsFotos.AbsolutePage    RsFotos.AbsolutePage = intPagina    intRec = 0  while intRec < RsFotos.PageSize AND NOT RsFotos.EOF  Foto = CInt(RsFotos("Foto"))  if Foto< 10 then    Foto = "000" & Foto  elseif Foto < 100 then    Foto = "00" & Foto  elseif Foto < 1000 then    Foto = "0" & Foto  end if  Response.Write "<img src='fotos/1aEtapa/"& Foto &".jpg' width='133' heigth='100'><br>"  Response.Write ""  RsFotos.Movenext()  intRec = intRec + 1    if RsFotos.EOF then    Response.Write " "  end if  wend    if intPagina > 1 then  Response.Write "<a href='fotos.asp?pagina="& intPagina-1 &"'> Anterior </a>"  end if    if strComp(intPagina, RsFotos.PageCount) then  Response.Write "<a href='fotos.asp?pagina="& intPagina+1 &"'> Próximo </a>"  end if              %>

Será que alguém pode me ajudar????????Valeu pessoal!

[tebba 0]

Bom pessoal, se alguem tiver esse mesmo probleminha ja achei o erro:

 

Na str de conexão:

RsFotos.Open strFotos, strConn

Deve ser adicionado:

RsFotos.Open strFotos, strConn, 3, 3

Agora oq é esse 3,3 ja nao sei! se alguem souber coloque ai!

 

Mas fiz isso e funcionou...

 

Abraço!