<% Dim custinfo_request(10) Dim IncludeOrderStatus Dim customer_info() Redim customer_info(billshiparraysize) ERROR_MESSAGE="" IncludeOrderStatus = false If Request.Form("orderstatus_login.x").Count > 0 then custinfo_request(2) = validateForm( "EMAIL", true, ERROR_MESSAGE, Request.Form("Email"), "Email" ) custinfo_request(3) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("Password"), "Password" ) If Request.Form("moreflag")="M" then custinfo_request(4) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("First Name"), "First Name" ) custinfo_request(5) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("Last Name"), "Last Name" ) custinfo_request(6) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("City"), "City" ) custinfo_request(7) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("Zip"), "Zip" ) custinfo_request(8) = validateForm( "TEXT", false, ERROR_MESSAGE, Request.Form("Day Phone"), "Day Phone" ) end if if ERROR_MESSAGE = "" then ERROR_MESSAGE = "We are temporarily unable to access your account.
Please try again." if ECOMETRY_ENABLED = true then getCustomerData custinfo_request, customer_info, iBillIndex 'customer_info(1) 'will give the status Y,M,N if customer_info(1) = "Y" then IncludeOrderStatus =true ERROR_MESSAGE = "" elseif customer_info(1) = "N" then ERROR_MESSAGE = "The Email/Password you have entered is not correct.
Please try again." elseif customer_info(1) = "M" then ERROR_MESSAGE = "We're sorry, but it appears we still need additional information to locate your account record." end if else dim liCount For liCount=1 to billshiparraysize customer_info(liCount) = "" Next end if End if end if %>