Temas >> C�digo del tabl�n de notas

INICIO.ASP

En este archivo, lo que se hace es eliminar las notas introducidas hace mas de dos meses, y genera el frame vertical de separaci�n entre las notas y el contenido de las mismas.

<HTML>

<% 'Inicio del c�digo ASP

'Definimos tres variables. En ASP no se definen las variables como enteras, string, etc...
dim x
dim mes
dim ano
ano=year(date) 'ano contiene el valor del a�o actual
mes=month(date)-2 'A la variable mes le damos el valor del mes actual menos 2. Es para la consulta SQL.

'Si el mes devuelto es mas peque�o de 0, se le suma 12 al mes, de esta manera si estamos en enero, quedara el mes 11 (Noviembre)
if mes<=0 then
mes=mes+12
ano=year(date)-1
end if

'Determina si la fecha es correcta, ya que por ejemplo si hoy estamos a 31 de enero, y le restamos dos meses, seria 31 de Noviembre, y ese d�a no existe.
if isdate(day(date) & "/" & mes & "/" & ano) then
    x=datevalue(day(date) & "/" & mes & "/" & ano)
    set objBase=server.CreateObject("ADODB.Connection")
    set objtabla=server.CreateObject("ADODB.recordset")
    'Abre la base de datos 'Tablon', la cual tiene que estar definida previamente en el controlador ODBC
    'Si se desea, tambien se puede hacer desde c�digo, sin tener que configurar el controlador ODBC de Windows, la instrucci�n seria:
    'objBase.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("tablon.mdb")
    objBase.Open "tablon"
    'Genera una consulta SQL de eliminaci�n
    set objtabla=objBase.Execute("DELETE * FROM Tablon WHERE Fecha<=datevalue('" & x & "')")
    'Cierra de base de datos
    objBase.Close
end if
'Final del c�digo ASP
%>

</HTML>