Sollecito email e date confuse

[orcim]

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:

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

[marco1970]

nn vorrei dire ca....te ma dovresti riformattare la data.
fai una prova stampati la data e vedi se il formato e come lo desideri

[orcim]

stampa questo:

Data e numero sollecito: 01/12/04 - 25.17.95

[cavicchiandrea]

io il probblema lo risolto inserendo due campi data nel db il primo inserisco la data campo "iscrizione" (24/11/04) nel secondo campo "verifica" (01/12/04) scrivo la data + 7 giorni

poi basta fare il controllo data (01/12/04) = verifica(01/12/04) invia email di sollecito.

[orcim]

Ciao, ho provato a seguire il tuo consiglio ed ho inserito un campo "data_verifica", nel quale si scrive la data+7

La query che ho previsto è questa:

strSQL = "SELECT * FROM anagrafica WHERE Data_Verifica <= Date() and attivo = false Order by ID Asc"

ma continua ad inviare il sollecito anche a chi non deve !!!!!

[marco1970]

sottrai i giorni con day()

[orcim]

Originariamente inviato da marco1970
sottrai i giorni con day()

Non ho capito... è il code iniziale che ho postato che fa l'operazione di sottrazione giorni e che comunque dà problemi...

[deivnet]

Prova a modificare la query così

strSQL = "SELECT * FROM tbl WHERE Data_ricevuto <= (#"& VarSollecito &"#) and Attivo = 0 Order by ID Asc"

Dove ho modificato il false della clausola Attivo con 0, altrimenti prova ad usare le funzioni di Access tipo DateDiff (se non sbaglio) e fare il controllo così

Where DateDiff("d", Data_Ricevuto, #"&VarSollecitato&"#) <= 0

[orcim]

strSQL = "SELECT * FROM tbl WHERE Data_ricevuto <= (#"& VarSollecito &"#) and activo = 0 Order by ID Asc"

non cambia nulla;

strSQL = "SELECT * FROM tbl Where DateDiff ("d", Data_Ricevuto, #"& VarSollecito &"#) <= 0"

restituisce:

Microsoft VBScript compilation error '800a0401'
Expected end of statement

[marco1970]

strSQL = "SELECT * FROM tbl Where DateDiff ("d", Data_Ricevuto, #"& VarSollecito &"#) <='0'

"