mail antispam

[biocco]

ho fatto questo programmino anti spam che cerca la mail in un db e la invia ma non funziona mi aiutate?

<%
Dim xusermail
Dim xxxxmail
Dim xobjmail
Dim xtxtmail
Dim Corpo
Dim iMsg
Dim iConf
Dim Flds
Dim Conn
Dim Collegamento


xusermail = Request.Form("usermail")
xxxxmail = Request.Form("ieomail")
xobjmail = Request.Form("objmail")
xtxtmail = Request.Form("txtmail")



Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/personale.mdb") 
Set rs = Server.CreateObject("ADODB.Recordset") 
sql = "SELECT Mail FROM Medici WHERE Denominazione = '" & xxxxmail & "'"
RS.Open sql, conn, adOpenKeyset 
if not rs.eof then
Response.Write rs("Mail") = xieomail
end if
rs.close

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.xxx.it" 
Flds.Update

Corpo =  "Email inviata in automatico - Sito Web xxx

" + xtxtmail

With iMsg Set .Configuration = iConf 
  .To = xieomail
  .From = xusermail
  .Sender = xusermail
  .Subject = xobjmail
  .HTMLBody = Corpo
  .Send
End With
%>

[Roby_72]

Errore?
Che vuol dire "antispam"?

Roby

[biocco]

è un programmino che cerca la mail con la stringa passata dal link in modo da evitare lo spamming a chi riceve la mail.

ecco l'errore che mi da

CDO.Message.1 error '8004020c'

At least one recipient is required, but none were found.

/sendmail.asp, line 74

[Roby_72]

La riga 74??????
Assicurati che le variabili qui dentro:

With iMsg Set .Configuration = iConf
.To = xieomail
.From = xusermail
.Sender = xusermail
.Subject = xobjmail
.HTMLBody = Corpo
.Send
End With


siano tutte valorizzate.

Roby