ho fatto questo programmino anti spam che cerca la mail in un db e la invia ma non funziona mi aiutate?
codice:
<%
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
%>