Home Up Demo Download Online Store Global Partners Contents

Français | Español | German | Italiano | Português (BR) | 简体中文 (Chinese) | 日本語 (Japanese) | 한국어 (Korean)

ASP VBScript
Properties Methods Country Requirement ASP VBScript VB Code Download

 

[Under Construction]

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>

 

 

Newsletter and special offer
Send mail to webmaster@addsoft.net with questions or comments about this web site.
Copyright © 1996-2009 Addsoft Corporation