<% @LANGUAGE = VBScript %> <% Option Explicit Response.Expires = 0 ' Variables for form fields Dim strFullName, strOrganization, strStreetAddress, strAddress2, strCity, strState Dim strZipCode, strWorkPhone, strEveningPhone, strMobilePhone, strFax, strEmail, strQuery ' Validation flags for form fields Dim flgFullName, flgOrganization, flgStreetAddress, flgAddress2, flgCity, flgState Dim flgZipCode, flgWorkPhone, flgEveningPhone, flgMobilePhone, flgFax, flgEmail, flgQuery ' Other variables Dim objMail, strMailTo, strMailFrom, strMailSubject, strMailBody, strDefaultDate, strReplyTo Dim flgAll, flgFromhere, flgError, strErrormsg, strBackground, strRedirect, strThisPage, flgPrevError Dim objOptionDict, strOptionName, strOptionValue strThisPage = Request.ServerVariables("SCRIPT_NAME") ' If the form is being reprocessed, we need to do some basic validation. If Trim(Request.Form("Submit")) <> "" Then strFullName = Trim(Request.Form("Contact_FullName")) strOrganization = Trim(Request.Form("Contact_Organization")) strStreetAddress = Trim(Request.Form("Contact_StreetAddress")) strAddress2 = Trim(Request.Form("Contact_Address2")) strCity = Trim(Request.Form("Contact_City")) strState = Trim(Request.Form("Contact_State")) strZipCode = UCase(Trim(Request.Form("Contact_ZipCode"))) strWorkPhone = Trim(Request.Form("Contact_WorkPhone")) strEveningPhone = Trim(Request.Form("Evening_Phone")) strMobilePhone = Trim(Request.Form("Mobile_Phone")) strFax = Trim(Request.Form("Contact_FAX")) strEmail = Trim(Request.Form("Contact_Email")) strQuery = Trim(Request.Form("query")) ' Initialise error flags flgFullName = "" flgOrganization = "" flgStreetAddress = "" flgAddress2 = "" flgCity = "" flgState = "" flgZipCode = "" flgWorkPhone = "" flgEveningPhone = "" flgMobilePhone = "" flgFax = "" flgEmail = "" flgQuery = "" ' Mandatory fields If strFullName = "" Then flgFullName = "1" End If If strStreetAddress = "" Then flgStreetAddress = "1" End If If strCity = "" Then flgCity = "1" End If If strZipCode = "" Then flgZipCode = "1" End If If strWorkPhone = "" Then flgWorkPhone = "1" End If If strEmail = "" Then flgEmail = "1" End if flgAll = flgFullName & flgStreetAddress & flgCity & flgZipCode & flgWorkPhone & flgEmail ' If no error flags are set, then proceed to process the form. ' Send an email to log the request, and tell the user we can help If flgAll = "" Then ' Send mail to yachts for fun ' Load up a dictionary containing Option field names and descriptions LoadDictionary ' Default the "from" and "reply-to" address if no email address entered If strEmail = "" Then strMailFrom = "davido@yachtsforfun.com" 'strMailFrom = "katarzyna@pimdesign.com" strReplyTo = "" Else strMailFrom = strEmail strReplyTo = strEmail End If strMailTo = "davido@yachtsforfun.com" 'strMailTo = "katarzyna@pimdesign.com" strMailSubject = "Enquiry from Yachts for fun" strMailBody = "A visitor to the Yachts for fun web site submitted" strMailbody = strMailBody & " the following information on " & FormatDateTime(Now, 1) strMailBody = strMailBody & " at " & FormatDateTime(Now, 4) & ": " & "

" strMailBody = strMailBody & " Name: " & strFullName & "
" strMailBody = strMailBody & " Organisation: " & strOrganization & "
" strMailBody = strMailBody & " Street Address: " & strStreetAddress & "
" strMailBody = strMailBody & " Address (cont): " & strAddress2 & "
" strMailBody = strMailBody & " City: " & strCity & "
" strMailBody = strMailBody & " County: " & strState & "
" strMailBody = strMailBody & " Postal Code: " & strZipCode & "
" strMailBody = strMailBody & "Daytime Phone Number: " & strWorkPhone & "
" strMailBody = strMailBody & "Evening Phone Number: " & strEveningPhone & "
" strMailBody = strMailBody & " Mobile Phone Number: " & strMobilePhone & "
" strMailBody = strMailBody & " Fax: " & strFax & "
" strMailBody = strMailBody & " E-mail: " & strEmail & "

" ' See which options have been selected, and add text as appropriate strMailBody = strMailBody & "Client expressed interest in the following:" & "

" For Each strOptionName in objOptionDict If Trim (Request.Form(strOptionName)) = "ON" Then strOptionValue = "<------ selected " Else strOptionValue = " " End If strMailBody = strMailBody & objOptionDict.Item(strOptionName) & " " & strOptionValue & "

