Botones anterior siguiente...

biblio · #1 (**permalink**) 24/01/2002, 14:07

Tengo dos botones Anterior y Siguiente como es lógico debo navegar a travez de ellos registro en registro. tengo que usar por cierto el Movenext y MovePrevious, la pregunta es. como asocio a un boton indicandole que debe ir al primer o anterior registro?. debo crear una función, y como lo llamo.

Saludos?

Claudito · #2 (**permalink**) 24/01/2002, 16:00

revisa este artículo que te podría ayudar
http://www.aspfacil.com/articulos/paginar.asp

urjose · #3 (**permalink**) 24/01/2002, 16:08

encontre el siguiente codigo espero que te sirva el link anterior es por si usas links para navegar entre las paginas pero si usas botones aqui esta

salu2

<HTML>
<TITLE> Paginar una tabla </TITLE>
<BODY>

<% IF (Request.QueryString ("Pagina") = "Pagina Siguiente") THEN
Session ("Pagina")= Session ("Pagina") + 1
ELSE IF (Request.QueryString ("Pagina") = "Pagina Anterior") THEN
Session ("Pagina")= Session ("Pagina") - 1
ELSE Session ("Pagina")= 1
END IF
END IF

Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "EjemploBD"
Ob_RS.Open "Fichas", Ob_Conn, adOpenStatic, adCmdTable

Ob_RS.PageSize = 9
Ob_RS.AbsolutePage = Session ("Pagina") %>

<H3> PAGINA <%= Session ("Pagina") %> DE <%= Ob_RS.PageCount %></H3>
<TABLE BORDER=1>
<TR>
<TH> DNI </TH>
<TH> NOMBRE </TH>
<TH> APELLIDOS </TH>
<TH> DIRECCION </TH>
<TH> TELEFONO </TH>
<% Registro=0
DO WHILE Registro < 9 AND NOT Ob_RS.Eof %>
<TR>
<TD><%= Ob_RS ("DNI") %></TD>
<TD><%= Ob_RS ("Nombre") %></TD>
<TD><%= Ob_RS ("Apellidos") %></TD>
<TD><%= Ob_RS ("Dirección") %></TD>
<TD><%= Ob_RS ("Teléfono") %></TD>
<% Registro = Registro + 1
Ob_RS.MoveNext
LOOP
Response.Write "</TABLE>" %>

<BR>
<FORM METHOD="Get" ACTION="EjBD6.asp">
<% IF Session ("Pagina") > 1 THEN %>
<INPUT TYPE="Submit" VALUE="Pagina Anterior" NAME="Pagina"><BR>
<% END IF
IF Session ("Pagina") < Ob_RS.PageCount THEN %>
<INPUT TYPE="Submit" VALUE="Pagina Siguiente" NAME="Pagina">
<% END IF %>
</FORM>
<% Ob_RS.Close
Ob_Conn.Close %>
</BODY>
</HTML>

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">