Per ricevere maggiori informazioni
sui contributi
compilare il form
oppure conttattare direttamente
i nostri uffici:
Tel +39 035781256
e-mail customercare@italianexpo.it |
|
| Richiesta
Informazioni Contributi
|
| |
Molte Camere di Commercio Italiane, al fine di agevolare l'export delle imprese italiane, prevedono la concessione di contributi a fondo perduto, le modalità ed i termini di tali contributi sono definiti dalle singole camere di commercio.
Per richiedere informazione sui contributi compilare il seguente form:
Sono interessato a ricevere maggiori informazioni sui contributi per:
<%
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 = "customercare@italianexpo.it"
objMail.To = "customercare@italianexpo.it"
objMail.bcc = "news@italianexpo.it"
objMail.Subject = "[Richiesta informazioni CONTRIBUTI]"
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