select con controllo due date

[daduz]

ciao a tutti, dovrei inserire in questo codice un controllo che mi permetta di inviare solo mail comprese tra due date che scelgo in un precedente form ( dadata adata )...
coem posso eseguirlo... il codice è:

<%
Dim miaMail

strSQL="SELECT file,mail FROM archivio"
SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, MyConn

FOR CONTATORE=1 TO 9999

Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To = rs("mail")

MiaMail.Subject = "Invio documento " &rs("file")
MiaMail.TextBody = "In allegato inviamo documento " &rs("file")& ", cordiali saluti."
MiaMail.AddAttachment ("http://www.miosito.com/mdb-database/doc/") &rs("file")

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()

RS.movenext

IF RS.EOF THEN CONTATORE=10000
NEXT

Set miaMail = Nothing
%>

[longline]

Se usi Access:

strSQL = "SELECT file,mail FROM archivio"
strSQL = strSQL & " WHERE DataNelDatabase Between "
strSQL = strSQL & "#" & Month(DaData) & "/" & Day(DaData) & "/" & Year(DaData) & "#"
strSQL = strSQL & " AND "
strSQL = strSQL & "#" & Month(AData) & "/" & Day(AData) & "/" & Year(AData) & "#"

[daduz]

ciao e grazie, ho modificato il codice cosi:

<%
Dim miaMail

strSQL = "SELECT data,file,mail FROM archivio"
strSQL = strSQL & " WHERE Data Between "
strSQL = strSQL & "#" & Month(DaData) & "/" & Day(DaData) & "/" & Year(DaData) & "#"
strSQL = strSQL & " AND "
strSQL = strSQL & "#" & Month(AData) & "/" & Day(AData) & "/" & Year(AData) & "#"

SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, myconn

FOR CONTATORE=1 TO 9999

Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To = rs("mail") 'MANDA LA MAIL A TUTTI

MiaMail.Subject = "Invio documento " &rs("file")
MiaMail.TextBody = "In allegato inviamo documento " &rs("file")& ", cordiali saluti."
MiaMail.AddAttachment ("http://www.miosito.com/mdb-database/doc/") &rs("file")

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()

RS.movenext

IF RS.EOF THEN CONTATORE=10000
NEXT

Set miaMail = Nothing
%>


ma mi da questo errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'TO'

/consultonline/admin_sendmail1.asp, line 19



alla riga 19 ho:
MiaMail.To = rs("mail") 'MANDA LA MAIL A TUTTI




perchè

[longline]

Prova a mettere un indirizzo email "a mano", tipo:

MiaMail.To = "IndirizzoEmail@prova.it" 'MANDA LA MAIL A TUTTI

Se così va, significa che il valore in rs("mail") ha qualcosa che non va.

Se poi usi un indirizzo vero, puoi controllare l'invio effettivo.

[daduz]

il codice originale funziona, ho 10 record con 10 mail, e le spedisce regolarmente tutte con gli allegati...

che faccio ?

[daduz]

ho fatto la prova che dici
mi da questo errore

error '80020009'
/consultonline/admin_sendmail1.asp, line 25


alla linea 25 ho :
MiaMail.Subject = "Invio documento " &rs("file")


potrebbe essere un problema di campo data nel mio db :master:

[longline]

Se utilizzi dati "fissi" invece di quelli dinamici presi dal database puoi assicurarti che il tuo codice e l'oggetto CDO.Message funzionino correttamente. A quel punto, vedi cosa c'è che non va nel database e/o nei dati contenuti.

[daduz]

faccio il bagnetto a mio figlio e ci riprovo, ti tengo aggiornato !

[daduz]

cosi funziona:
<%

Dim miaMail

strSQL = "SELECT file,mail FROM archivio"

strSQL = strSQL & " WHERE Data Between "
strSQL = strSQL & "#" & Month(DADATA) & "/" & Day(DADATA) & "/" & Year(DADATA) & "#"
strSQL = strSQL & " AND "
strSQL = strSQL & "#" & Month(ADATA) & "/" & Day(ADATA) & "/" & Year(ADATA) & "#"

SET rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, myconn


Set MiaMail = Server.CreateObject("CDO.Message")
miaMail.From = "daduz@inwind.it"
MiaMail.To ="daduz@inwind.it"

MiaMail.Subject = "Invio documento " '&rs("file")'
MiaMail.TextBody = "In allegato inviamo documento, cordiali saluti."
MiaMail.AddAttachment ("http://www.miosito.com/mdb-database/doc/128.pdf")

MiaMail.Fields("urn:schemas:httpmail:importance"). Value = 2
MiaMail.Fields.Update()
MiaMail.Send()


Set miaMail = Nothing
%>


io credo che il problema lo crei il campo data, mi consigli un metodo per verificarlo ?

[longline]

Devi fare una prova anche lì con dati fissi.

Esempio:

strSQL = strSQL & " WHERE Data Between "
strSQL = strSQL & "#01/01/2000#"
strSQL = strSQL & " AND "
strSQL = strSQL & "#12/31/2007#"