%@LANGUAGE="VBSCRIPT"%> <% dim strFirstName, strMiddleInitial, strLastName, strTitle, strBusinessName, strBusinessCategory, strBusinessDescription dim strURL, strMailingAddress, strCity, strState, strZip, strBusinessPhone, strFax, strCellPhone, strHomePhone dim strEmail, bNoPublishFlag, bNorwegianSubsidiaryFlag, strParentOrganization, strPercentageOwnership strFirstName = Session("strFirstName") strMiddleInitial = Session("strMiddleInitial") strLastName = Session("strLastName") strTitle = Session("strTitle") strBusinessName = Session("strBusinessName") strBusinessCategory = Session("strBusinessCategory") strBusinessDescription = Session("strBusinessDescription") strURL = Session("strURL") strMailingAddress = Session("strMailingAddress") strCity = Session("strCity") strState = Session("strState") strZip = Session("strZip") strBusinessPhone = Session("strBusinessPhone") strFax = Session("strFax") strCellPhone = Session("strCellPhone") strHomePhone = Session("strHomePhone") strEmail = Session("strEmail") bNoPublishFlag = Session("bNoPublishFlag") bNorwegianSubsidiaryFlag = Session("bNorwegianSubsidiaryFlag") strParentOrganization = Session("strParentOrganization") strPercentageOwnership = Session("strPercentageOwnership") if request.Form("btnContinue")="Continue" or request.Form("btnSubmit")="Submit" then strFirstName = Trim(Request.Form("strFirstName")) strMiddleInitial = Trim(Request.Form("strMiddleInitial")) strLastName = Trim(Request.Form("strLastName")) strTitle = Trim(Request.Form("strTitle")) strBusinessName = Trim(Request.Form("strBusinessName")) strBusinessCategory = Trim(Request.Form("strBusinessCategory")) strBusinessDescription = Trim(Request.Form("strBusinessDescription")) strURL = Trim(Request.Form("strURL")) strMailingAddress = Trim(Request.Form("strMailingAddress")) strCity = Trim(Request.Form("strCity")) strState = Trim(Request.Form("strState")) strZip = Trim(Request.Form("strZip")) strBusinessPhone = Trim(Request.Form("strBusinessPhone")) strFax = Trim(Request.Form("strFax")) strCellPhone = Trim(Request.Form("strCellPhone")) strHomePhone = Trim(Request.Form("strHomePhone")) strEmail = Trim(Request.Form("strEmail")) bNoPublishFlag = Trim(Request.Form("bNoPublishFlag")) bNorwegianSubsidiaryFlag = Trim(Request.Form("bNorwegianSubsidiaryFlag")) strParentOrganization = Trim(Request.Form("strParentOrganization")) strPercentageOwnership = Trim(Request.Form("strPercentageOwnership")) dim bFirstNameReq, bLastNameReq, bMailingAddressReq, bCityReq, bStateReq, bZipReq, bEmailReq bFirstNameReq = false bLastNameReq = false bMailingAddressReq = false bCityReq = false bStateReq = false bZipReq = false bEmailReq = false if strFirstName="" then bFirstNameReq = true end if if strLastName="" then bLastNameReq = true end if if strMailingAddress="" then bMailingAddressReq = true end if if strCity="" then bCityReq = true end if if strState="" then bStateReq = true end if if strZip="" then bZipReq = true end if if strEmail="" then bEmailReq = true end if Session("strFirstName") = strFirstName Session("strMiddleInitial") = strMiddleInitial Session("strLastName") = strLastName Session("strTitle") = strTitle Session("strBusinessName") = strBusinessName Session("strBusinessCategory") = strBusinessCategory Session("strBusinessDescription") = strBusinessDescription Session("strURL") = strURL Session("strMailingAddress") = strMailingAddress Session("strCity") = strCity Session("strState") = strState Session("strZip") = strZip Session("strBusinessPhone") = strBusinessPhone Session("strFax") = strFax Session("strCellPhone") = strCellPhone Session("strHomePhone") = strHomePhone Session("strEmail") = strEmail Session("bNoPublishFlag") = bNoPublishFlag Session("bNorwegianSubsidiaryFlag") = bNorwegianSubsidiaryFlag Session("strParentOrganization") = strParentOrganization Session("strPercentageOwnership") = strPercentageOwnership 'Continue only if all required fields are filled in if not(bFirstNameReq or bLastNameReq or bMailingAddressReq or bCityReq or bStateReq or bZipReq or bEmailReq) then if request.form("btnContinue")="Continue" then 'response.write("Processing through Paypal") response.Redirect("to_join_confirm.asp") else 'response.write("Submit email only") response.Redirect("to_join_success.asp?payment=N") end if end if end if %>
![]() |
||||||||||||||||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||
©2009-2010 NACC All rights reserved.
Privacy
Statement/Internet Disclaimer