Me surgió un problema armando una libro de visitas, el tema es este cuando terminé todo me di cuenta de que me faltaba código para paginar los resultados del mismo, y navegando por ahí encontre uno para hacerlo, el problema es que me da error y no se porque sea.
Este es el error:
Código:
y esta es la página de mi libro(marqué con una flecha la linea del error):Error de compilación de Microsoft VBScript error '800a040e' 'Loop' sin 'Do' /instinto/libro.asp, línea 105 Loop ^
Código:
Si alguien puede ayudarme lo agadecería mucho.<html>
<head>
<title>Libro de Visitas</title>
<link rel="STYLESHEET" type="text/css" href="estilos.css">
</head>
<body bgProperties="fixed"
bgcolor="#000000" text="#800000" font="Copperplate Gothic Bold" link="#333333" vlink="#FCE043"
alink="#0000FF" topmargin="0" leftmargin="0" marginwidth="0"
marginheight="0">
<table border="0" cellpadding="5" cellspacing="0" width="779" height="24">
<tr>
<td align="center" bgcolor="#F7E688" width="576" height="14"><p align="center">
<img
src="gif/anillos.gif"
width="50" height="50"><font color="#800000" size="5"
face="Copperplate Gothic Bold"><b>INSTINTO:Nuestro Libro de Visitas</b></font></p>
</td>
<td align="center" bgcolor="#F7E688" width="179" height="14"><p align="center"><a
href="libro.asp"><img
src="gif/botonactualizar.jpg"
alt="Recargar" border="0" width="107" height="25"></a></p>
<p> <a href="#firmar"><img
src="gif/botonfirmar.gif"
alt="Firmar" border="0" width="72" height="52"></a><a href="premios.htm"><img
src="gif/botonvolver.gif"
alt="***VOLVER A LA PAGINA WEB DE INSTINTO***" border="0"
width="72" height="52"></a> </p>
</td>
</tr>
</table>
<p align="center">
<%
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
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
mostrar = 5 ' modificar este número para cambiar la cantidad de registros por página
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
if request.querystring("insertado")<> "" then%>
<font color="#FCE043" face="copperplate gothic bold">Tu mensaje ha sido insertado, muchas gracias</font>
<%end if
if request.querystring("borrado")<> "" then%>
<font color="#FCE043" face="copperplate gothic bold">El mensaje seleccionado ha sido borrado</font>
<%end if
strsql = "SELECT * FROM visitas order by id desc"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\instinto\BD\librovisitas.mdb"))
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar
RS.Open strSQL, oConn,3,1
'contamos las páginas que se formaron con la variable mostrar.
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
Response.Write "No hay registros..."
Else
RS.AbsolutePage = pagina_actual
%>
<FONT SIZE="+1">Página <B><%= pagina_actual %></B> de <B><%= cant_paginas %></B></FONT>
<%
Response.Write "<BR><BR>" & vbCrLf
'iniciamos la tabla donde mostraremos todo
Response.Write "<TABLE BORDER=""1"">" & vbCrLf
' Mostramos los titulos de las columnas... (pueden sacar ese FOR para eliminar eso)
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD><B>"
Response.Write RS.Fields(I).Name
Response.Write "<B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
' Sumamos 1 a los mostrados
registro_mostrado = registro_mostrado + 1
' Nos movemos al próximo registro...
RS.MoveNext
Loop <----------------------- Esta es la linea
'listo...
Response.Write "</TABLE>" & vbCrLf
End If
rs.open "select * from visitas order by id desc",conn
if not rs.EOF then
do while not rs.EOF%>
<p align="center">
<table border="0" width="780" bordercolor="#F7E688">
<tr>
<td width="315" bgcolor="#F7E688"><font color="#800000"><b><%=rs("nombre")%></b></font>
</td>
<td width="151" bgcolor="#F7E688">
<%if rs("mail")<>"" then%>
<a href="mailto:<%=rs("mail")%>"><img border="0" src="gif/gb_mail.gif"></a>
<%end if%>
<%if rs("web")<>"" then%>
<a href="http://<%=rs("web")%>"><img border="0" src="gif/gb_www.gif"></a>
<%end if%>
</td>
<td width="341" bgcolor="#F7E688">
<p align="right"><font size="1" color="#800000"><b><%=rs("fecha")%> </b></font><img border="0" src="gif/gb_time.gif"><a href="deletereg.asp?id=<%=rs("id")%>"><img border="0" src="gif/gb_delmsg.gif"></a>
</p>
</td>
</tr>
<tr>
<td width="322" bgcolor="#C2B8C9">
<p align="center"><img border="0" src="gif/gb_msg.gif"></p>
</td>
<td width="761" bgcolor="#C2B8C9" valign="top"><font face="Verdana"><font size="2" color="#800000"><b><%=rs("comentarios")%></b></font><br><br>
<font size="1" color="#800000"><b>Host:
<%=rs("ip")%></b></font></font></td>
<td width="352" bgcolor="#C2B8C9">
<font face="Verdana" color="#800000">
<% if rs("Pais")<>"" then%>
<b><font size="1" color="#800000"> <u>País</u>: </font></b>
</font><font size="1">
<font size="1"><font face="Verdana" color="#800000"><b><%=rs("pais")%></b></font>
<hr>
<p><font face="Verdana" color="#800000">
<%end if%>
<% if rs("como")<>"" then%>
<b><u>Como nos conociste?</u>: </b>
</font>
<font size="1"><font face="Verdana" color="#800000"><b><%=rs("como")%></b></font>
<hr>
<p>
<font face="Verdana" color="#800000">
<%end if%>
<% if rs("opinion")<>"" then%>
</font>
<font size="1"><font face="Verdana" color="#800000"><b><u>Edad</u>: </b></font>
<font size="1"><font face="Verdana" color="#800000"><b><%=rs("opinion")%></b></font>
<hr>
<%end if%>
</font></font></font></font></font>
</td>
</tr>
</table>
<%rs.movenext
loop
if not rs.EOF then
do while not rs.EOF%>
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
If pagina_actual > 1 Then
%>
<a href="./paginar.asp?eje=30&page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
%>
<a href="./paginar.asp?eje=30&page=<%= I %>"><%= I %></a>
<%
End If
Next 'I
If pagina_actual < cant_paginas Then
%>
<a href="./paginar.asp?eje=30&page=<%= pagina_actual + 1 %>">[Próximo >>]</a>
<%
End If
'Fin...
%>
<br>
<div align="center">
<center>
<table border="0" width="500" height="462" color=Black>
<tr>
<td width="100%" bgcolor="#F7E688" height="30"><font color="#FFFFFF"><a name="firmar"></a></font><font color="#800000" face="Copperplate Gothic Bold" size="5">Firmar</font></td>
</tr>
<tr>
<td width="100%" height="420" bgcolor="#000000">
<form method="POST" action="firmar.asp">
<table border="0" width="100%" bgcolor="#000000">
<tr>
<td width="30%" align="right"><b><font face="Verdana" color="#FCE043" size="2">Nombre</font></b></td>
<td width="70%"><b><font face="Verdana" color="#FCE043" size="2"><input type="text" name="nombre" size="32" maxlength ="50"></font></b></td>
</tr>
<tr>
<td width="30%" align="right"><b><font face="Verdana" color="#FCE043" size="2">E-Mail</font></b></td>
<td width="70%"><b><font face="Verdana" color="#FCE043" size="2"><input type="text" name="mail" size="32" maxlength ="50"></font></b></td>
</tr>
<tr>
<td width="30%" align="right"><b><font face="Verdana" color="#FCE043" size="2">Web</font></b></td>
<td width="70%"><b><font face="Verdana" color="#FCE043" size="2"><input type="text" name="web" size="32" maxlength ="50"></font></b></td>
</tr>
<tr>
<td width="30%" align="right"><b><font face="Verdana" color="#FCE043" size="2">País</font></b></td>
<td width="70%"><b><font face="Verdana" color="#FCE043" size="2"><input type="text" name="pais" size="32" maxlength ="50"> </font> </b> </td>
</tr>
<tr>
<td width="30%" align="right"><b><font face="Verdana" color="#FCE043" size="2">Edad</font></b></td>
<td width="70%"><b><font face="Verdana" color="#FCE043" size="2"><input type="text" name="opinion" size="5" maxlength ="50"></font></b></td>
</tr>
<tr>
<td width="30%" align="right"><b><font face="Verdana" color="#FCE043" size="2">Como nos conociste?</font></b></td>
<td width="70%"><b><font face="Verdana" color="#FCE043" size="2"><input type="text" name="como" size="32" maxlength ="50"></font></b></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><b><font face="Verdana" color="#FCE043" size="4">Mensaje/Comentarios</font></b> </td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><textarea rows="7" name="comentarios" cols="44"></textarea></td>
</tr>
<tr>
<td width="100%" align="center" colspan="2"><input type="submit" value="Enviar" name="enviar">
<input type="reset" value="Borrar" name="borrar"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
Desde ya muchas gracias y perdonen mi ignorancia.
Saludos.
!!!
