<% response.redirect "contact.html" If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then FromIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") ElseIf Request.ServerVariables("HTTP_CLIENT_IP") <> "" Then FromIP = Request.ServerVariables("HTTP_CLIENT_IP") ElseIf Request.ServerVariables("REMOTE_ADDR") <> "" Then FromIP = Request.ServerVariables("REMOTE_ADDR") end if Errore = false Public Function IsValid(email) IsValid = true dim names, name, i, c names = Split(email, "@") if UBound(names) <> 1 then IsValid = false exit function end if for each name in names if Len(name) <= 0 then IsValid = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) letters="abcdefghijklmnopqrstuvwxyz_-." if InStr(letters, c) <= 0 and not IsNumeric(c) then IsValid = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then IsValid = false exit function end if next if InStr(names(1), ".") <= 0 then IsValid = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then IsValid = false exit function end if if InStr(email, "..") > 0 then IsValid = false end if End Function DIM Jmail, email, fname, lname, phone, message, country email = Trim(request.form("your-email")) fname = Trim(request.form("your-fname")) lname = Trim(request.form("your-lname")) phone = Trim(request.form("your-phone")) message = Trim(request.form("your-message")) country = request.form("your-country") if request.form("go") = 1 then err_check = False err_lname = False err_fname = False err_phone = False err_country = False err_message = False if IsValid(email) = False Then errore = True err_email = True email = "" end if if len (fname)< 2 then errore = true err_fname = True fname = "" end if if len (lname)< 2 then errore = true err_lname = True lname = "" end if if len (phone)< 6 then errore = true err_phone = True phone = "" end if if country = "" then errore = true err_country = True country = "" end if if len(message)< 8 then errore = true err_message = True message = "" end if If blnCAPTCHAcodeCorrect Then else err_check = true errore = true end if if errore <> True then Set Jmail = Server.CreateObject("Jmail.Message") Recipient = "info@k6yachting.com" Sender = email Subject = "Contact from the website K6 Yachting" msg = "Message from: " & fname & " " & lname & vbcrlf msg = msg & "Phone: " & phone & vbcrlf msg = msg & "From country: " & country & vbcrlf msg = msg & "Message: " & message & vbcrlf & vbcrlf msg = msg & "IP: " & FromIP 'Jmail.logging = true Jmail.AddRecipient Recipient Jmail.From = Sender Jmail.FromName = name Jmail.Subject = Subject Jmail.Body = msg on error resume next Jmail.send("mail.k6yachting.com") 'response.write Jmail.Log inviato = true lname = "" fname = "" email = "" message = "" phone = "" country = "" end if end if %> Contact us - Catamaran Yacht Charter K6 Yachting
map

Catamaran Charter
French & Italian Riviera

special offer check availability skype

Contact Us

Any queries please call us on

Or complete our contact form.

Your first name *
<%if err_fname = True Then%> Please fill the required field. <%end if%>

Your last name *
<%if err_lname = True Then%> Please fill the required field. <%end if%>

Your email address *

Contact phone number *
<%if err_phone = True Then%> Please fill the required field. <%end if%>

Country *
<%if err_country = True Then%> Please fill the required field. <%end if%>

Message *
<%if err_message = True Then%> Please fill the required field. <%end if%>

<%if err_check = true Then%> Your entered code is incorrect. <%end if%>

<%if errore = true then%> <%end if%> <%if inviato = True Then%> <%end if%>
london

K6 Yachting Ltd Yacht Charter

40, Skyline House, Longfield Avenue
London GB W5 2BJ

Our Location