<%Option Explicit%> <% ShopCheckAdmin "" '************************************************************* ' Version 6.50 ' view UPS Realtime license screen ' Sept 13 2005 '*************************************************************** dim result, xmlerror, UPSLicense Dim agreeaction, declineaction dim xmlString if getsess("upsaccountno") > "" then response.redirect "shopa_ups_license_5.asp" end if agreeaction=Request.form("agree") AdminPageHeader generatedisplayheader "UPS Online® Tools Licensing and Registration Wizard - Step 4" generatedisplaybodyheader If agreeaction="" and declineaction="" Then DisplayForm else ProcessUserAction end if generatedisplaybodyfooter AdminPageTrailer SUB ProcessUserAction if agreeaction > "" then if request("wanttodo") = "haveaccount" then ShopOpenDatabase myconn AccessLicenseRequest if Statuscode = 1 then AddUPSAccessKeyToConfig RegistrationRequest if statuscode = 1 then AddUPSUserDataToConfig AddUPSToShipMethods setsess "ups_final_msg", "Thank you for registering to use the UPS OnLine® Tools." else LicenseError end if else LicenseError end if ShopCloseDatabase myconn elseif request("wanttodo") = "wanttosignup" then setsess "ups_final_msg", "Once you have completed UPS registration, please enter your UPS Account Number in the xupsacctno option in your configuration..

Click here to go to UPS to sign up now." else setsess "ups_final_msg", "You will need to complete UPS registration and enter your UPS Account Number in the xupsacctno option in your configuration before you can use UPS in your site." end if Shopclosedatabase myconn responseredirect "shopa_ups_license_5.asp" end if end sub Sub DisplayForm %>

<% End Sub %>