VP-ASP :: Shopping Cart Software

Shopping Cart Software Solutions for anywhere in the World

US/Canada(Toll Free): +1 888 587 2278
Europe/UK: +44 (020) 7193 9408
Australia/New Zealand: +61 3 9016 4497

VP-ASP Shopping Cart Customer Forum

Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 VPCart Forum
 Add-ons for VP-ASP
 USPS Shipping Priority / Media Mail
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

raphael
Starting Member

10 Posts

Posted - January 10 2004 :  11:43:38  Show Profile  Visit raphael's Homepage  Reply with Quote
Some of you were wondering how to change the default USPS realtime shipping options from [EXPRESS / PRIORITY / PARCELPOST] to your desired options.

Our company needed PRIORITY / MEDIAMAIL only. I made a few code changes that work great. Here's the code and a few comments. My changes have a <<<<<<<<<<<<<<<< after them.

[ IN FILE NAME: uspostalrealtime.asp ]

Sub FormatMethods
dim i, tempoption, price
dim errors(10),errorcount
shippingcount=0
'<<<<<<<<<<<<<<<<< changed i=0 to i=1 (removes Express Mail)
for i = 1 to tempmethodscount-1
Price=Tempprices(i)
tempoption=TempMethods(i)
if Price<>0 then
If getconfig("xLCID")="" Then
' <<<<<<<<<<<<<<<<< START EDIT
if TempMethods(i) = "Parcel" Then
TempOption= "Media Mail [" & formatcurrency(Price,2) & "] (media/books/dvds/videos/docs only)"
else
' <<<<<<<<<<<<<<<<< END EDIT
TempOption= TempOption & " [" & formatcurrency(Price,2) & "]"
' <<<<<<<<<<<<<<<<< START EDIT
end if
' <<<<<<<<<<<<<<<<< END EDIT
else
TempOption= TempOption & " [" & formatnumber(Price,2) & "]"
end if
ShippingMethods(shippingcount)=TempOption
shippingcount=shippingcount+1
end if
next
' <<<<<<<<<<<<< changes may have to be made here also... test
If intshippingcount>0 then
for i = 1 to intshippingcount-1
changed 0 to 1
Price=intshippingprices(i)
tempoption=intshippingmethods(i)
If getconfig("xLCID")="" Then
TempOption= TempOption & " [" & formatcurrency(Price,2) & "]"
else
TempOption= TempOption & " [" & formatnumber(Price,2) & "]"
end if
intShippingMethods(i)=TempOption
next
end if
end sub



Hope someone finds this helpful.

Raphael Neff
www.chesshouse.com
[email protected]

stevep
Starting Member

2 Posts

Posted - December 02 2004 :  09:26:49  Show Profile  Reply with Quote
How hard would it be to just remove the Parcel option and leave everything else the same? We find Priority to be much better for very little increase in shipping cost. thanks in advance.

Steve

Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000