<% strStyleCorrect = "formLabel" strStyleError = "formLabelError" Set dicErrorFields = Server.CreateObject("Scripting.Dictionary") If Request.Querystring("A0")="Send" Then If Trim(Request.Form("txtDenominazione")) = "" Then dicErrorFields.Add "txtDenominazione", "" End If If Trim(Request.Form("txtUrl")) = "" Then dicErrorFields.Add "txtUrl", "" End If If Trim(Request.Form("txtWebmaster")) = "" Then dicErrorFields.Add "txtWebmaster", "" End If If Trim(Request.Form("txtComunicazioni")) = "" Then dicErrorFields.Add "txtComunicazioni", "" End If If dicErrorFields.Count > 0 Then %>


Plese, fill marked fields!

<% Else strMailBody = strMailBody & "PROPOSTA PER WEBMASTER
" strMailBody = strMailBody & "---------------------------------------------------------------------" & "
" strMailBody = strMailBody & "DENOMINAZIONE: " strMailBody = strMailBody & Request.Form("txtDenominazione") & "
" strMailBody = strMailBody & "URL: " strMailBody = strMailBody & Request.Form("txtUrl") & "
" strMailBody = strMailBody & "WEBMASTER: " strMailBody = strMailBody & Request.Form("txtWebmaster") & "
" strMailBody = strMailBody & "COMUNICAZIONI: " strMailBody = strMailBody & Request.Form("txtComunicazioni") & "
" strMailBody = strMailBody & "---------------------------------------------------------------------" SendEmail "webassist@bbitalia.com", Request.Form("txtWebmaster") & " (" & Request.Form("txtUrl") & " " & Request.Form("txtDenominazione") & ") FORM webmaster inglese www.bbitalia.com", strMailBody %>


Message successfully sent!

Ph. +(39) 0817141533 +(39) 3346230140
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)

WEBMASTER

 

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

  ">

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

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Web site
url

  ">

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

 

The first Italian B & B network
All our offers have been carefully selected by our staff
 For hyperlink, please copy following html code.
<% End If %>