Foros del Web - Ver Mensaje Individual - Desplegar resultados en más de una página

Owen-Bonilla · #2 (**permalink**) 22/04/2002, 13:37

te dejo un ejemplo...

Código:

&lt;% IF (Request.QueryString (&quot;Pagina&quot;) = &quot;Pagina Siguiente&quot;) THEN
	Session (&quot;Pagina&quot;)= Session (&quot;Pagina&quot;) + 1
   ELSE IF (Request.QueryString (&quot;Pagina&quot;) = &quot;Pagina Anterior&quot;) THEN
  		Session (&quot;Pagina&quot;)= Session (&quot;Pagina&quot;) - 1
	  ELSE Session (&quot;Pagina&quot;)= 1
	  END IF
   END IF

Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Set Obj_Rs = Server.Createobject(&quot;ADODB.Recordset&quot;)
sConnection = &quot;Provider=Microsoft.Jet.OLEDB.4.0;&quot; &amp; _
              &quot;Data Source=&quot;&amp; _
Server.MapPath(&quot;db/MI_DB.mdb&quot;) &amp; _
&quot;;&quot; &amp; _
              &quot;Persist Security Info=False&quot;
Conn.Open(sConnection)
Obj_RS.Open &quot;MI_TABLA&quot;, Conn, 3 , 3

Obj_RS.PageSize = 9
Obj_RS.AbsolutePage = Session (&quot;Pagina&quot;) %&gt;

&lt;TABLE BORDER=1&gt;
&lt;TR&gt;
&lt;TH&gt; &lt;font color=&quot;#336699&quot;&gt; Clave&lt;/font&gt; &lt;/TH&gt;
&lt;TH&gt; &lt;font color=&quot;#336699&quot;&gt; Nombre Completo&lt;/font&gt; &lt;/TH&gt;

&lt;% Registro=0
DO WHILE Registro &lt; 9 AND NOT Obj_RS.Eof %&gt; 
	&lt;TR&gt;

	&lt;TR&gt;
	&lt;TD&gt;&lt;font color=&quot;#FF0000&quot;&gt;&lt;b&gt;&lt;%= Obj_RS (&quot;Clave_Alumno&quot;) %&gt;&lt;/b&gt;&lt;/font&gt;&lt;/TD&gt;
	&lt;TD&gt;&lt;%= Obj_RS (&quot;Nombre&quot;) %&gt;&lt;/TD&gt;
   &lt;% Registro = Registro + 1
      Obj_RS.MoveNext
LOOP 	
Response.Write &quot;&lt;/TABLE&gt;&quot; %&gt;

&lt;BR&gt;
&lt;FORM METHOD=&quot;Get&quot; ACTION=&quot;mostrar.asp&quot;&gt;
&lt;% IF Session (&quot;Pagina&quot;) &gt; 1 THEN %&gt;
&lt;INPUT TYPE=&quot;Submit&quot; VALUE=&quot;Pagina Anterior&quot; NAME=&quot;Pagina&quot;&gt;&lt;BR&gt;
&lt;% END IF
IF Session (&quot;Pagina&quot;) &lt; Obj_RS.PageCount THEN %&gt;
&lt;INPUT TYPE=&quot;Submit&quot; VALUE=&quot;Pagina Siguiente&quot; NAME=&quot;Pagina&quot;&gt;
&lt;% END IF %&gt;
&lt;/FORM&gt;
&lt;% Obj_RS.Close
	Conn.Close %&gt;
&lt;/BODY&gt;

Espero y le entiendas.. aqui este ejemplo ( en mi caso ) saca la clave y el nombre de los alumnos de &quot;X&quot; tabla y me muestra 10 registros por página. Espero y te sirva

Saludos  :arriba:

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]