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