Bueno ahora necesito si alguien me podria ayudar a listar los registros pero pero mediante paginacion si alguien puede editar el siguiente codigo y hacerlo con la paginacion de a 5 registros se lo agradeceria ya que estoy muy aburrido ya que no logro hacer que me salga bueno espero la ayuda gracias
<%@ 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>