<%
'Para paginar
Dim num_reg 'cantidad de egistros por pagina
Dim cant_page 'cantidad de registros que recibio
Dim page_actual 'la pagina a mostrar
Dim reg_mostrado 'contador para mostrar paginas
num_reg=10
'Para saber que pagina se va a mostrar
if (request.QueryString("page")<> "") then
page_actual=Cint(request.QueryString("page"))
else
page_acual=1
end if
'Declaracion de variables
Dim vig
Dim vig_numRows
'conexion a la base de datos
Set vig = Server.CreateObject("ADODB.Recordset")
vig.ActiveConnection = X
vig.Source = "SELECT * FROM dbo.Prop_Ind"
vig.CursorType = 0
vig.LockType = 1
vig.Open()
vig_numRows = 0
vig.pagesize=num_reg 'establecemos el numero de registros por pagina
cant_page=vig.pagecount 'contamos las paginas que se formaron con la variable a mostrar
%>
<p> </p>
<table width="869" height="111" border="2" align="center" bordercolor="#336699">
<tr bgcolor="#999999" class="Estilo1">
<td width="52" height="44"><div align="center" class="Estilo1 Estilo2">Idp</div></td>
<td width="154"><div align="center" class="Estilo3">Titulo</div></td>
<td width="122"><div align="center" class="Estilo3">No.Solicitud</div></td>
<td width="150"><div align="center" class="Estilo3">fecha de Consecion </div></td>
<td width="83"><div align="center" class="Estilo3">No.IMPI</div></td>
</tr>
<% vig.absolutepage=page_actual
reg_mostrado=0
while not vig.EOF and reg_mostrado<num_reg
reg_mostrado=reg_mostrado+1
%>
<tr>
<td height="57"><%=(vig.Fields.Item("idp").Value)%></td>
<td><%=(vig.Fields.Item("titulo").Value)%></td>
<td><%=(vig.Fields.Item("num_solicitud").Value)% ></td>
<td><%=(vig.Fields.Item("fecha_cons").Value)%></td>
<td><%=(vig.Fields.Item("num_IMPI").Value)%></td>
</tr>
<%vig.Movenext
wend
%>
</table>
<table width="50%" border="0" aling="center">
<tr>
<% if page_actual>1 then%>
<td><font size="2" face="Arial,Helvetica,sans-serif"></font><a href="estadisticas.asp?page=<%=page_actual-1%>">Anterior</a></td>
<%end if%>
<td><font size="2"face="Arial,Helvetica,sans-serif">
<%I=1
for I=1 to cant_page
if I=page_actual then %>
<%=I%>
<%else%>
<a href="estadisticas.asp?page=<%=I%>"> <%=I%> </a>/
<%
end if
next%>
</font></td>
<%
if page_actual<cant_page then %>
<td><font size="2" face="Arial, Helvetica, sans-serif"><a href=estadisticas.asp?page=<%page_actual+1%>">Sigu iente</a><font></font></font></td>
<%end if%>
</tr>
</table>
<%
vig.Close()
Set vig = Nothing
%>