" Next ' Query field from form: If strQuery = "" Then strQuery = "(No query entered)" End If strMailBody = strMailBody & "
" & "Client typed in the following query:" & "
" strMailBody = strMailBody & strQuery & "
" Set objMail = Server.CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.pim2.co.uk" ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines below and use a valid email address and password. ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="postmaster@yachtsforfun.com" 'no email on mail server! have exchange server ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="s69xea" ObjMail.Configuration.Fields.Update 'End remote SMTP server configuration section== objMail.From = Trim(strMailFrom) objMail.To = Trim(strMailTo) objMail.Subject = Trim(strMailSubject) objMail.HTMLBody = Trim(strMailBody) If strReplyTo <> "" Then objMail.ReplyTo = strReplyTo End If objMail.Send Set objMail = Nothing ' Courtesy mail to customer would go here if required strRedirect="confirmation.htm" Response.Redirect (strRedirect) Else flgError = "y" End If Else ' First time through - initialise variables strErrorMsg = "" End If %> <% ' Load dictionary object with Option field names and descriptions Sub LoadDictionary Set objOptionDict = Server.CreateObject("Scripting.Dictionary") objOptionDict.Add "Option_Anniv", "Wedding Anniversary Specials" objOptionDict.Add "Option_Stag Days", "Stag Days - Yacht/RIB Combo" objOptionDict.Add "Option_40th Birthday Celebrations", "40th Birthday Celebrations" objOptionDict.Add "Option_Introductory Day Sail", "Introductory Dail Sail" objOptionDict.Add "Option_Corporate Days Out", "Corporate Days Out" objOptionDict.Add "Option_Team Building", "Team Building" objOptionDict.Add "Option_Family Days Out", "Family Days Out" objOptionDict.Add "Option_Father and Sons", "Father and Sons" objOptionDict.Add "Option_Mums and Daughters", "Mums and Daughters" objOptionDict.Add "Option_RYA", "RYA Competent Crew and Day Skipper courses" objOptionDict.Add "Option_Champagne Sunrise Breakfasts", "Champagne Sunrise Breakfasts" objOptionDict.Add "Option_Champagne Sunset Supper", "Champagne Sunset Supper" objOptionDict.Add "Option_Cowes Week", "Cowes Week" objOptionDict.Add "Option_Cowes Fireworks", "Cowes Fireworks" objOptionDict.Add "Option_Round the Islands", "Round the Island" objOptionDict.Add "Option_Four Day Specials to France", "Four Day Specials to France" objOptionDict.Add "Option_30th Birthday Celebrations", "30th Birthday Celebrations" objOptionDict.Add "Option_Overnight Anchorages", "Overnight Anchorages" End Sub %> Yachts For Fun UK - Skippered Yacht Charter - About your boat

 

ENQUIRY

Please provide the following contact information:

<% ' If there are any invalid fields, display a message If flgError = "y" Then %> You didn't enter information for the following required field(s):

<% Response.Write "" If flgFullName <> "" Then Response.Write "Name" flgPrevError = "y" End If If flgStreetAddress <> "" Then If flgPrevError <> "" Then Response.Write ", " End If Response.Write "Street Address" flgPrevError = "y" End If If flgCity <> "" Then If flgPrevError <> "" Then Response.Write ", " End If Response.Write "City" flgPrevError = "y" End If If flgZipCode <> "" Then If flgPrevError <> "" Then Response.Write ", " End If Response.Write "Postal Code" flgPrevError = "y" End If If flgWorkPhone <> "" Then If flgPrevError <> "" Then Response.Write ", " End If Response.Write "Phone" flgPrevError = "y" End If If flgEmail <> "" Then If flgPrevError <> "" Then Response.Write(", ") end if Response.Write "Email" flgPrevError = "y" End If Response.Write ". " End If %>
Name
Organisation
Street Address
Address (cont.)
City
County
Postal Code
Daytime telephone number
Evening telephone number
Mobile
Fax
E-mail

" My son & I have never been so close. What a fantastic experience. Life Changing and unforgettable, we will treasure this memory" A Kelton, Barnard Castle


" Fantastic One day on Cool Runnings recharged my batteries and enabled me to develop fresh vision for our team"
Gordon McKenzie. Country Manager
Microsoft Scotland
 

"We sailed out through glorious sunshine and ate great food - tremendous fun and unforgettable for both me and my client.  Exciting, safe and memorable"
 Julian Sayer. Responsive Marketing

"The lunch time anchorage in Beaulieu was all that the romantic in us could have wanted. My wife loved the day and we have already booked a return"
 Rob Kitchen, Fareham

"The stag day onboard Cool Runnings was one of the most memorable in my life. The groom absolutely loved it and so did we. As the best man it was my job to make sure the day was success. It was better it was a storming success."
 Matt Southey

 

Tel: 01256 896239

Fax: 0870 7877405

Select any of the following options for further information with no obligation:

> Stag Days - Yacht/RIB Combo
> 40th Birthday Celebrations
> 50th Birthday Celebrations
> Wedding Anniversary Specials
> Introductory Day Sail
> Corporate Days Out
> Team Building
> Family Days Out
> Father and Sons
> Mums and Daughters
> Competent Crew/Day skipper courses
> Champagne Sunrise Breakfast
> Champagne Sunset Supper
> Cowes Week
> Cowes Fireworks
> Round the Island
> Four Day Specials to France
> Overnight Anchorages

Type your query below


 

Insight Yacht Charter
Cricket Corner
Lynch Hill Park
Witchurch, RG28 7NF
UK
Yachtsforfun provides yacht and boat charter in the Solent and the English Channel.
We offer tailored events from social chartering to full blown training events.
We also offer programmes from complete beginners to experienced charters for qualified skippers and crew.