Dimensions of Each Parcel
Height (mm)
Length (mm)
Width (mm)
Weight (g)
Number of Parcels
Point of Lodgement
Postcode
Destination
Postcode
Country :
Australia
New Zealand
United Kingdom
USA
Vietnam
Service Required
Express Parcels
Regular Parcels
Express Courier International Document
Express Courier International Merchandise
International Air Mail
International Economy Air
International Sea Mail
<%@ Language=VBScript %> <% Dim xmlhttp Dim sURL Dim qs Dim sMethod Dim pos1, pos2, charge, days, msg, str sURL = "http://drc.edeliver.com.au/rateCalc.asp?Height=100&Length=100&Weight=100&Width=100&Pickup_Postcode=1000&Destination_Postcode=2000&Country=AU&Service_Type=STANDARD&Quantity=1" sMethod = "GET" set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") xmlhttp.Open sMethod, sURL, false xmlhttp.Send if (xmlhttp.readyState = 4 and xmlhttp.status = 200) then str = xmlhttp.responseText pos1 = instr(1,str,"charge=") + 7 pos2 = instr(1,str,"days=") - 1 charge = mid(str,pos1, pos2-pos1) pos1 = instr(1,str,"days=") + 5 pos2 = instr(1,str,"err_msg=") - 1 days = mid(str,pos1, pos2-pos1) pos1 = instr(1,str,"err_msg=") + 8 pos2 = instr(1,str,chr(13)) - 1 msg = mid(str,pos1,pos2) else 'report error' response.write(xmlhttp.responseText) end if response.write(charge + "
") response.write(days + "
") response.write(msg) %>