<%Option Explicit%> <% ShopCheckAdmin "" '************************************************************* ' Version 6.50 ' view UPS Realtime license screen ' Sept 13 2005 '*************************************************************** Dim agreeaction, declineaction dim result, xmlerror, UPSLicense agreeaction=Request.form("agree") declineaction=Request.form("decline") AdminPageHeader ShopOpenDatabase myconn GenerateDisplayHeader "UPS Online® Tools Licensing and Registration Wizard - Step 2" GenerateDisplayBodyHeader If agreeaction="" and declineaction="" Then RequestLicense AnalyzeXML DisplayForm else ProcessUserAction end if GenerateDisplayBodyFooter ShopCloseDatabase myconn AdminPageTrailer SUB ProcessUserAction if agreeaction > "" then Shopclosedatabase myconn responseredirect "shopa_ups_license_3.asp" else Shopclosedatabase myconn responseredirect "shopa_editshipping.asp" end if end sub Sub DisplayForm %>
<% if xmlerror = "" then %>
You must read the entire license agreement before you can continue.

<%=statusmessage%>

<% else response.write xmlerror & "

"%>
<% end if %>

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