<%@ Language=VBScript %>
<%
Option Explicit
%>
<%
' -- declare our variables --
dim strErrText, strAction
' -- place the action parameter into the strAction variable --
strAction = Request.QueryString("action")
' -- check the querystring for err=value parameters and show the required error --
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
%>
Contact Us - North American Development Bank
<%
' -- if our querystring contains an action= parameter, it means theres an error and it will be shown --
if strAction > "" then
response.write strErrText
end if
%>
