Buongiorno a tutti!!!
Ho un "piccolo" problema: praticamente ho una mail form creato in Flash per l'invio dei dati direttamente dal sito!
Questo é lo script:
<%@Language=VBScript%>
<%option explicit%>
<%
dim mail, strBody
set mail = CreateObject("CDO.Message")
StrBody = "<HTML><HEAD><TITLE>EMAIL</TITLE></HEAD><BODY bgcolor='#e1e1e1'>"
StrBody = StrBody + "Questi sono i dati inviati dal form del sito:
"
StrBody = StrBody + "nome: <FONT COLOR=RED>" & Request.Form("nome") & "</FONT>
"
StrBody = StrBody + "cognome: <FONT COLOR=RED>" & Request.Form("cognome") & "</FONT>
"
StrBody = StrBody + "citta: <FONT COLOR=RED>" & Request.Form("citta") & "</FONT>
"
StrBody = StrBody + "indirizzo: <FONT COLOR=RED>" & Request.Form("indirizzo") & "</FONT>
"
StrBody = StrBody + "telefono: <FONT COLOR=RED>" & Request.Form("telefono") & "</FONT>
"
StrBody = StrBody + "mail: <FONT COLOR=RED>" & Request.Form("mail") & "</FONT>
"
StrBody = StrBody + "preventivo: <FONT COLOR=RED>" & Request.Form("preventivo") & "</FONT>
"
StrBody = StrBody + "</BODY></HTML>"
Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp server") = "xxxx.xxxxx.xxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp serverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/send using") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtp connectiontimeout") = 60
.Fields.Update
End With
Set mail.Configuration = objConfig
mail.From = Request.Form("mail")
mail.To = "xxx@xxxxx.xxxx"
mail.Subject = "preventivo dal sito"
mail.BodyFormat=0
mail.MailFormat=0
mail.HtmlBody = strBody
mail.Send
set mail = Nothing%>
Quando testo dal sito la pagina ASP mi dice che c'è un errore nella linea 16!!!
Praticamente non riconosce "objConfig"
Come posso fare?
Aspetto vostre risposte!!!!