<% Dim vntParam Dim blnProcessFlag Dim strRedirect Dim strFirstName Dim strLastName Dim strEmail Dim strDayArea Dim strDayPhone Dim strDayPhone2 Dim strDayExt Dim strEveArea Dim strEvePhone Dim strEvePhone2 Dim strFaxArea Dim strFax Dim strFax2 Dim strPrefEmail Dim strPrefPhone Dim strPrefEvePhone Dim strPrefFax Dim strCity Dim strState Dim strProfession Dim strSpecialty Dim strOther Dim strNumYears Dim strAge Dim strEmployer Dim strGender Dim strInterests Dim objMail Dim strPreference Dim strSpecialtySelect With Request strFirstName = Trim(.Form("firstname")) strLastName = Trim(.Form("lastname")) strEmail = Trim(.Form("email")) strDayArea = Trim(.Form("dayarea")) strDayPhone = Trim(.Form("dayphone")) strDayPhone2 = Trim(.Form("dayphone2")) strDayExt = Trim(.Form("dayext")) strEveArea = Trim(.Form("evearea")) strEvePhone = Trim(.Form("evephone")) strEvePhone2 = Trim(.Form("evephone2")) strFaxArea = Trim(.Form("faxarea")) strFax = Trim(.Form("fax")) strFax2 = Trim(.Form("fax2")) strPrefEmail = .Form("prefemail") strPrefPhone = .Form("prefphone") strPrefEvePhone = .Form("prefevephone") strPrefFax = .Form("preffax") strCity = Trim(.Form("city")) strState = Trim(.Form("state")) strProfession = Trim(.Form("profession")) strSpecialty = Trim(.Form("specialty")) strOther = Trim(.Form("other")) strAge = Trim(.Form("age")) strGender = .Form("gender") strNumYears = Trim(.Form("numyears")) strEmployer = Trim(.Form("employer")) strInterests = Trim(.Form("interests")) End With With Request.Form ' ProcessFlag vntParam = Trim(.Item("process")) If vntParam = "" Or IsNumeric(vntParam) = False Then blnProcessFlag = 0 ElseIf vntParam = "1" Then blnProcessFlag = 1 ElseIf vntParam = "2" And strFirstName <> "" And strLastName <> "" And strEmail <> "" And strProfession <> "" And strNumYears <> "" Then Call Process() End If End With If Left(strProfession,3) = "AAA" Then strSpecialtySelect = "