Erro na páginação

[alonciu]

Ae boa noite galera, estava tentando fazer uma paginação pro site do meu grupo de dança, só que na hora que eu fui rodar, deu esse erro : "Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito." nesta linha -> RS.AbsolutePage=intpagina

vou colocar essa parte do codigo:

<% IF RS.EOF then

Response.Write "nenhum registro encontrado"

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"))> RS.PageCount then

intpagina=RS.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

END IF

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF

varCodigo = rs("codigo") %>

poxa..to me ralando a algum tempo para fazer isso, pois faz um tempo que eu não mexia com programação web...voltei umas semanas atrás e não estou conseguindo fazer isso...se alguém puder me ajudar, agradeço MUITO mesmo viu!

Obrigado e boa noite!

[alonciu]

Perdão, eu atualizei a página denovo e apareceu o seguinte erro : "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.", engraçado que eu nem mudei nada! Mas continua apontando para a mesma linha!

[bareta]

verifique esse tópico

http://scriptbrasil.com.br/forum/index.php?showtopic=12549

[alonciu]

Olá, eu dei uma olhada ai onde voce falou, mas não entendi muito bem...bom..de qualquer jeito eu achei um outro tutorial que quase deu certo!

aparece somente um video por pagina e na primeira pagina aparece escrito, 'Proximo', mas quando eu clico em proximo, não muda o video e some o proximo e não aparece anterior...eu não to conseguindo entender o por que desses erros...

vou postar o codigo novo aqui:

Primeira parte:

<%

Set Conn = Server.CreateObject("AdoDb.Connection")

Conn.Open = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=projetotrixx;User=root;Password=alezinhh"

Dim Conexao,rs,strSQL

Dim video,nome_video,data,varCodigo

Function ConverterDataBanco(ConDataBanco)

ConDataBanco = Year(ConDataBanco) &"-"& Right("0"&Month(ConDataBanco),2) &"-"& Right("0"&Day(ConDataBanco),2)

ConverterDataBanco = ConDataBanco

End Function

data = ConverterDataBanco(Date())

Set RS = Server.CreateObject("adodb.recordset")

RS.PageSize = 1

strSQL = "select * from videos order by codigo desc"

RS.Open strSQL,Conn,3,3

IF RS.EOF then

Response.Write "nenhum registro encontrado"

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"))> RS.PageCount then

intpagina=RS.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

END IF

intrec=0

%>

Segunda parte(aqui é onde eu peço para aparecer o video, o proximo e tudo mais):

<table width="559" border="0">

<tr>

<td colspan="2"><p><b>Selecione abaixo o video que deseja ver:</b></p>

<p>Último video adicionado: <b><% =rs("data_de_inclusao") %></b></p></td>

</tr>

<% While intrec < RS.PageSize and not RS.EOF

varCodigo = rs("codigo") %>

<tr>

<td width="248"><b><% =rs("nome_do_video") %></b> - <% =rs("data_de_inclusao") %></td>

<td width="301">&nbsp;</td>

</tr>

<tr>

<td rowspan="2"><object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" name="player" width="250" height="200" align="middle" id="player">

<param name="movie" value="player.swf?file=<%=rs("video")%>&size=false&aplay=false&autorew=false&title=" />

<param name="menu" value="false" />

<param name="quality" value="high" />

<param name="bgcolor" value="#FFFFFF" /><param name="SCALE" value="noborder">

<embed src="player.swf?file=<%=rs("video")%>&size=false&aplay=false&autorew=false&title=" width="320" height="240" align="middle" menu="false" quality="high" bgcolor="#FFFFFF" name="player" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" scale="noborder" />

</object></td>

<td height="174" align="left">

<% =rs("descricao") %> </td>

</tr>

<tr>

<td align="left"><a href="visu.asp?varCodigo=<%=varCodigo%>">Visualizar em tamanho real</a> </td>

</tr>

<tr>

<td colspan="2">_______________________________________________________________________________</td>

</tr>

<tr>

<td colspan="2">&nbsp;</td>

</tr>

<% rs.MoveNext

intrec=intrec+1

IF RS.EOF then

response.write " "

END IF

Wend

IF intpagina > 1 then %>

<a href="videos.asp?pagina=<%=intpagina-1%>">Anterior</a>

<% End if

iF strcomp(intpagina,RS.PageCount) <> 0 then %>

<a href="videos.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<% End if %>

<tr><td><a href="java script:history.go(-1)">Voltar</a></td></tr>

</table>

alguém me mostra o que está errado por favor!

Obrigado!