<%Option Explicit%> <% ShopCheckAdmin "" '************************************************************* ' Version 6.50 ' view UPS Realtime intial screen ' Sept 13 2005 '*************************************************************** Dim agreeaction, declineaction agreeaction=Request.form("agree") declineaction=Request.form("decline") AdminPageHeader GenerateDisplayHeader "UPS Online® Tools Licensing and Registration Wizard - Step 1" GenerateDisplayBodyHeader ShopOpenDatabase myconn RemoveUPSFromConfig If agreeaction="" and declineaction="" Then DisplayForm else ProcessUserAction end if GenerateDisplayBodyFooter ShopCloseDatabase myconn AdminPageTrailer SUB ProcessUserAction if agreeaction > "" then ShopCloseDatabase myconn responseredirect "shopa_ups_license_2.asp" else ShopCloseDatabase myconn responseredirect "shopa_editshipping.asp" end if end sub Sub DisplayForm %>

UPS OnLine® Tools Licensing and Registration Wizard

This wizard will assist you in completing the necessary licensing and registration requirements to activate and use the UPS OnLine Tools from this application.

If you do not wish to use any of the functions that utilize the UPS OnLine Tools, click the Cancel button and those functions will not be enabled.

If, at a later time, you wish to use the UPS OnLine Tools, return to this section and complete the UPS OnLine Tools licensing and registration process.

UPS, UPS brandmark, and the Color Brown are trademarks of United Parcel Service of America, Inc. All Rights Reserved.
<% End Sub %>