<%
'test each required field for content and define the table row that will be added
sMsg = "
Please fill in all fields not marked (optional).
"
iErrors = 0
If Request.Form("fname") = "" Then
iErrors = 1
End If
If Request.Form("lname") = "" Then
iErrors = 1
End If
If Request.Form("address1") = "" Then
iErrors = 1
End If
If Request.Form("city") = "" Then
iErrors = 1
End If
If Request.Form("state") = "" Then
iErrors = 1
End If
If Request.Form("zip") = "" Then
iErrors = 1
End If
If Request.Form("phone") = "" Then
iErrors = 1
End If
If Request.Form("email") = "" Then
iErrors = 1
End If
'determine the state of the check boxes
If Request.Form("mail_list") = "on" Then
sML_State = "checked"
End If
If Request.Form("catalog") = "on" Then
sCat_State = "checked"
End If
'determine what action to assign to the form
If CInt(iErrors) = 0 Then
sAction = "sendit.asp"
sButton = "Send"
sTitle = "Please Verify Your Information"
End If
%>
