es mas te paso un codigo que hize en mis inicios de algo parecido alo que pides tu, es solo para que te des una idea de como hacerle a tu programa sale, el codigo tal vez no es lo as adecuado ya que tienes mucho codigod e mas epero espero te sirva sale
fd=request.querystring("fd")
if fd<>"" then
Set rsca = db.Execute("delete * from tbl_resumen WHERE fecha='"&fd&"'")
end if
sfecha=request.querystring("sfecha")
if sfecha="" then
strsql = ("SELECT * FROM tbl_resumen")
else
strsql = ( "SELECT * FROM tbl_resumen where fecha='"&sfecha&"'")
end if
set lfecha =db.execute( "SELECT fecha FROM tbl_resumen")
dia=day(date)
mes=month(date)
an =year(date)
hora=hour(time)
minuto=minute(time)
lar=len(minuto)
if lar=1 then
minuto="0"&minuto
end if
tiempo=hora&":"&minuto
fecha=dia&"/"&mes&"/"&an
fecha=fecha&" "&tiempo
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop
mostrar = 30 ' cantidad de registros por página
num_registros = 30 'numero de registros
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, strConn,3,1
rs.PageSize = mostrar
rs.CacheSize = mostrar
%>
<html>
<head>
<title>Resumen</title>
<SCRIPT LANGUAGE="JavaScript">
function irA(menu){
window.location.href = menu.options[menu.selectedIndex].value;
}
</SCRIPT>
</head>
<%header
cant_paginas = rs.PageCount
cant_reg=rs.recordcount
%>
<body>
<hr color="#E4E4E4" size="1">
<table width=99% bgcolor="#E5E5E5" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" height="20">
<td width="32%" height="27"><font size="2" face="Verdana"></font></td>
<td width="60%" height="20" align="center" ><font face=Verdana size=2><a href="rescliente.asp">Todos</a>
<b><font face="Verdana" size="1">
<SELECT NAME="menu2" SIZE=1 onChange ="irA(this)">
<OPTION VALUE="">Fecha
<% while not lfecha.eof
'Dim MiFecha
'MiFecha = FormatDateTime( Date, 2)
%>
<OPTION VALUE="rescliente.asp?sfecha=<%=lfecha("fecha")%>" ><%=lfecha("fecha")%>
<%
lfecha.movenext
wend
%> </select> </font></td>
</table>
<br>
<table width="100%">
<td width="60%">
<p align="right"> <b> <font face="Verdana" size="2">Resumen de usuarios xxxxx -
Registrados en BD</font></b></td>
<td width="40%">
<p align="right"> <font size="1" face="Verdana">
<%
If pagina_actual > 1 Then
%>
<a href="rescliente.asp?page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
end if
For I = 1 To cant_paginas
If I = pagina_actual Then
if cant_paginas<2 then
else
%>
<font size="1" face="Verdana"><%= I %>
<%
end if
Else
if f1="" then
f1=3
end if
%><font size="1" face="Verdana"> <a href="rescliente.asp?page=<%= I %>"><%= I %></a>
<%
End If
Next 'I
If pagina_actual < cant_paginas Then
%> <font size="1" face="Verdana"><a href="rescliente.asp?page=<%= pagina_actual + 1 %>">[Próximo >>]</a>
<% end if%>
</td>
<table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="101%" id="AutoNumber1">
<tr>
<td width="14%" bgcolor="#C0C0C0" align="center" height="20"><font face="Verdana" size="2">
Fecha</font></td>
<td width="9%" bgcolor="#C0C0C0" align="center"><font face="Verdana" size="2">Inscritos</font></td>
<td width="10%" bgcolor="#C0C0C0" align="center">
<font face="Verdana" size="2">S/Movimiento</font></td>
<td width="16%" bgcolor="#C0C0C0" align="center"><font face="Verdana" size="2">Solicitado Envío</font></td>
<td width="15%" bgcolor="#C0C0C0" align="center"><font face="Verdana" size="2">Solicitado Download</font></td>
<td width="14%" bgcolor="#C0C0C0" align="center"><font face="Verdana" size="2">Descargado</font></td>
<td width="15%" bgcolor="#C0C0C0" align="center"><font face="Verdana" size="2">Sin Descargar</font></td>
<td width="15%" bgcolor="#C0C0C0" align="center"> </td>
</tr>
<%
' Si el pedido de página cae afuera del rango,
' lo modificamos para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
' Si la cantidad de páginas da 0 es que no hay registros... por eso este IF
If cant_paginas = 0 Then
Response.Write ("<font size=1 face=Verdana>No hay registros...")
Else
' Nos movemos a la página elegida
rs.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
num_campos=rs.Fields.Count
registros_mostrados = 0
While (Not rs.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
fecha=rs("fecha")
d=day(fecha)
if len(d)=1 then
d="0"&d
end if
m=month(fecha)
if len(m)= 1 then
m="0"&m
end if
y=year(fecha)
h=hour(fecha)
if len(h)=1 then
h="0"&h
end if
mm=minute(fecha)
if len(mm) = 1 then
mm="0"&mm
end if
fecha=d&"/"&m&"/"&y&" "&h&":"&mm
%>
<tr>
<td width="14%" align="center" bgcolor="#E5E5E5"><font face="Verdana" size="1"><%=fecha%> </td>
<td width="9%" align="center" bgcolor="#E5E5E5"><font face="Verdana" size="2"><%=rs("inscritos")%> </td>
<td width="10%" align="center" bgcolor="#E5E5E5"><font face="Verdana" size="2"><%=rs("sin_movimiento")%> </td>
<td width="16%" align="center" bgcolor="#E5E5E5"><font face="Verdana" size="2"><%=rs("sol_enviado")%> </td>
<td width="15%" align="center" bgcolor="#E5E5E5"><font face="Verdana" size="2"><%=rs("sol_descargado")%> </td>
<td width="14%" align="center" bgcolor="#E5E5E5"><font face="Verdana" size="2"><%=rs("descargado")%> </td>
<td width="15%" align="center" bgcolor="#E5E5E5"><font face="Verdana" size="2"><%=rs("sin_descargar")%> </td>
<form method="POST" action="rescliente.asp?fd=<%=rs("fecha")%>">
<td width="15%" align="center" bgcolor="#E5E5E5">
<input type="submit" value="Borrar" name="B1" style="font-family: v; font-size: 8pt">
</td>
</form>
</tr>
<%
rs.movenext
wend%>
</table>
<%
If pagina_actual > 1 Then
if f1="" then
f1=3
end if
%>
<font size="1" face="Verdana"><a href="rscliente.asp?page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
if cant_paginas<2 then
else
%>
<font size="1" face="Verdana"><%= I %>
<%
end if
Else
if f1="" then
f1=3
end if
%>
<font size="1" face="Verdana"><a href="rescliente.asp?page=<%= I %>"><%= I %></a>
<%
End If
Next 'I
If pagina_actual < cant_paginas Then
if f1="" then
f1=3
end if
%>
<font size="1" face="Verdana"><a href="rescliente.asp?page=<%= pagina_actual + 1 %>">[Próximo >>]</a>
<%
'Fin...
end if
end if
%>
<form method="POST" action="prescliente.asp">
<p align="center">
</p>
<p align="center">
<input type="submit" value="Preveer" name="B1" style="text-align: center">
<input type="submit" value="Cerrar" onclick="window.close()" name="B2" style="text-align: center"></p>
</form>
</font></font></font>
</font>
</body>
</html>
<%
'db.close
%>