PÁGINA DONDE INCLUIRÉ LOS COMENTARIOS -01SECCION.ASP- te la he resumido para que no me líe con tanto código-
<html>
<head>
<script language="javascript" src="paging.js" type="text/javascript"></script>
<div id="registros">
</div>
</body>
</html>
PÁGINA QUE DESPLIEGA LOS REGISTROS DE LA BASE DE DATOS -NOTICIAS.ASP-
<table class="tabla" width="600" border="1" cellpadding="5" cellspacing="1" bgcolor="#f4f4f4">
<%
Dim mostrar 'cantidad de registros a mostrar por página
Dim cant_paginas 'cantidad de páginas que recibimos
Dim pagina_actual 'La página que mostramos
Dim registro_mostrado 'Contador utilizado para mostrar las páginas
Dim I 'Variable Loop
mostrar = 5
seccion=request.querystring("seccion")
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
Function sinAcentos(strsql)
Dim CurLtr
For x = 1 To Len(strsql)
CurLtr = Mid(strsql, x, 1)
Select Case CurLtr
Case "a", "à", "á"
sinAcentos = sinAcentos & "[aàá]"
Case "e", "é", "è"
sinAcentos = sinAcentos & "[eéè]"
Case "i", "ì", "í"
sinAcentos = sinAcentos & "[iìí]"
Case "o", "ò", "ó"
sinAcentos = sinAcentos & "[oòó]"
Case "u", "ù", "ú"
sinAcentos = sinAcentos & "[uùú]"
Case "n", "ñ", "Ñ"
sinAcentos = sinAcentos & "[nñÑ]"
Case Else
sinAcentos = sinAcentos & CurLtr
End Select
Next
End Function
strsql = "SELECT * FROM comentarios where seccion like '"&seccion&"%' order by Id ASC"
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= comentarios.mdb")
RS.PageSize = mostrar
RS.CacheSize = mostrar
RS.Open strSQL, oConn,3,1
cant_paginas = RS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas = 0 Then
Else
RS.AbsolutePage = pagina_actual
registro_mostrado = 0
bandera=0
Do While registro_mostrado < mostrar And Not RS.EOF
if bandera = 0 Then
color="#fafafa"
bandera = 1
Else
color="#ffffff"
bandera = 0
End IF
%>
<tr bgcolor=<%=color%>>
<td align="left"><b><%=rs("Id")%></b> | <%=rs("nombre")%></td>
<td align="left"> <div align="left"></div></td>
<td align="left"> <div align="left"></div></td>
</tr>
<tr valign="middle" bgcolor=<%=color%>>
<td colspan="3" align="left" class="line_100pc_ee"> <div align="left">
<%=rs("mensaje")%></div></td>
</tr>
<%
registro_mostrado = registro_mostrado + 1
RS.MoveNext
Loop
Response.Write "" & vbCrLf
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
Response.Write "<br><br>" & vbCrLf
%>
<tr valign="middle">
<td colspan="3" align="left" class="height"> </td>
</tr>
<tr>
<td colspan="3" class="height">Páginas:
<%
If pagina_actual > 1 Then
%>
<span class="btn_anterior"><a href="javascript
: paginacion('<%= seccion %>','<%= pagina_actual - 1 %>')">«
Anterior</a></span>
<%End if%>
<%If pagina_actual > 5 Then
%>
<span class="btn_anterior"><a href="javascript
: paginacion('<%= seccion %>','<%= 1 %>')">
Primera</a></span> ···
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<span class="btn_activa"><%= I %></span>
<%
Else
If I < pagina_actual+5 AND I > pagina_actual-1 Then
%>
<span class="btn_navega"><a href="javascript
: paginacion('<%= seccion %>','<%= I %>')"><%= I %></a></span>
<%
End If
End If
Next 'I%>
<%If pagina_actual < cant_paginas - 5 Then
%>
··· <span class="btn_siguiente"><a href="javascript
: paginacion('<%= seccion %>','<%= cant_paginas %>')">
Última</a></span>
<%End if%>
<%If pagina_actual < cant_paginas Then
%>
<span class="btn_siguiente"><a href="javascript
: paginacion('<%= seccion %>','<%= pagina_actual + 1 %>')">Siguiente
»</a></span>
<%
End If
'Fin...
End if
%>
</td>
</tr>
</table>