%@ Language=VBScript %>
<%
Option Explicit
%>
<%
dim strErrText, strAction
strAction = Request.QueryString("action")
Select Case strAction
Case "err1"
strErrText = "Error: Please type your name."
Case "err2"
strErrText = strErrText & "Error: Please type your email address."
Case "err3"
strErrText = strErrText & "Error: Please type your address."
End Select
%>