INFORMACION_NOTAS.ASP
Muestra el contenido de la nota seleccionada en el archivo notas.asp.
<HTML>
<BODY TEXT="#000000" BGCOLOR="#ffffff" vlink="#000080" link="#000080" alink="#000080">
<FONT FACE="Arial" size=2>
<center><H3>INFORMACI�N NOTAS</h3></center>
<BR><P>
<%
'Si no recibimos la fecha, la hora, o el correo de la nota a mostrar, aparecer� el mensaje de "Seleccione una nota para ver su contenido"
if Request.QueryString("Fecha")="" or Request.QueryString("Hora")="" or Request.QueryString("Correo")="" then%>
<p>Seleccione una nota para ver su contenido.
<%else
'abre la base de datos...
set objBase=server.CreateObject("ADODB.Connection")
set objTabla=server.CreateObject("ADODB.RecordSet")
objBase.Open "Tablon"
'busca el registro por la fecha, hora y direcci�n de correo
sql="SELECT * FROM Tablon WHERE Fecha=datevalue('" & Request.QueryString("Fecha") & "') and Hora=timevalue('" & Request.QueryString("Hora") & "') and Correo='" & Request.QueryString("Correo") & "'"
set objTabla=objBase.Execute(sql)
if objTabla.eof then 'si esta a final de fichero...
%>
<center><p>No se puede encontrar en la base de datos....
<%
else 'si ha encontrado la nota muestra el contenido de la misma
%>
<P><%=day(objtabla("Fecha")) & "/" & month(objtabla("Fecha")) & "/" & year(objtabla("Fecha"))%> - <%=objtabla("Hora")%> <a href="mailto:<%=objTabla("correo")%>"><%=objTabla("Nombre")%></A>
<BR><%=objTabla("titulo")%>
<HR><%=objTabla("texto")%>
<%
end if
'Cierra la base de datos
objBase.close
end if
%>
</body>
</HTML>
|