<%@ Language=VBScript %>
<%
Option Explicit
%>
<%
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."
Case "err6"
strErrText = strErrText & "Error: No message input."
Case "err7"
strErrText = strErrText & "Error: No message input."
Case "err8"
strErrText = strErrText & "Error: No message input."
Case "err9"
strErrText = strErrText & "Error: No message input."
Case "err10"
strErrText = strErrText & "Error: No message input."
Case "err11"
strErrText = strErrText & "Error: No message input."
Case "err12"
strErrText = strErrText & "Error: No message input."
Case "err13"
strErrText = strErrText & "Error: No message input."
End Select
%>
::Welcome to Companion Pets - Feedback::
Your Valuable Comments
(Please fill out the form and click submit. All fields are required.)
<%
if strAction > "" then
response.write strErrText
end if
%>
