%
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
Catamaran Charter French & Italian Riviera
Charter Locations
Yachting 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.