<%Option Explicit%> <% ShopCheckAdmin "" '************************************************************* ' Version 6.50 ' view UPS Realtime license screen ' Sept 13 2005 '*************************************************************** Dim agreeaction, declineaction dim result, xmlerror, UPSLicense dim xmlString agreeaction=Request("agree") declineaction=Request("decline") AdminPageHeader ShopOpenDatabase myconn GenerateDisplayHeader "UPS Online® Tools Licensing and Registration Wizard - Step 3" GenerateDisplayBodyHeader If agreeaction="" and declineaction="" Then DisplayForm else ProcessUserAction end if GenerateDisplayBodyFooter ShopCloseDatabase myconn AdminPageTrailer SUB ProcessUserAction if agreeaction > "" then 'SendToUPS AddFormToSession AccessLicenseRequest if Statuscode = 1 then AddUPSAccessKeyToConfig setsess "upsaccountno", request("upsaccountno") RegistrationRequest if statuscode = 1 then AddUPSUserDataToConfig AddUPSToShipMethods AddMerchantInfoToConfig Shopclosedatabase myconn responseredirect "shopa_ups_license_4.asp" else Shopclosedatabase myconn LicenseError end if else Shopclosedatabase myconn LicenseError end if else Shopclosedatabase myconn responseredirect "shopa_editshipping.asp" end if end sub Sub DisplayForm %>

Please note: some reserved characters, such as ampersands (&) can cause problems with the UPS system. Please avoid using these characters.

* Indicates a required field

Contact Name*:

Title*:

Company Name*:

Street Address*:

City*:

State*:

<%ShopStates "strState", strState%>

Country*:

<%ShopCountries "strCountry", strCountry%>

Postal Code*:

Phone Number*:

Website URL*:

Email Address*:

UPS Account Number*:

To open a UPS Account, click here or call 1-800-PICK-UPS.

I would like a UPS Sales Representative to contact me about opening a UPS shipping account or to answer questions about UPS services.*

Yes

<% End Sub %>