confronto giorni

[val]

salve ragazzi, devo creare uno script che a partire da due parametri estrae dal database dei valori. Per ogni valore, prendo un campo dato, estraggo giorno mese ed anno e vado a verificare che il mese sia uguale a quello che voglio vedere.
se si vado a prendere il giorno e dovrei verificare se sia uguale a quello precedente.

lo script che creato è il seguente:
<%
Dim ConnAct
Set ConnAct=Server.CreateObject("ADODB.Connection")
ConnAct.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../fpdb/dati.mdb")
SQLAct="SELECT * FROM TabQuant WHERE IDAzienda="&azienda
Set recAct = Server.CreateObject("ADODB.Recordset")
Set RecAct=ConnAct.Execute(SQLAct)
while not RecAct.EOF

valore = Split(RecAct("Data"),"/",6)
anno = valore(2)
mese = valore(1)
giorno = valore(0)
if mese = meserec then
if giorno = giornoprev then
qta = RecAct("Qta") + qta
else
qta = RecAct("Qta")
end if
%>
<tr>
<td width="121" height="25" style="border-bottom: 1px solid #FFFFFF" bgcolor="#F2F2F2">
<font face=verdana size=1><%=RecAct("data")%></font>
</td>
<td align=center width="179" height="25" style="border-bottom: 1px solid #FFFFFF" bgcolor="#F2F2F2">
<font face=verdana size=1><%=qta%></font>
</td>
</tr>
<%
giornoprev = giorno
end if


RecAct.MoveNext
WEND

RecAct.Close
ConnAct.Close
%>

ma non funziona?

[santino83]

anno=datepart("yyyy",RecAct("Data"))
mese=datepart("m",RecAct("Data"))
giorno=datepart("d",RecAct("Data"))