 |
<%
Session.CodePage = 65001 ' UTF-8 code
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "Invia" then
Dim objMail, objConfig
Set objMail = CreateObject("CDO.Message")
Set objConfig = Server.CreateObject ("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
Set objMail.Configuration = objConfig
set b =objMail.bodypart
b.charset = "unicode-1-1-utf-8"
objMail.From = "info@italianexpo.it"' Mittente
objMail.To = "info@italianexpo.it;acosta@italianexpo.it;mcaspani@italianexpo.it"' Destinatario
objMail.bcc = "info@italianexpo.it"'
objMail.Subject = "[Richiesta informazioni ITALIANEXPO]"
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & ": " & Trim(Request.Form(numeroCampi)& "
")
END IF
NEXT
objMail.HTMLBody = corpoMessaggio
objMail.Send()
Set objMail = Nothing
end if
%>
|
|
