Home Page

           

<% If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then 'Check for spam logSpam = false strReferer = request.servervariables("HTTP_REFERER") If InStr(strReferer, "headinthecloudsballoonflights.co.uk") = 0 and InStr(strReferer, "headintheclouds.ndirect.co.uk") = 0 and InStr(strReferer, "ndirect.co.uk") = 0 then logSpam = true end if if inStr(LCASE(strMessage),"url=http") > 0 then logSpam = true if inStr(LCASE(strMessage),"slots") > 0 then logSpam = true if inStr(LCASE(strMessage),"gambling") > 0 then logSpam = true if inStr(LCASE(strMessage),"online") > 0 then logSpam = true if inStr(LCASE(strMessage),"on-line") > 0 then logSpam = true if inStr(LCASE(strMessage),"edication") > 0 then logSpam = true if inStr(LCASE(strMessage),"atches") > 0 then logSpam = true if inStr(LCASE(strMessage),"iagra") > 0 then logSpam = true if inStr(LCASE(strMessage),"ialis") > 0 then logSpam = true if inStr(LCASE(strMessage),"pharmacy") > 0 then logSpam = true if inStr(LCASE(strMessage),"sex") > 0 then logSpam = true if not logSpam then strName = Request.Form("Name") strText = Request.Form("Text") strPhone = Request.Form("Phone") strEmail = Request.Form("Email") strQuery = "Guestbook Submission" & vbcrlf strQuery = strQuery & "====================" & vbcrlf & vbcrlf strQuery = strQuery & "Name :" & strName & vbcrlf strQuery = strQuery & "Phone : " & strPhone & vbcrlf strQuery = strQuery & "Email : " & strEmail & vbcrlf strQuery = strQuery & strText & vbcrlf Dim objMail, aRecipients Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = strEmail objMail.To = "d.head@ndirect.co.uk" objMail.Subject = "Head in The Clouds Guestbook" objMail.Body = strQuery objMail.Send Set objMail = Nothing end if %>

Confirmation

Thanks <% Response.Write(strName) %> ,

All of us at Head in The Clouds Balloon Flights would like to thank you for completing our guestbook!

David Head

Return to the home page

<% Else %>
">

Our GuestbookUp, up and away for another flight...

Why not take the time to enter your details below, and we will contact you as soon as possible with any further ballooning information you may require?

Please tell us whether you would prefer a morning or evening balloon flight (subject to availability) and we will try to meet your requirements as soon as possible.

Your Requirements:

Your Name:

Telephone Number:

E-mail Address:

 

Send mail to WebMaster with questions or comments about this web site.
Last modified: September 20, 2008
<% End If %>