Hola
Me has dado mucho código basura y eso hizo que en principio me diera pereza, pero bueno, aquí tienes una adaptación de como ha de quedar.
Creas una tabla con dos campos (nombre y telefono) en el campo nombre todos o algunos de los campos han de tener el nombre Adler, en el otro escribes un número
Código ASP:
Ver original<html>
<head>
</head>
<body>
<%
if Request.QueryString("IrA") = "" then
pagina = 1
pag2 = 1
pag3 = 1
else
cual = Request.Querystring("irA")
pagYancla = Split(cual, "-")
Select Case pagYancla(1)
Case 1
pagina = CInt(pagYancla(0))
pag2 = 1
pag3 = 1
Case 2
pagina = 1
pag2 = CInt(pagYancla(0))
pag3 = 1
Case 3
pagina = 1
pag2 = 1
pag3 = CInt(pagYancla(0))
Case Else
pagina = 1
pag2 = 1
pag3 = 1
End Select
end if
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("./database.mdb")&";"
%>
PAG 1
<table border="1">
<%
Set prodRS = Server.CreateObject( "ADODB.Recordset" )
prodRS.PageSize = 1
sql = "SELECT nombre, telefono FROM tabla WHERE nombre = 'Adler'"
prodRS.Open SQL, oConn,3,1
if prodRS.eof and prodRS.bof then
response.write "Actualmente no hay inmuebles"
else
prodRS.AbsolutePage =pagina
WHILE NOT prodRS.EOF AND rowCount1 < prodRS.PageSize
rowCount1 = rowCount + 1
%>
<tr><td colspan="7">
<%
Response.Write prodRS.Fields("nombre") & " - " & prodRS.Fields("telefono")
%>
</td>
</tr>
<tr>
<%
prodRS.MoveNext
WEND
FOR i = 1 to prodRS.PageCount
%>
<td>
<%
IF i <> CInt(pagina) THEN
%>
<a href="index.asp?irA=<%=i%>-1"><%=i%></a>
<% ELSE %>
<b><%=i%></b>
<%
END IF
%>
</td>
<%
NEXT
end if
prodRS.close
Set prodRS=nothing
%>
</tr>
</table>
PAG 2
<table border="1">
<%
Set prodRS = Server.CreateObject( "ADODB.Recordset" )
prodRS.PageSize = 1
sql = "SELECT nombre, telefono FROM tabla WHERE nombre = 'Adler'"
prodRS.Open SQL, oConn,3,1
if prodRS.eof and prodRS.bof then
response.write "Actualmente no hay inmuebles"
else
prodRS.AbsolutePage =pag2
WHILE NOT prodRS.EOF AND rowCount2 < prodRS.PageSize
rowCount2 = rowCount2 + 1
%>
<tr><td colspan="7">
<%
Response.Write prodRS.Fields("nombre") & " - " & prodRS.Fields("telefono")
%>
</td>
</tr>
<tr>
<%
prodRS.MoveNext
WEND
FOR i = 1 to prodRS.PageCount
%>
<td>
<%
IF i <> CInt(pag2) THEN
%>
<a href="index.asp?irA=<%=i%>-2"><%=i%></a>
<% ELSE %>
<b><%=i%></b>
<%
END IF
%>
</td>
<%
NEXT
end if
prodRS.close
Set prodRS=nothing
%>
</tr>
</table>
PAG 3
<table border="1">
<%
Set prodRS = Server.CreateObject( "ADODB.Recordset" )
prodRS.PageSize = 1
sql = "SELECT nombre, telefono FROM tabla WHERE nombre = 'Adler'"
prodRS.Open SQL, oConn,3,1
if prodRS.eof and prodRS.bof then
response.write "Actualmente no hay inmuebles"
else
prodRS.AbsolutePage =pag3
WHILE NOT prodRS.EOF AND rowCount3 < prodRS.PageSize
rowCount3 = rowCount3 + 1
%>
<tr><td colspan="7">
<%
Response.Write prodRS.Fields("nombre") & " - " & prodRS.Fields("telefono")
%>
</td>
</tr>
<tr>
<%
prodRS.MoveNext
WEND
FOR i = 1 to prodRS.PageCount
%>
<td>
<%
IF i <> CInt(pag3) THEN
%>
<a href="index.asp?irA=<%=i%>-3"><%=i%></a>
<% ELSE %>
<b><%=i%></b>
<%
END IF
%>
</td>
<%
NEXT
end if
prodRS.close
Set prodRS=nothing
%>
</tr>
</table>
</body>
</html>
Que de tiempo, años, hacia que no trabajaba con access
Suerte