ho questo codice:


codice:
...
	sql_mail= "SELECT * "
	sql_mail= sql_mail + "FROM email "
    sql_mail= sql_mail + "WHERE tipologia='"&area&"';"

	
	set obj_mail = Server.CreateObject("adodb.Recordset")	
	set obj_mail = objConn.Execute (sql_mail)
indirizzo=obj_mail("email")

Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = Request.Form("email")
destinatario = indirizzo
oggetto = "reclamo " & area
messaggio = "e_mail inviata da " & Request.Form("nome") & " " & Request.Form("cognome")  & " " & Request.Form("rag_sociale")& " " & Request.Form("email")& "  il reclamo è: " & Request.Form("testoreclamo")

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio

'Invio di una pagina web
.CreateMHTMLBody "http://www.novacomitalia.com/home/"

'Invio con allegato
'.AddAttachment server.mappath("/public/test.txt")

'Invia l'email 
.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>

non mi va in errore ma non mi spedisce la mail qual'è il problema?

il codice è quello preso da:

http://freeasp.html.it/script/view_script.asp?id=281


aiuto