Asp cambiar de pagina en una extracción de datos de varias paginas
Buenas tardes
Agradecería me pudieseis ayudar,tengo una pagina asp llamada buscar2.asp, hago la búsqueda y me salen todos los registros que hay , por ejemplo 146, me aparece la primera pagina y debajo los números de los accesos a las otras paginas, pero cuando le doy para accederá a la pagina sale error de que no se puede mostrar la pagina, por favor haber si me decís donde esta el error, ya que no tengo ni idea de esto y llevo varios días y no lo saco, adjunto código completo de la pagina
<%@ LANGUAGE = VBScript %>
<%
tipo = request("tipo")
usu = request("usu")
mypage = request.querystring("whichpage")
response.write(sSQL)
If mypage = "" then
mypage = 1
end if
mypagesize = 28
Set con = server.createobject("adodb.connection")
Set rs = server.createobject("adodb.recordset")
accessdb = "usuarios.mdb"
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(accessdb)
cn.open DSN
sSQL = "SELECT id, matricula, nombre, fechar FROM usuarios WHERE " & tipo & " like '%" & usu & "%';"
rs.cursorlocation=3
rs.cachesize=5
rs.open sSQL,con
rs.movefirst
rs.pagesize=mypagesize
maxcount=cint(rs.pagecount)
rs.absolutepage=mypage
howmanyrecs=0
cPag = "Página " & mypage & " de " & maxcount
nRec = rs.recordCount
%>
<html>
<head>
<title></title>
<style type="text/css">
BODY{font-family:Verdana,Arial;font-size:9pt}
</style>
<SCRIPT LANGUAGE="JavaScript">
function Cabeza()
{
var texto = "<html><head><title></title><style type='text/css'>";
texto += "BODY{font-family:Verdana,Arial;font-size:9pt}</style></head><body bgcolor='white'>";
texto += "<table width='700' border='0' cellspacing='0' cellpadding='0'><tr><td>";
texto += "<span style='font-family:Verdana; font-size: 16pt; color: navy'>Solicitudes registradas.- (<%=nRec%>)</span>";
texto += "</td><td align='right' valign='top'><a href='utiusu.asp?opcion=vuelta' target='_top'>";
texto += "<img src='volver.gif' border='0' alt='Pulse aquí para volver al menu de utilidades'></a></td></tr></table>";
texto += "<table border='1' cellspacing='0' cellpadding='1' style='font-size: 9pt; font-family: Arial; color: Navy; background-color: white;'>";
texto += "<tr style='font-size: 9pt; font-family: Arial; color: #FFFFFF; background-color: #008080;'>";
texto += "<th width='100'>Matrícula</th><th width='400'>Nombre</th><th width='100'>Fecha</th>";
texto += "<th width='100'>?</th></tr></table></body></html>";
parent.cabeza.document.open();
parent.cabeza.document.write(texto);
parent.cabeza.document.close();
}
</SCRIPT>
</head>
<body style="background-color:white;" onLoad="Cabeza();">
<table border="1" cellspacing="0" cellpadding="1" style="font-size: 9pt; font-family: Arial; color: Navy; background-color: white;">
<%
do while not rs.eof and howmanyrecs<rs.pagesize
afecha = split( rs("fechar"), " ")
cfecha = aFecha(0)
%>
<tr>
<td align="center" width="100"> <%=rs("matricula")%></td>
<td align="left" width="400"> <%=rs("nombre")%></td>
<td align="center" width="100"> <%=cfecha%></td>
<td align="center" width="100"><a href="verbol.asp?id=<%=rs("id")%>" target="_top" title="Pulse aquí para acceder al boletín.">Ver</a></td>
</tr>
<%
rs.movenext
howmanyrecs=howmanyrecs+1
loop
rs.close
set rs = nothing
cn.close
set con = nothing
%>
</table>
Páginas...:
<%
for counter = 1 to maxcount
if counter = mypage then
ref = counter
else
ref="<a href='buscas2.asp?whichpage=" & counter & "&sql=" & Server.URLEncode(sSQL) & "'>" & pad & counter & "</a>"
end if
%>
<%=ref%>
<%
next
%>
</body>
</html>
