%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dim waserror,strerror
strerror="Please, fill in the field:"
waserror=false
if request.form("Submit")<>"" then
if request.form("name")="" then : strerror=strerror & "\r\n Name" : waserror=true : end if
if request.form("lastname")="" then : strerror=strerror & "\r\n Last Name" : waserror=true : end if
if request.form("email")="" or inStr(request.form("email"),"@")<1 then : strerror=strerror & "\r\n Email" : waserror=true : end if
if waserror=false then
server.transfer("contactsend.asp")
end if
end if
%>
Golden Beach Hotel Apartments in Hersonissos Accommodation in Hersonissos Hotels in Hersonissos