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