Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/11/2003, 19:54
Avatar de jahman
jahman
 
Fecha de Ingreso: noviembre-2003
Ubicación: Oslo
Mensajes: 230
Antigüedad: 21 años, 5 meses
Puntos: 0
Urgente Paginacion

Hola A todos tengo un problema muy grave necesito paginar los registros de a 5 y no se como hacerlo, si fuese posible si alguien me pueda ayudar a paginar mi codigo cosa que muestre de a 5 registro se lo agradeceria muchisimo y si es posible que lo explique es mucho mejor de antemano agradesco su atencion.

Jah Bless, Jahman

<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Listado de Proyectos</TITLE>
</HEAD>
<BODY>
<%
Dim Strcon
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=jahman;UID=sa;PWD=;DATABASE=Proyectos"

Set rs = Server.CreateObject ("ADODB.RecordSet")
sSQL = "SELECT * FROM Proyecto"
rs.Open sSQL, oConn, 3, 3
If rs.EOF And rs.BOF Then

Response.Write "No hay Registros."
Else
rs.MoveFirst%>
<h2><b> <font color="#1F45CB"><i>Proyectos Registrados.</i></font></b></h2>
<center>

<TABLE border='1' bgcolor='#CECECE'>
<tr bgcolor='#003399'>

<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Proyecto</b></font></td>

<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Persona</font></td>

<td> <font face="Verdana" color='#ffffff' size="2"><b>Código Cliente</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Nombre Proyecto</b></font></td>
<td> <font face="Verdana" color='#ffffff' size="2"><b>Fecha Inicio</b></font></td>

<td> <font face="Verdana" color='#ffffff' size="2"><b>Fecha Término</b></font></td>

<td> <font face="Verdana" color='#ffffff' size="2"><b>Descripción</b></font></td>
</tr>


<%
While Not rs.EOF %>
<tr>
<td><font color="#AA2E17"><%Response.Write rs.Fields ("CodProyecto") %></font></td>
<td><font color="#AA2E17"><%Response.Write rs.Fields ("Persona") %></font></td>
<td><font color="#AA2E17"><%Response.Write rs.Fields ("Cliente") %></font></td>
<td><%Response.Write rs.Fields ("NomProyecto") %></td>
<td><%Response.Write rs.Fields ("FechaInEstimada")%></td>
<td><%Response.Write rs.Fields ("FechaFinEstimada")%></td>
<td><%Response.Write rs.Fields ("Descripcion") %></td>
</tr>
<%rs.MoveNext
Wend
rs.close
End If
%>
<table> <br><br>
</BODY>