<%
if request("Nome") <> "" AND Request("email") <> "" then
' Invia la email
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
objConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConf.Fields.Update
Set objMail.Configuration = objConf
objMail.From = "info@onda-azzurra.com"
objMail.To = "info@onda-azzurra.com"
objMail.Subject = "Richiesta da sito web sloveno"
Testata = "Richiesta da sito web
"
Corpo = "Nome: " & Request("Nome")
Corpo = Corpo & " Cognome: " & Request("Cognome")
Corpo = Corpo & " Indirizzo: " & Request("Indirizzo")
Corpo = Corpo & " CAP: " & Request("CAP")
Corpo = Corpo & " Città: " & Request("Citta")
Corpo = Corpo & " Stato: " & Request("Stato")
Corpo = Corpo & " Telefono: " & Request("Telefono")
Corpo = Corpo & " Email: " & Request("email") & ""
Corpo = Corpo & " Richiesta: " & Request("Richiesta")
Corpo = Corpo & "
Data invio: " & now()
objMail.HTMLBody = Testata & Corpo
objMail.Send
objMail.From = "info@onda-azzurra.com"
objMail.To = Request("email")
objMail.Subject = "Richiesta da sito web"
Testata = "Richiesta da sito web.
"
Corpo = "Gentile " & Request("Nome") & " " & Request("Cognome") & ",
grazie per aver compilato il modulo.
Ti ricontatteremo al più presto."
objMail.HTMLBody = Testata & Corpo
objMail.Send
Set objConf = Nothing
Set objMail = Nothing
%>
La vostra richiesta è stata inviata correttamente.
Vi contatteremo nel più breve tempo possibile.
Grazie per averci scelto!
<%
Else
%>
Informazioni
Per ricevere informazioni sulla disponibilità compila il modulo clicca sul tasto INVIA.
<%
End if
%>
|