THIS OLD CONVENT

<%@ Language = "VBScript" %> <% Select Case Request.Querystring("Action") Case "Send" on error resume next 'Set variables Dim BackURL Dim strName Dim strEmail Dim strSubject Dim strMessage Dim strUserIP Dim strToEmail Dim daCdoMail Dim strPet Dim ArrivalMonth Dim Last Dim First Dim Address Dim City Dim Postcode Dim Country Dim Tel Dim Fax Dim Arrivaldate Dim Arrivalyear Dim DepartureMonth Dim Departuredate Dim Departureyear Dim Apartment 'Replace this email with your real email id strToEmail = "v.cartini@informatica95.com" BackURL = Request.ServerVariables("HTTP_REFERER") strName = Request.form("Name") strEmail = Request.form("Email") strSubject = Request.form("Subject") strPet = Request.form("Pet") strMessage = Request.form("Message") strUserIP = Request.ServerVariables("REMOTE_ADDR") ArrivalMonth = Request.form("ArrivalMonth") Last = Request.form("Last") First = Request.form("First") Address = Request.form("Address") City = Request.form("City") Postcode = Request.form("Postcode") Country = Request.form("Country") Tel = Request.form("Tel") Fax = Request.form("Fax") Arrivaldate = Request.form("Arrivaldate") Arrivalyear = Request.form("Arrivalyear") DepartureMonth = Request.form("DepartureMonth") Departuredate = Request.form("Departuredate") Departureyear = Request.form("Departureyear") Apartment = Request.form("Apartment") 'Create Mail Object Set daCdoMail = CreateObject("CDONTS.NewMail") daCdoMail.To = strToEmail daCdoMail.From = strEmail daCdoMail.Subject = strSubject daCdoMail.Body = "This message was sent by

name:" & Last & "
Surname: " & First & "
Address: " & Address & "
City: " & City & "
Postcode: " & Postcode & "
Country: " & Country & "
Tel: " & Tel & "
Fax: " & Fax & "
Arrival date: " & ArrivalMonth & " " & Arrivaldate & " " & Arrivalyear & "
Departure date: " & DepartureMonth & " " & Departuredate & " " & Departureyear & "
Apartment: " & Apartment & "
at " & Now() & ".

" & strMessage & _ "

ASP Contact Form Script
" & _ "http://www.thisoldconvent.com" '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") = "Sender Email or Resipient Email is blank. This message can not be sent. Please try again" 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") = "Your email with subject [" & strSubject & "] has been sent. Thank you for writing to us." 'Redirect and show the result Response.redirect (BackURL) End Select %> THIS OLD CONVENT

Please fill out this form and click on the Submit Reservation Request button at the bottom of the page.

*indicates required information

ASP Contact Form Version 1 Powered by DigitalArakan <%If Session("msgSent") = "" Then%> <%If Session("msg") <> "" Then%> <%End If%>

Contact Form

Please fill out this form and click on 'Send Message' button.
<%=Session("msg")%>

Last Name: ">

First Name: ">

Address: ">

City: ">

Post Code: ">

Your Email: ">

Country:

Subject:

Telephone number City and Country Code: ">

Fax number City and Country Code: ">

Arrival Date:

Departure Date:

Apartment:

Where did you hear about IL CONVENTO MINCIONE?: <%= Request.form("Message") %>

<%Else%>

Message Sent

<%=Session("MsgSent")%>

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

Contact Form
Please fill out this form and click on 'Send Message' button.
<%=Session("msg")%>

Last Name:	">
First Name:	">
Address:	">
City:	">
Post Code:	">
Your Email:	">
Country:
Subject:
Telephone number City and Country Code:	">
Fax number City and Country Code:	">
Arrival Date:
Departure Date:
Apartment:
Where did you hear about IL CONVENTO MINCIONE?:	<%= Request.form("Message") %>