que tendria de canviar? el enlace o el archivo de respuesta?
aqui hos adjunto el archivo de respuesta
Código PHP:
<html><head></head><body>
<%
Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' la cuenta que os he mencionado
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("xxxx.mdb")&";"
SQL="Select * From inscripcio Where UCase(id) like '%" & UCase(Request("id")) & "%'"
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
' Abro el recordset
rs.Open SQL, oConn, 1, 2
'Cuento las páginas
PaginasTotales=rs.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
rs.AbsolutePage=PaginaActual
Response.Write("<font size=2 face=verdana>Página " & PaginaActual & " de " & PaginasTotales)
Response.Write("<table border=1>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una línea de la tabla por cada registro
Response.Write("<tr><td>"&VbCrLf)
Response.Write("<font size=1>"&rs.Fields("nom")&" ")
Response.Write("</td><td><font size=1>"&rs.Fields("cognoms")&" ")
Response.Write("</td><td><font size=1>"&rs.Fields("any")&" ")
Response.Write("</td><td><font size=1>"&rs.Fields("sexe")&"")
Response.Write("</td><td><font size=1>"&rs.Fields("direc")&"")
Response.Write("</td><td><font size=1>"&rs.Fields("poblacio")&"")
Response.Write("</td><td><font size=1>"&rs.Fields("cp")&"")
Response.Write("</td><td><font size=1>"&rs.Fields("telefon")&"")
Response.Write("</td><td><font size=1>"&rs.Fields("email")&"")
Response.Write("</td><td><font size=1>"&rs.Fields("nivell")&"")
Response.Write("</td><td><font size=1>"&rs.Fields("sitlaboral")&"</td></tr>")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</table>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
Muestro los enlaces
Response.Write("<br><br>")
if PaginaActual > 1 then
Response.Write("<A HREF=ins.asp?pagina="& PaginaActual-1& _
">Siguientes</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=ins.asp?pagina=" & PaginaActual+1 & _
">Anteriores</A>")
end if
%>