<% strStyleCorrect = "formLabel" strStyleError = "formLabelError" Set dicErrorFields = Server.CreateObject("Scripting.Dictionary") If Request.Querystring("A0")="Send" Then If Trim(Request.Form("txtTipologia")) = "" Then dicErrorFields.Add "txtTipologia", "" End If If Trim(Request.Form("txtCognome")) = "" Then dicErrorFields.Add "txtCognome", "" End If If Trim(Request.Form("txtNome")) = "" Then dicErrorFields.Add "txtNome", "" End If If Trim(Request.Form("txtIndirizzo")) = "" Then dicErrorFields.Add "txtIndirizzo", "" End If If Trim(Request.Form("txtCap")) = "" Then dicErrorFields.Add "txtCap", "" End If If Trim(Request.Form("txtCitta")) = "" Then dicErrorFields.Add "txtCitta", "" End If If Trim(Request.Form("txtTelefono")) = "" Then dicErrorFields.Add "txtTelefono", "" End If If Trim(Request.Form("txtEmail")) = "" Then dicErrorFields.Add "txtEmail", "" End If If Trim(Request.Form("txtComunicazioni")) = "" Then dicErrorFields.Add "txtComunicazioni", "" End If If dicErrorFields.Count > 0 Then %>


Fill marked fields!

<% Else strMailBody = strMailBody & "COMUNICAZIONE ALLA DIREZIONE
" strMailBody = strMailBody & "---------------------------------------------------------------------" & "
" strMailBody = strMailBody & "TIPOLOGIA MITTENTE: " strMailBody = strMailBody & Request.Form("txtTipologia") & "
" strMailBody = strMailBody & "COGNOME: " strMailBody = strMailBody & Request.Form("txtCognome") & "
" strMailBody = strMailBody & "NOME: " strMailBody = strMailBody & Request.Form("txtNome") & "
" strMailBody = strMailBody & "CITTA': " strMailBody = strMailBody & Request.Form("txtCitta") & "
" strMailBody = strMailBody & "INDIRIZZO: " strMailBody = strMailBody & Request.Form("txtIndirizzo") & "
" strMailBody = strMailBody & "CAP: " strMailBody = strMailBody & Request.Form("txtCAP") & "
" strMailBody = strMailBody & "TELEFONO: " strMailBody = strMailBody & Request.Form("txtTelefono") & "
" strMailBody = strMailBody & "EMAIL: " strMailBody = strMailBody & Request.Form("txtEmail") & "
" strMailBody = strMailBody & "COMUNICAZIONI: " strMailBody = strMailBody & Request.Form("txtComunicazioni") & "
" strMailBody = strMailBody & "---------------------------------------------------------------------" SendEmail "ceo@bbitalia.com", Request.Form("txtEmail") & " (" & Request.Form("txtCognome") & " " & Request.Form("txtNome") & ") FORM Comunicazione alla Direzione Inglese www.bbitalia.com", strMailBody %>


Message successfully sent!

Ph. +39
from mondays through frydays 09.30am. to 13.30pm. & from 14.30 to 18.30
Italian standard zone time

<% End If End If If (Request.Querystring("A0")="Send" AND dicErrorFields.Count > 0) OR Request.Querystring("A0")="" Then %>

Ph. +39
from mondays through frydays 09.30am. to 13.30pm. & from 14.30 to 18.30
Italian standard zone time

(Fields marked by * are mandatory)

Message to President

 

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Family name

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Name

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Sender

 

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) City & State

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Full address

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) ZIP code

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Phone & fax

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Email

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Message

 


<% End If %>