Hola que tal!!!
Necesito si alguien me puede ayudar porque necesito paginar un libro de visitas y he probado con el código que se muestra acá en estos foros pero no me ha funcionado
Esta es mi página del libro de visitas:
Código:
<html>
<head>
<title>Libro de Visitas</title>
</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">
<%
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%>
<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
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
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
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>
Desde ya muchas gracias a todos que son unos maestros!!!!
