<%
    'Build Request String Via Key/Value Pairs
    dim requestparameters,strxml
     	requestParameters =    "Version=" & server.URLEncode("2.0.0.0")
        requestParameters = requestParameters & "&ShipmentID=" & "88889"
        requestParameters = requestParameters & "&QueryID=" & "8788" 
        requestParameters = requestParameters & "&Username=" & "kadetz" 
        requestParameters = requestParameters & "&Password=" & "password" 
        requestParameters = requestParameters & "&TotalCarriers=" & "2" 
        requestParameters = requestParameters & "&CarrierCode1=" & "UPS" 
        requestParameters = requestParameters & "&CarrierAccount1=" & "123456789" 
        requestParameters = requestParameters & "&CarrierInvoiced1=" & "1" 
        requestParameters = requestParameters & "&CarrierCode2=" & "FDX" 
        requestParameters = requestParameters & "&CarrierAccount2=" & "" 
        requestParameters = requestParameters & "&CarrierInvoiced2=" & "0" 
        requestParameters = requestParameters & "&TotalClasses=" & "3" 
        requestParameters = requestParameters & "&ClassCode1=" & "1DY" 
        requestParameters = requestParameters & "&ClassCode2=" & "2DY" 
        requestParameters = requestParameters & "&ClassCode3=" & "GND" 
        requestParameters = requestParameters & "&DeliveryType=" & "COM" 
        requestParameters = requestParameters & "&ShipMethod=" & "DRP" 
        requestParameters = requestParameters & "&OriginationName=" & server.URLEncode("John Smithhhhhhh")
             requestParameters = requestParameters & "&OriginationAddress1=" & server.URLEncode("123 apleLane")
             requestParameters = requestParameters & "&OriginationAddress2=" & "" 
             requestParameters = requestParameters & "&OriginationAddress3=" & "" 
             requestParameters = requestParameters & "&OriginationCity=" & "Phoenix" 
             requestParameters = requestParameters & "&OriginationState=" & "AZ" 
             requestParameters = requestParameters & "&OriginationPostal=" & "85345" 
             requestParameters = requestParameters & "&OriginationCountry=" & "US" 
        requestParameters = requestParameters & "&DestinationName=" & server.URLEncode("JaneDoe")
             requestParameters = requestParameters & "&DestinationAddress1=" & "789OakDrive" 
             requestParameters = requestParameters & "&DestinationAddress2=" & "Suite410"
             requestParameters = requestParameters & "&DestinationAddress3=" & server.URLEncode("Attention Sales Department")
             requestParameters = requestParameters & "&DestinationCity=" & "Tempe" 
             requestParameters = requestParameters & "&DestinationState=" & "AZ" 
             requestParameters = requestParameters & "&DestinationPostal=" & "85282" 
             requestParameters = requestParameters & "&DestinationCountry=" & "US" 
        requestParameters = requestParameters & "&Currency=" & "USD"
        requestParameters = requestParameters & "&TotalPackages=" & "2" 
             requestParameters = requestParameters & "&BoxID1=" & "YourBoxCode1" 
             requestParameters = requestParameters & "&Weight1=" & "10" 
             requestParameters = requestParameters & "&WeightUnit1=" & "LB" 
             requestParameters = requestParameters & "&Length1=" & "10" 
             requestParameters = requestParameters & "&Width1=" & "10" 
             requestParameters = requestParameters & "&Height1=" & "10" 
             requestParameters = requestParameters & "&DimensionalUnit1=" & "IN" 
             requestParameters = requestParameters & "&Packaging1=" & "BOX" 
             requestParameters = requestParameters & "&Contents1=" & "OTR"
             requestParameters = requestParameters & "&Cod1=" & "18500" 
             requestParameters = requestParameters & "&Insurance1=" & "15000" 
             requestParameters = requestParameters & "&BoxID2=" & "YourBoxCode2" 
            requestParameters = requestParameters & "&Weight2=" & "20" 
            requestParameters = requestParameters & "&WeightUnit2=" & "LB" 
            requestParameters = requestParameters & "&Length2=" & "20" 
            requestParameters = requestParameters & "&Width2=" & "20" 
            requestParameters = requestParameters & "&Height2=" & "20" 
            requestParameters = requestParameters & "&DimensionalUnit2=" & "IN" 
            requestParameters = requestParameters & "&Packaging2=" & "BOX" 
            requestParameters = requestParameters & "&Contents2=" & "OTR"
            requestParameters = requestParameters & "&Cod2=" & "0" 
            requestParameters = requestParameters & "&Insurance2=" & "0" 
         requestParameters = requestParameters & "&TotalOptions=" & "3" 
         requestParameters = requestParameters & "&OptionCode1=" & "ADD" 
         requestParameters = requestParameters & "&OptionCode2=" & "PDD" 
         requestParameters = requestParameters & "&OptionCode3=" & "SDD"
   
 ' response.Redirect    "http://www.intershipper.com/Interface/Intershipper/XML/v2.0/HTTP.jsp?" & requestparameters                         
 'Create XMLHTTP Object
 Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
  
    'Specify Program And Quote Request Data
    dim url
    url = "http://www.intershipper.com/Interface/Intershipper/XML/v2.0/HTTP.jsp" & "?" & requestParameters
    objXmlHttp.open "POST", url , False
    'Send Quote Request... Execution Of ASP Holds Until Response Is Received
    'url="?" & requestparameters
    objXmlHttp.send 
    'Pass XML Quote To String
    strXML = objXmlHttp.responseText
    'Print XML Quote
Response.write "Information returned from Intershipper<br<br>"    
response.Write server.htmlencode(strxml)
%>