<%
const numFields = 9
dim errorArray()
redim preserve errorArray(numFields)
if Request.Form("isSubmitted") then
...
...
ErrorMsg = ""
x = 0
For Each formField in Request.Form
if Len(Request.Form(formField)) = 0 OR Request.Form(formField)
= "noneSelected" then
errorArray(x) = True
ErrorMsg = ErrorMsg & Ucase(formField) & " "
else
errorArray(x) = False
end if
x = x + 1
Next
%>
