<% response.redirect "index.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, subject, name, message email = Trim(request.form("your-email")) subject = Trim(request.form("your-subject")) name = Trim(request.form("your-name")) message = Trim(request.form("your-message")) if request.form("go") = 1 then err_check = False err_name = False if IsValid(email) = False Then errore = True err_email = True email = "" end if if len (name)< 2 then errore = true err_name = True name = "" 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 = "Info request for Bella Vita" msg = "Message from: " & name & vbcrlf msg = msg & "Subject: " & subject & 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 subject = "" name = "" email = "" message = "" end if end if %> Sailboat Locations French Riviera - Catamaran Yacht Charter K6 Yachting
map

Catamaran Charter
French & Italian Riviera

special offer check availability skype

Charter Locations

A beach of Port-CrosYachting freedom in Mediterranean Sea

Exploring the French Riviera by sailboat will expose you to a world of marvellous new places, stunning hidden and beautiful beaches with amazing turquoise-blue waters, beautiful marinas and resorts. With the freedom and independence of a crewed catamaran charter sailing holiday, you get to experience the French Riviera history, landscape and cuisine at your own pace.

K6 Yachting has yacht charter base in Saint-Raphael giving you a choice of start points from which to discover prestigious marinas and beautiful beaches. French Riviera (together with Italian Riviera) offers some of the most pleasant cruising grounds in the western Mediterranean, especially with Islands like Iles d'Or and Iles du Lerins.

 

Check Availability

  • Email Us Email Us
  • facebook
  • twitter
  • <%if request.form("go") = "1" Then%>
    <%else%>