NOTAS.ASP
Muestra el listado de las notas...
<HTML>
<BODY TEXT="#000000" BGCOLOR="#ffffff" link="#000080">
<FONT FACE="Arial" size=2>
<center><H3>TABL�N DE NOTAS</h3></center>
<BR><P>
<%
'Aqu� determina que p�gina se mostrara (una p�gina equivale a 20 notas del tabl�n).
if Request.QueryString("Pagina")="Siguiente" then
session("Pagina")=session("Pagina")+1
else if Request.QueryString("Pagina")="Anterior" then
session("Pagina")=session("Pagina")-1
else
session("Pagina")=0
end if
end if
if session("Pagina")<0 then session("Pagina")=0
'abre la base de datos
set objBase=server.CreateObject("ADODB.Connection")
set objTabla=server.CreateObject("ADODB.RecordSet")
objBase.Open "Tablon"
'ordenada la base de datos por fecha y hora descendente
sql="SELECT * FROM Tablon ORDER BY Fecha DESC,Hora DESC"
set objTabla=objBase.Execute(sql)
if objTabla.eof then 'si esta a final de fichero = no hay ninguna entrada.
%>
<center><p>No hay ninguna entrada en la base de datos....
<P>Pulse <a href="agregar.asp" target="principal_tablon">aqu�</A> para agregar una nueva Nota...
<%
else
'Nos colocamos al inicio del fichero
objtabla.MoveFirst
'Nos movemos n registros por el fichero
objtabla.Move(Session("Pagina")*20)
'Inicializamos una variable que contara el n�mero de registros mostrados.
Registro=0
'Si el usuarios estando en la ultima p�gina, pulsa en el bot�n actualizar del navegador, lo que hace es enviar una nueva solicitud de pagina siguiente o anterior seg�n sea la ultima acci�n realizada, por este motivo, es posible que el n�mero de p�gina, sea superior al numero de registros de la base de datos. Por este motivo, comprobamos que no se haya pasado de p�gina, y si es as� le restamos una.
if objTabla.EOF then
objtabla.MoveFirst
session("Pagina")=session("Pagina")-1
objtabla.Move(Session("Pagina")*20)
end if
'A trav�s de un bucle hasta que la variable Registro sea superior a 20, o hasta el final del fichero, vamos mostrando la fecha en formato espa�ol (dd/mm/yyyy), la hora, el nombre, y el titulo de la nota.
do while Registro<20 and not objTabla.eof
%>
<P><li><%=day(objtabla("Fecha")) & "/" & month(objtabla("Fecha")) & "/" & year(objtabla("Fecha"))%> - <%=formatdatetime(objtabla("Hora"),4)%> <a href="mailto:<%=objTabla("correo")%>"><%=objTabla("Nombre")%></A>
<%
CadenaMostrar="Fecha=" & objTabla("Fecha") & "&Hora=" & objTabla("Hora") & "&Correo=" & objTabla("correo")
CadenaMostrar=replace(CadenaMostrar," ","+")
%>
'El titulo de la nota, esta en formato de enlace, el cual si pulsamos se abrir� en el frame con el nombre "informacion_notas"
<BR><a href="informacion_notas.asp?<%=CadenaMostrar%>" target="informacion_notas"><%=objTabla("titulo")%></A></li>
<%
objtabla.movenext
Registro=Registro+1
loop
%>
<P><HR>
<table border=0 CELLPADDING=0 cellspacing=0 width=100%>
<tr>
<!--Creamos una tabla, donde colocaremos si es necesario los iconos de siguiente y/o anterior para visualizar la siguiente o anterior p�gina-->
<td valign=bottom width=70>
<!--Si el valor de Session("Pagina") es mas grande de cero, quiere decir que estamos en la segunda p�gina como m�nimo, por lo que tendr� que haber el enlace de anterior. N�tese que se llama al mismo archivo 'notas.asp' enviando el valor de Pagina como Siguiente o Anterior-->
<%if Session("Pagina")>0 then%>
<font face="Arial" size=2><a href="notas.asp?Pagina=Anterior"><img src="../izquierda.gif" border=0 alt="Anterior"></A>
<%end if%>
</td>
<td width=100%></td>
<td valign=bottom width=70>
<!--Si una vez mostrados los 20 mensajes de las notas, vemos que todav�a no estamos al final del fichero, quiere decir que hay mas datos en la base de datos, por lo que mostramos un enlace de siguiente-->
<%if not objtabla.EOF then%>
<font face="Arial" size=2><a href="notas.asp?Pagina=Siguiente"><img src="../derecha.gif" border=0 alt="Siguiente"></A>
<%end if%>
</td>
</tr>
</table>
<%
end if
'Cerramos la base de datos.
objbase.Close
%>
</HTML>
|