venerdì 31 ottobre 2008

[ASP] - Data compresa entro un giorno limite

Ho dei video in un DB.
Se un video è stato inserito da meno di 7 giorni voglio che mi appaia una immagine con scritto NEW.

<%
gg=day(Date())
if gg < 10 then gg="0" & gg end if
mm=month(Date())
if mm < 10 then mm="0" & mm end if
aa=year(Date())

'data=aa & mm & gg

'Faccio una query al DB prendendo la data dell'ultimo video inserito
set rs_new=Server.CreateObject("ADODB.RecordSet")
qry_new="SELECT TOP 1 data_ins FROM tvideo ORDER BY id_video DESC;"
rs_new.Open qry_new,conn

'controllo che il db non sia vuoto
if not rs_new.EOF then

'CDATE trasforma in DATA
'data inserimento ULTIMO VIDEO
data_inserimento=cdate(mm&"/"&gg&"/"&aa)

'DATA DI OGGI (è in formato MM/GG/AAAA)
data_oggi= date()
'response.write y
'numero giorni per la quale un video è considerato NEW
giorni_novita = 7

'data limite per la quale il video è ancora considerato NEW
data_limite = data_oggi - giorni_novita
'response.write data_limite

'se la data di inserimento dell'ultimo video è compresa tra la data di oggi e il giorno limite in cui è considerato NEW...
if not data_inserimento < data_limite then

'spunta l'immagine NEW
%>
<img src="images/new.gif" width="30" height="15" align="absmiddle">
<%
end if
end if
%>

Nessun commento: