Per ricevere maggiori informazioni
sulle nostre iniziative e sui mercati dell'Iraq e del Viet Nam
compilare il form
oppure conttattare direttamente
i nostri uffici:
Tel +39 035781256
e-mail info@italianexpo.it |
|
| |
Per ricevere maggiori informazioni
sulle nostre iniziative e sui mercati dell'Iraq e del Viet Nam
compilare il form sottostante:
<%
Session.CodePage = 65001
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"
objMail.To = "info@italianexpo.it"
objMail.bcc = "news@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
%>
(*) I campi contrassegnati con asterisco sono obbligatori
|
|
english version