<% '**************************************************************************************** '* Copyright Notice - There isnt one for this script. '* '* This script is free for use. '* '* There is no support with this script. We are available for a free quotes. '* '* Web Animations take NO responsiblity with this script for any problems. '****************************** Use it at your own risk********************************* '**************************************************************************************** ' form start dim mail, smtpServer, smtpPort, message, SendString, subject, name, email, address, telnoday, mobile, content, StringValue, FormValue, sender, check1, check2 ' Put your SMTP Mail server here. If you do not know, ask your network administrator smtpServer = "mail.holidayvilla-florida.com" smtpPort = 25 ' this will not require changing unless instructed by your network administrator 'The message that appears in the subject of all emails subject = "Holiday Villa Vacation" 'Sender sender = "enquiry@holidayvilla-florida.com" ' Now gets the data from Form name = Request.Form("name") email = Request.Form("email") address = Request.Form("address") telnoday = Request.Form("telnoday") mobile = Request.Form("telnoeve") content = Request.Form("content") check1 = Request.Form("C1") check2 = Request.Form("C2") ' Sends Email ' This is the customers email Set mail = CreateObject ("JMail.SMTPMail") mail.ServerAddress = smtpServer & ":" & smtpPort mail.Sender = sender mail.Subject = subject mail.AddRecipient sender If check1 = "ON" Then mail.AddRecipient email End If mail.ContentType = "text/html" mail.ISOEncodeHeaders = false mail.ContentTransferEncoding = "8bit" 'This is what is sent to the customer. 'Switch to determine booking form or enquiry If check2 = "ON" Then message = BuildstringBooking(SendString) else message = BuildString(SendString) End If mail.Body = message ' Send all email ' Turn on error handling On Error Resume Next If Not mail.execute Then Response.Write( "ERROR MESSAGE: " & Jmail.ErrorMessage & "


" & vbcrlf ) Response.Write( "ERROR SOURCE: " & Jmail.ErrorSource & "


" & vbcrlf ) Response.Write( "LOG: 
" & Jmail.Log & "
" & vbcrlf ) End If set mail = nothing function BuildString(SendString) ' build header SendString = "" SendString = SendString & "" SendString = SendString & "
Thank you very much for your enquiry.
" ' body SendString = SendString & BuildElement("Name", name) SendString = SendString & BuildElement("Email", email) SendString = SendString & BuildElement("Address", address) SendString = SendString & BuildElement("Day Tel.", telnoday) SendString = SendString & BuildElement("Mobile Tel.", mobile) SendString = SendString & BuildElement("Comments", content) SendString = SendString & "
" ' finish off SendString = SendString & "

kind regards

Sarah Patterson" SendString = SendString & "

Email:   enquiry@holidayvilla-florida.com" SendString = SendString & "
Web:    www.holidayvilla-florida.com

" SendString = SendString & "" BuildString = SendString end function function BuildElement(StringValue, FormValue) dim SendString1 SendString1="" & StringValue & "" & FormValue & "" BuildElement = SendString1 end function function BuildElementBooking(StringValue, FormValue) dim SendString1 SendString1 = "" & StringValue & "" & FormValue & "" BuildElementBooking = SendString1 end function function BuildNameElement(StringValue, StringValue2, StringValue3) dim SendString1 SendString1="" & StringValue & "" & StringValue2 & "" & StringValue3 & "" BuildNameElement = SendString1 end function function BuildStringBooking(SendString) dim name1, age1, name2, age2, name3, age3, name4, age4, name5, age5, name6, age6, name7, age7, ArrivalDate, DepartureDate name1 = Request.Form("name1") age1 = Request.Form("age1") name2 = Request.Form("name2") age2 = Request.Form("age2") name3 = Request.Form("name3") age3 = Request.Form("age3") name4 = Request.Form("name4") age4 = Request.Form("age4") name5 = Request.Form("name5") age5 = Request.Form("age5") name6 = Request.Form("name6") age6 = Request.Form("age6") name7 = Request.Form("name7") age7 = Request.Form("age7") //Header SendString = "" //Table content SendString = SendString & "" SendString = SendString & "
Copy of booking form sent to enquiry@holidayvilla-florida.com." SendString = SendString & "

You will receive confirmation of your booking within 48 hours together with payment details." SendString = SendString & "
By returning this booking form you have agreed with our terms and conditions as specified on the web site www.holidayvilla-florida.com.

" SendString = SendString & BuildElement("Name", name) SendString = SendString & BuildElement("Email", email) SendString = SendString & BuildElement("Address", address) SendString = SendString & BuildElement("Day Tel.", telnoday) SendString = SendString & BuildElement("Mobile Tel.", mobile) ArrivalDate = Request.Form("ArrivalDay") & "-" & Request.Form("ArrivalMonth") & "-" & Request.Form("ArrivalYear") SendString = SendString & BuildElement("Arrival Date", ArrivalDate) DepartureDate = Request.Form("DepartureDay") & "-" & Request.Form("DepartureMonth") & "-" & Request.Form("DepartureYear") SendString = SendString & BuildElement("Departure Date", DepartureDate) SendString = SendString & BuildElement("Pool Heat", Request.Form("poolheatrequired")) if (not name1 = "" OR not age1 = "") Then SendString = SendString & BuildNameElement("Additional members in party", "Name", "Age") SendString = SendString & BuildNameElement("", name1, age1) end if if (not name2 ="" OR not age2 = "") Then SendString = SendString & BuildNameElement("", name2, age2) end if if (not name3 = "" OR not age3 = "") Then SendString = SendString & BuildNameElement("", name3, age3) end if if (not name4 = "" OR not age4 = "") Then SendString = SendString & BuildNameElement("", name4, age4) end if if (not name5 = "" OR not age5 = "") Then SendString = SendString & BuildNameElement("", name5, age5) end if if (not name6 = "" OR not age6 = "") Then SendString = SendString & BuildNameElement("", name6, age6) end if if (not name7 = "" OR not age7 = "") Then SendString = SendString & BuildNameElement("", name7, age7) end if if (not content = "") Then SendString = SendString & BuildElement("Comments", content) end if SendString = SendString & "
" //Sign Off SendString = SendString & "

Email:   enquiry@holidayvilla-florida.com" SendString = SendString & "
Web:    www.holidayvilla-florida.com

" SendString = SendString & "" BuildStringBooking = SendString end function %>
Holiday Villa Florida Holiday Villa Florida Images of the house
home
the house
take a look
floorplan
the area
map
prices
availability
terms
book online
contact us

 

House Facilities

The fittings are to a high standard, individually selected to compliment this luxurious home, a much higher standard than is found in the majority of rental homes.

  • Master Bedroom, King Size Bed, with 22" Television, leading to Master Bathroom, with his & her twin basins, Jacuzzi bath, large shower cubicle. Separate W.C.
  • Large walk-in closet
  • Second Master Bedroom, Queen size bed, with 19" Television leading to Master pool bathroom
  • Two further bedrooms with twin beds in each and further bathroom
  • Family Room with 32" Television, DVD Player, Surround sound, selection of games and books
  • X-BOX with many popular games
  • Separate Living Room providing generous, relaxing space
  • Dining Room with large table to seat 8
  • Fully fitted and well equipped quality kitchen including Corian worktops, large fridge/freezer with Ice/filtered water dispenser, ceramic hob, microwave, dishwasher and waste disposal
  • Breakfast Nook area with table, six chairs and bar stools
  • Separate Laundry Room with large washing machine and large dryer
  • Covered patio/lanai area to the rear with quality pool furniture
  • Attractive landscaped deck area surrounding the pool
  • Baby equipment provided

General Facilities

  • Large nearly ¼-acre plot
  • Pool with Pool Heater
  • Free National and International Calls
  • Overlooks the Fairway of this attractive Par 72 Golf Course
  • 2,220 sq.ft of air-conditioned living space with overhead fans in all rooms
  • Cable Television
  • Gas B-B-Q
  • Quality Sentry Safe
  • DSL/Broadband
  • Fully monitored BRINKS alarm for your peace of mind
<% Response.End() ' Ends script %>