RE:¿cuando cerrar los objetos ObRs y Objcon?
Publicado por
Alejandro (1 intervención) el 03/10/2000 00:00:00
Aca te envio un ejemplo a si lo entendes
Dim Conexion, Rst, PaginaActual
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Rst = Server.CreateObject("ADODB.Recordset")
Conexion.Open ´...y tu conexion a la bd
Rst.ActiveConnection = Conexion
Rst.CursorType=1
Rst.Source= ´... tu query SQL
Rst.Open
Rst.PageSize=10
paginaactual=Request("p")
If paginaactual="" Then paginaactual=1
PaginaActual=CInt(PaginaActual)
If paginaactual > Rst.PageCount Then paginaactual=Rst.Pagecount
Rst.AbsolutePage = paginaactual
´.....Aca armas tu pagina y mostras los registros utilizando la instruccion
For I=1 To Rst.PageSize
......
Rst.MoveNext
If Rst.Eof Then Exit For
Next
´Aca colocas los links a las siguientes paginas
´Este es para Pagina Anterior
If (Rst.PageCount > 1 and Rst.PageCount >= paginaactual and not paginaactual=1) Then
<a href="...&p=<%=paginaactual - 1%>">Anterior</a>
<%End If%>
´Y este es para Siguiente
If Rst.PageCount > 1 and paginaactual < Rst.PageCount Then
<a href="...&p=<%=paginaactual + 1%>">
Siguiente</a>
<%End If%>
Rst.Close
Conexion.Close
Set Rst=Nothing
Set Conexion=Nothing
Espero que te sirva. Saludos