Hola!!! Tengo hechos 2 buscadores, pero tengo problemas con la paginación.
El primero es simplemente presentar datos de la BD pero la paginación que tengo hecha saca todas la páginas, como podría hacer para que me sacará tipo así: <<anterior- 1,2..3,4 - siguiente>> Porque la que tengo, saca incluso la página en la que estas con enlace. El´código es el siguiente:
Código HTML:
<%
Set conn_on = Server.CreateObject("ADODB.Connection")
strconn_on = "driver={SQL Server};server=xxx.com;uid=xxx;pwd=xxx;database=gxxx" '## MS SQL Server 7
conn_on.open strconn_on
sqlc="select * from gce_empresas where EMP_ACT='"&cod_activi&"' UNION select * from gce_empresas2 where EMP_ACT='"&cod_activi&"' ORDER BY EMP_NOM"
Set rsc = Server.CreateObject("ADODB.Recordset")
rsc.Open sqlc, conn_on, 3, 3
Dim contpag
'Registros por pgina
Dim registros
registros = 6
contpag=0
Do Until rsc.EOF
contpag = contpag + 1
rsc.MoveNext
loop
rsc.MoveFirst
dim pagactual
pagactual = Request.QueryString("pagactual")
if pagactual = null then
pagactual = 0
else
pagactual = pagactual * registros
end if
If not rsc.eof then
rsc.MoveFirst
rsc.Move pagactual
dim contador
contador = 0
do until rsc.EOF or contador = registros
response.Write("<tr height='40'>")
response.Write("<td valign='top' height='40'>")
response.Write("<table width='100%' border='0' cellspacing='2' cellpadding='0' height='33'>")
response.Write("<tr>")
response.Write("<td class='l_1' valign='middle' bgcolor='#ffe4bf'>")
response.Write("<table width='100%' border='0' cellspacing='0' cellpadding='0'>")
response.Write("<tr>")
response.Write("<td><div class='l_1'><p>"& rsc("EMP_NOM")&"</p></div></td>")
if cod_activi= 202 then
response.Write("<td width='45'><div align='center'><a class='en6' HREF='"&rsc("EMP_WEB")&"' target='_blank'>ver web</a></div></td>")
else
response.Write("<td width='45'><div align='center'><a class='en6' HREF='http://"&rsc("EMP_WEB")&"' target='_blank'>ver web</a></div></td>")
end if
response.Write("<td width='45'><div align='center'><a class='en6' HREF='frm_editar.asp?cod_emp="&rsc("EMP_COD")&"&cod_act="&cod_activi&"' target='_blank'>Modificar</a></div></td>")
response.Write("</tr>")
response.Write("</table>")
response.Write("</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td class='l_2' valign='bottom'>"& rsc("EMP_DIR")&"<BR>")
response.Write(""&rsc("EMP_CP")&" "&rsc("EMP_POB")&" - "&rsc("EMP_PRO")&" - "&rsc("EMP_PAI")&"")
response.Write("</td>")
response.Write("</tr>")
response.Write("</table><br></td></tr>")
rsc.MoveNext
cuantos = cuantos +1
contador = contador + 1
loop
rsc.Close
conn_on.Close
set conn_on=nothing
set rsc=nothing
End If
'Preparo la paginacin
dim i
dim page
i = 0
page = -1
response.Write("<tr width='100'><td colspan='2' width='100'><table width='80' align='center'><tr><td width='40' align='center'><b>Páginas:</b><br>" )
Do until i = contpag
i = i + 1
if (i mod registros = 0 ) then
page = page + 1
response.Write(" <a href='centro.asp?cod="& cod_activi &"&pagactual=" & page & "'><font class='p_1'>" & page & "</font></a> ")
end if
loop
if (i mod registros <> 0) then
response.Write(" <a href='centro.asp?cod="& cod_activi &"&pagactual=" & page + 1 & "'><font class='p_1'>" & page + 1 & "</font></a> ")
end if
response.Write("</td></tr>")
'Finalizo la paginacin
end if
response.Write("</table>")
response.Write("</td>")
response.Write("</tr>")
%>
Siguo en el siguiente mensaje