<%@ Language=VBScript %>
<%
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 Departure Flight input (enter 'none' if you do not intend flying out)."
Case "err2"
strErrText = strErrText & "Error: Please input your Name."
Case "err3"
strErrText = strErrText & "Error: Please input your First name."
Case "err4"
strErrText = strErrText & "Error: Please enter Company Name "
Case "err5"
strErrText = strErrText & "Error: Please enter your Email Address."
Case "err6"
strErrText = strErrText & "Error: Please enter your Telephone Number."
Case "err7"
strErrText = strErrText & "Error: Please enter your arrival airport."
Case "err8"
strErrText = strErrText & "Error: Please enter your flight details."
Case "err9"
strErrText = strErrText & "Error: Please enter your Contact Telephone numbers"
Case "err10"
strErrText = strErrText & "Error: Please enter special requests or enter 'None'."
Case "err11"
strErrText = strErrText & "Error: Please enter your Departure Date."
Case "err12"
strErrText = strErrText & "Error: Please enter Departure Flight Details or enter 'None'."
End Select
%>
Internet Registration
<%
if strAction > "" then
response.write strErrText
end if
%>
Please
fill out the form and click submit.
Click on Logo above to return to home page
All fields marked *
are required.
