
22/11/2003, 19:54
|
 | | | 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> |