Ya había probado con esos ejemplos pero no pude fusionarlos con el libro de visitas, simpre me daba error:
Cita: ADODB.Recordset error '800a0bb9'
La aplicación está usando argumentos incorrectos, o están fuera del intervalo permitido, o entran en conflicto con otros.
Tal vez si me podrías ayudar...
Esta es la página del libro en si:
libro.asp:
Código:
<html>
<head>
<meta http-equiv="Content-Language" content="es-ar">
<title>Libro de Visitas</title>
<link rel="STYLESHEET" type="text/css" href="estilos.css">
</head>
<body bgProperties="fixed">
<script src="menu.js"></script>
<div class="menu"><script src="gif/Menu/menu_.js"></script></div>
<HR>
<div class="libro1"><img src="gif/anillos.gif" width="22" height="18"> INSTINTO: Nuestro Libro de Visitas
<img src="gif/anillos.gif" width="22" height="18"></div>
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
if request.querystring("insertado")<> "" then%>
<p class="mensaje">Tu mensaje ha sido insertado, muchas gracias.
<%end if
if request.querystring("borrado")<> "" then%>
el mensaje seleccionado ha sido borrado.</p>
<%end if
datos= Server.MapPath ( "/instinto/bd/librovisitas.mdb" )
Set conn= Server.CreateObject("ADODB.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"
set rs=createobject("ADODB.Recordset")
'rs.CursorType = adOpenKeyset
'rs.LockType = adLockOptimistic%>
<p align="center"><a href="#firmar"><img src="gif/bfirmar.png" border="0"></a></p>
<%rs.open "select * from visitas order by id desc",conn
if not rs.EOF then
do while not rs.EOF%>
<table border="0" width="748" bordercolor="#F7E688">
<tr>
<td class="td" width="359" colspan="2"><p align="left"><%=rs("nombre")%><%if rs("mail")<>"" then%>
<a href="mailto:<%=rs("mail")%>"><img border="0" src="gif/gb_mail.gif" width="48" height="21"></a>
<%end if%>
<%if rs("web")<>"" then%><a href="http://<%=rs("web")%>"><img border="0" src="gif/gb_www.gif"></a></p>
<%end if%>
</td>
<td class="td1" width="416"><img border="0" src="gif/gb_time.gif"><%=rs("fecha")%>
<a href="deletereg.asp?id=<%=rs("id")%>"><img border="0" src="gif/gb_delmsg.gif"></a></td></tr>
<tr>
<td width="170" bgcolor="#C2B8C9">
<p align="center"><img border="0" src="gif/gb_msg.gif"></p>
</td>
<td width="806" bgcolor="#C2B8C9" valign="top"><font face="Verdana"><font size="2" color="#800000"><b><%=rs("comentarios")%></b></font><br><br>
</font>
<p><font size="1" color="#800000"><b>Host:
<%=rs("ip")%></b></font></p>
</td>
<td width="427" 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
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<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>
Y este es el código que encontré en aspfacil
http://www.aspfacil.com/articulos/paginar.asp