<%
on error resume next
if err.number>0 then
strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
else
strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
end if
response.write "inserimento avvenuto con
successo"
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
invioA = "tuamail@esempio.it"
'* voce da modificare con un indirizzo email che funga da mittente:
invioDa = "tuamail@esempio.it"
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"<font size=2>
Nome : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf & "
Indirizzo : " & Request.Form("indirizzo")
corpoMessaggio = corpoMessaggio & vbCrLf &"
E-mail : " & Request.Form("email")
corpoMessaggio = corpoMessaggio & vbCrLf &"
Telefono : " & Request.Form("telefono")
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Richiesta Informazioni dal sito " & nomeDominio
.HTMLBody = "Questi i dati inseriti nel modulo dei contatti per la richiesta di informazioni dall'utente con indirizzo IP " & indirizzoIp & " . " & vbCrLf & corpoMessaggio & ""
.Send
End With
%>