<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Select Case Request.Querystring("Action") Case "Send" on error resume next 'Set variables Dim BackURL Dim strName Dim strSurname Dim strFirm Dim strPhone Dim strEmail Dim strSubject Dim strMessage Dim strUserIP Dim strToEmail Dim daCdoMail 'Replace this email with your real email id strToEmail = "info@ombrugg.com" BackURL = Request.ServerVariables("HTTP_REFERER") strName = Request.form("Name") strSurname = Request.form("Surname") strFirm = Request.form("Firm") strPhone = Request.form("Phone") strEmail = Request.form("Email") strSubject = Request.form("Subject") strMessage = Request.form("Message") strUserIP = Request.ServerVariables("REMOTE_ADDR") 'Create Mail Object Set daCdoMail = CreateObject("CDONTS.NewMail") daCdoMail.To = strToEmail daCdoMail.From = strEmail daCdoMail.Subject = strSubject daCdoMail.Body = "Questo messaggio è stato inviato da: " & strName & " " & strSurname & "
Azienda: " & strFirm & "
Telefono: " & strPhone & "


Messaggio:
" & strMessage & _ "



Powered by MEDIACENTRO" 'You can change the mail body format setting below '0 = HTML, 1 = TEXT daCdoMail.BodyFormat = 0 'You can change the mail format setting below '0 = HTML, 1 = TEXT daCdoMail.MailFormat = 0 'Set Server Side Validation to make sure we got both sender and recipient email Id to send email If strToEmail = "" OR strEmail = "" Then Session("msg") = "Il campo e-mail è vuoto. Questo messaggio non può essere inviato. Per favore controllare." Response.redirect (BackURL) Else 'Now send email to the address you specified at line no. 16 daCdoMail.Send End If 'Destroy mail object Set daCdoMail = Nothing 'Create result text in a Sesion Session("MsgSent") = "Il messaggio è stato correttamente inviato. Sarete ricontattati il prima possibile. Grazie" 'Redirect and show the result Response.redirect (BackURL) End Select %> OMB Brugger - Contattaci per maggiori informazioni Seleziona
itaeng
Attivi dal 1920, siamo specializzati nella produzione di particolari di meccanica di precisione, che realizziamo in maniera conforme ai più elevati standard di qualità.

<%If Session("msgSent") = "" Then%>
Per maggiori informazioni sui prodotti ed i servizi che riserviamo ai nostri clienti compilate il seguente form. <%If Session("msg") <> "" Then%> <%=Session("msg")%> <%End If%>

Nome: *
">

Cognome:
">

Azienda:
">

Telefono: *
">

e-mail: *
">

Oggetto: *


Messaggio: *


* = campi obbligatori <% 'DO NOT REMOVE THIS LINE Response.write "" %>

<%Else%>

Messaggio inviato

<%=Session("MsgSent")%> <%End If 'Destroy session variables Session("MsgSent") = "" Session("msg") = "" %>