<% response.redirect "blog.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 %> Catamaran Yacht Charter K6 Yachting - News Official Blog
map

Catamaran Charter
French & Italian Riviera

special offer check availability skype

Catamaran Charter Holiday - News

Saint-Raphael harbor

Discover our departure base at Saint-Raphael, French Riviera

 Saint Raphael, between Cannes and Saint-Tropez, at the foot of the superb Esterel is a city-resort worth visiting: the Corniche d'Or, the old town and its Provencal markets and in particular its old church named "Eglise San Raféu " listed Historical Monument. Read More
Whale watching in the North of Corsica

Whale watching off the Ligurian coast

 Your chance to see what it’s like to be a marine biologist working in the warm waters in the Ligurian Sea between Italy and Corsica, one of the best places in Europe to see several whale species, including bottlenose dolphins and the enormous fin whale – the world’s second-largest animal... Read More
Our short term rental solutions

Our short term rental solutions for 2017

  • Ideal for long weekends of spring
  • Enjoy a long weekend cruise aboard Bella Vita priced at 70% of the price of the week only (for 4 days rental).

Contact us for more information.

Check Availability

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

Location Map