VBScript Sample Code:
<HTML>
<HEAD>
<TITLE>UPS Shipping ASP Sample</TITLE>
</HEAD>
<BODY>
<%
Set SBShip1 = CreateObject("SBSHIP.SBShipCtrl.1")
SBShip1.RegKey ="0000000000"
SBShip1.PackagingType = "00"
SBShip1.RateChart = "Regular+Daily+Pickup"
SBShip1.Residential = True
SBShip1.OrigPostal = "90001"
SBShip1.DestCountry = "US"
SBShip1.DestPostal = "10001"
SBShip1.Weight = 5
If SBShip1.GetRate Then
ShipMethod = Split(SBShip1.ShipMethod, ";")
ShipMethodLong = Split(SBShip1.ShipMethodLong, ";")
ShipCharge = Split(SBShip1.ShipCharge, ";")
%>
<SELECT NAME="ShippingOption">
<OPTION VALUE="-1" selected>Select a shipping option</option>
<% For x = 0 To SBShip1.ShipMethodCount - 1%>
<OPTION VALUE="<%=ShipMethod(x) & ":" & ShipCharge(x)%>"><%=ShipMethodLong(x) & ":" & formatcurrency(cdbl(ShipCharge(x)))%></option>
<% Next%>
</SELECT>
<%
End If
Set SBShip1=nothing%>
</BODY>
</HTML>
| 
![[Under Construction]](../../images/undercon.gif)