ciao a tutti ho questo codice per invio e-mail cdonts (il mio spazio web lo supporta) il problema è questo non mi invia niente .. dove sbaglio?
Codice PHP:
<%@ Language = "VBScript" %>
<%
Dim iMsg, iConf, Flds, azienda1,azienda,nome,email,citta,regione1,regionetelefono,oggetto2,oggetto,provincia,messaggio,lingua
azienda1= Request.Form("azienda")
nome = Request.Form("nome")
email = Request.Form("email")
citta = Request.Form("citta")
regione1 = Request.Form("regione")
telefono = Request.Form("telefono")
oggetto2 = Request.Form("oggetto")
provincia = Request.Form("provincia")
messaggio = Request.Form("messaggio")
lingua= Request.Form("lingua")
if azienda1 = "" then
azienda = "Non Dichiarata"
else
azienda = Request.Form("azienda")
end if
if regione1 = "" then
regione = "Non Dichiarata"
else
regione = Request.Form("regione")
end if
Set iMsg = Server.CreateObject("CDONTS.NewMail")
mittente = email
destinatario = "info@iiii.it"
oggetto = "Richiesta informazioni dal sito ii.com"
messaggio = "Messaggio inviato dal sito ii.com
------------------------------------------------------------------------------
"&_
"Dati del mittente che desidera avere informazioni:
"&_
"[b]Oggetto:[/b] " & oggetto2 &"
"&_
"[b]Nome Azienda:[/b] " & azienda &"
"&_
"[b]Nome Referente:[/b] " & nome &"
"&_
"[b]Città:[/b]" &citta&"
"&_
"[b]Provincia:[/b]" &provincia&"
"&_
"[b]Telefono:[/b]" &telefono&"
"&_
"[b]E-mail: [/b][email=' "&email&"']"&email&"[/email]
"&_
"[b]
Messaggio della richiesta: [/b]
"&messaggio&"
------------------------------------------------------------------------------
"&_
"[b]Il messaggio è stato inviato il: [/b] "&Date()&"
"&_
"[b]Indirizzo ip del mittente:[/b] "&Request.ServerVariables("REMOTE_ADDR")&""
iMsg.From = mittente
iMsg.To = destinatario
iMsg.Subject = oggetto
iMsg.Body = messaggio
iMsg.Send()
set iMsg = Nothing
Response.Redirect("contatti_mappa.asp?conferma=ok&lang=" & lingua &"")
%>
:master: