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
 Customization
 Removing certain shipping choices
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

chrisredco
VP-ASP Super User

282 Posts

Posted - June 16 2006 :  20:43:25  Show Profile  Visit chrisredco's Homepage  Reply with Quote
I am using v 5.0

I would like to know if it is possible to remove certain USPS shipping choices. I have found that many International orders that choose USPS can then choose certain shipping options like "Global Priority-Flat Rate (Smalle Envelope)" even though what they've ordered can in no way fit in that envelope, causing me to lose money on shipping on many International orders.

Can I remove only some shipping choices from a shipping vendor's drop down list?

Thanks,
Chris

chrisredco
VP-ASP Super User

282 Posts

Posted - June 20 2006 :  11:33:55  Show Profile  Visit chrisredco's Homepage  Reply with Quote
4 days and no thoughts, even from the fine moderators of this board? Hope someone will send help soon with this.

Thanks,
Chris
Go to Top of Page

jaimerod
Starting Member

USA
31 Posts

Posted - June 20 2006 :  18:44:20  Show Profile  Visit jaimerod's Homepage  Reply with Quote
this is my FormatMethods in uspostalrealtime.asp
its basic but it works for me....
I uses instr statements to prevent it from adding stuff i dont want.
I use 6.0 so I hope this works for you...

Sub FormatMethods
dim i, tempoption, price
dim errors(10),errorcount
shippingcount=0
for i =2 to tempmethodscount-1
Price=Tempprices(i)
tempoption=TempMethods(i)
if Price<>0 then
' If getconfig("xLCID")="" Then
' TempOption= TempOption & " [" & formatcurrency(Price,2) & "]"
TempOption= TempOption & " [" & shopformatcurrency(Price,getconfig("xdecimalpoint")) & "]"
' else
' TempOption= TempOption & " [" & formatnumber(Price,2) & "]"
' end if
'CHANGES HERE!!!!
if instr(TempOption, "Flat") = 0 Then
if instr(TempOption, "Parcel") = 0 then
if instr(TempOption, "Media") = 0 Then
if instr(TempOption, "Library") = 0 Then
ShippingMethods(shippingcount)=TempOption
end if
end if
end if
End If
'END CHANGES
'------------
'17/3/2006
' Fix for dual currency shipping
' Set up shipping values array for select box values
'------------
ShippingValues(shippingcount) = " [" & formatnumber(Price,getconfig("xdecimalpoint")) & "]"
'------------
shippingcount=shippingcount+1
end if
next
If intshippingcount>0 then
for i =0 to intshippingcount-1
Price=intshippingprices(i)
tempoption=intshippingmethods(i)
' If getconfig("xLCID")="" Then
' TempOption= TempOption & " [" & formatcurrency(Price,2) & "]"
TempOption= TempOption & " [" & shopformatcurrency(Price,getconfig("xdecimalpoint")) & "]"
' else
' TempOption= TempOption & " [" & formatnumber(Price,2) & "]"
' end if
intShippingMethods(i)=TempOption

'------------
'17/3/2006
' Fix for dual currency shipping
' Set up shipping values array for select box values
'------------
intShippingValues(i) = " [" & formatnumber(Price,getconfig("xdecimalpoint")) & "]"
'------------
next
end if
end sub
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000