<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Option Explicit %> <% ' ----------------------------------------------------- ' CDONTS Email send script ' © http://www.designplace.org/ ' Comments must remain intact for re-use of this code ' ----------------------------------------------------- dim strErrText, strAction strAction = Request.QueryString("action") Select Case strAction Case "err1" strErrText = "Error: No name input." Case "err2" strErrText = strErrText & "Error: No email input." Case "err3" strErrText = strErrText & "Error: No age input." Case "err4" strErrText = strErrText & "Error: No gender input." Case "err5" strErrText = strErrText & "Error: No message input." End Select %> Tsalos Beach

check in:
check out:
Name:
Email:
Country:

Contact

Tell us how to get in touch with you:

<% if strAction > "" then response.write strErrText end if %>

Please fill out the form and click submit .(*) All fields are required.

Name: *

Email address:*

Age: *

Gender:*

Message: *
 
Analipsis, Hersonissos, Crete, Greece
Tel. +30 28970 42217 - 21504 - 23377, 21504, 23377 - Fax +30 28970 22940- E-mail: info@tsalosbeach.gr

Analipsis, Hersonissos
Crete, Greece
Tel. +30 28970 42217
Tel. +30 28970 21504
Tel. +30 28970 23377
Fax. +30 2897 22940

You are the Malignant Mesothelioma Symptoms visitor.
Tsalos Beach 2009 . all right reserved