Salve, qualcuno può cortesemente spiegarmi perchè questo script (trovato nella ricerca ed adattato alle esigenze) quando gli dico di inviare un sollecito agli utenti che da più di sette giorni non hanno confermato la loro iscrizione, prende in considerazione anche le date da escludere? Esempio:

Oggi è 01/12/2004
meno sette giorni = 24/11/2004

il sollecito viene spedito a queste date:

08/11/04 ok
21/11/04 ok

25/11/04 ??
29/11/04 ??

questo è il code, nella parte essenziale:
codice:
session.LCID = 1040

Dim adoCon, OpenStr, rsCommon, blnActivated, strUserID, strSQL, sSQL

Set adoCon = Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/database.mdb")
adoCon.open OpenStr

'imposto i giorni dopo i quali devo inviare il sollecito
VarSollecito = (Date() - 7)

'creo l'oggetto rsCommon
Set rsCommon = Server.CreateObject("ADODB.Recordset")

'apro la connessione al db
strSQL = "SELECT * FROM tbl WHERE Data_ricevuto <= (#"& VarSollecito &"#) and Attivo = false Order by ID Asc"
rsCommon.Open strSQL, OpenStr, 3, 3 

'controllo se esistono record
If rsCommon.Eof then

.......

Else

.......

'inizia il ciclo di invio mail di sollecito
Do while (Not rsCommon.Eof)

Randomize()
primoNum = Int(Rnd * 100)
Randomize()
secondoNum = Int(Rnd * 100)
Randomize()
terzoNum = Int(Rnd * 100)

Response.write "Data di iscrizione: "
Data1 = rsCommon("data_ricevuto")
response.write "<font color=red>"& data1 &"
</font>"

codice = data1&" - "&primoNum&"."&secondoNum&"."&terzoNum&""

.............

rsCommon.Movenext
Loop

rsCommon.Close
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing  
end if