problema invio mail

[digitalgfx]

ciao ragazzi vi posto il codice su cui sto lavorando e l'errore che mi da il server, anche se le email arrivano lo stesso a destinazione.



<%
Dim mail, subject, message, no

no = 0
subject = Request.Form("subject")
message = Request.Form("message")
message = message & vbcrlf & vbcrlf & "Se ti vuoi cancellare dalla Mailing list clicca il link sottostante"
message = message & vbcrlf & "http://www.xxx.it/mailing/del.asp?email="
Set conn = Server.CreateObject("ADODB.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("ado.mdb")
sql = "select * from tblsqladd"
Set rs = Server.CreateObject("ADODB.recordset")
rs.open sql, conn, 3, 3

do until rs.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
Mail.MailFormat = html
mail.From = "www.inforsud.it"
mail.To = rs.fields("email")
mail.Subject = subject
mail.Body = message & rs.fields("email")
mail.Send
Set mail = Nothing
Response.Write "Email inviata a : " & rs.fields("email") & "
"
no = no + 1
rs.MoveNext
loop
Response.Write "Emails inviate a " & no & " users."
rs.Close
Set rs = Nothing
conn.Close
set conn = nothing


%>




errore:

Errore di run-time di Microsoft VBScript error '800a000d'

Tipo non corrispondente: 'To'

mail.asp, line 19


dsa cosa dipende?

grazie

[zetaweb]

guarda secondo me l'errore sta nel from.
Con i cdosys, adesso non ricordo se anche con i CDONTS, bisogna mettere un indirizzo email corretto nel mittente, e quindi non un indirizzo web come hai fatto tu.
Inoltre nel To ti conviene recuperarti prima il valore e assegnargli un nome di variabile.