<![CDATA[<%@ Language=VBScript %>
<%
'Shipwire XML Sample Code for ASP - Order submission interface
'-----------------
'TODO: replace the EMAIL and PASSWORD String values below
'with your Shipwire email and password
'-----------------
'Submit questions to Shipwire XML Support via the XML support form
'Copyright (c) 2005 Shipwire.com
'Released for the explicit use of submitting orders to Shipwire.com
Option Explicit
' Declare Variables
Dim title '
Dim requestType 'The XML Request type
Dim shipwireXmlUrl 'The secure POST URL for the XML Request
Dim xmlRequest 'a string to hold XML Request document
Dim xmlResponse 'an XML DOM object to hold the XML Response document
Dim myElement1 'first element to retrieve from XML Response
Dim myElement2 'second element to retrieve from XML Response
Dim myElementList1 'NodeList for my first element
Dim myElementList2 'NodeList for my second element
Dim today 'String to hold today's date
Dim mo 'String to hold month
Dim dy 'String to hold day
Dim yr 'String to hold year
Dim httpConn 'an object for the HTTP connection to www.shipwire.com
Dim username 'for authentication to Shipwire secure site
Dim password 'for authentication to Shipwire secure site
Dim myInputArgs() 'array to hold your input arguments
title = "Order Submission"
requestType = "OrderListXML"
shipwireXmlUrl = "https://www.shipwire.com/exec/FulfillmentServices.php"
myElement1 = "ErrorMessage"
myElement2 = "TotalOrders"
myElement3 = "TransactionId"
today = Date()
' year must be 2 digit to conform to our XML Schema
yr = Year(today)
if len(yr) = 4 then
yr = Mid(yr,3)
mo = Month(today)
dy = Day(today)
today = mo & "/" & dy & "/" & yr
end if
'*Build Order Submit Request
' In actual use, you would probably populate the Order S
' parameters (Address, Item, etc.) from data submitted
' via an on-line order form or database.
' For this sample we will just hard code some dummy data.
xmlRequest="<OrderList>" &_
"<EmailAddress>your@email.com</EmailAddress>" &_
"<Password>yourpassword</Password>" &_
"<Server>Test</Server>" &_
"<Referrer>023YAHOO</Referrer>" &_
"<Order id=""12579"">" &_
"<Warehouse>00</Warehouse>" &_
"<AddressInfo type="ship">" &_
"<Name>" &_
"<Full>Sheridan Rawlins</Full>" &_
"</Name>" &_
"<Address1>321 Foo bar lane</Address1>" &_
"<Address2>Apartment #2</Address2>" &_
"<City>Nowhere</City>" &_
"<State>CA</State>" &_
"<Country>US United States</Country>" &_
"<Zip>12345</Zip>" &_
"<Phone>555.444.3210</Phone>" &_
"<Email>555.444.3210</Email>" &_
"</AddressInfo>" &_
"<Shipping>GD</Shipping>" &_
"<Item num=""0"">" &_
"<Code>12345</Code>" &_
"<Quantity>1</Quantity>" &_
"</Item>" &_
"</Order>" &_
"</OrderList>"
' Convert characters to proper format for HTTP POST
xmlRequest = Server.URLEncode(xmlRequest)
'*Call Shipwire XML Interface.
' The XMLHTTP classes used here are availible from Microsoft and
' are autmatically installed and registered with Internet Explorer.
' For more info on how to use these classes please see http://msdn.microsoft.com/xml/
set httpConn = Server.CreateObject("Microsoft.XMLHTTP")
'or alternately depending on what is installed on your server:
'set httpConn = Server.CreateObject("MSXML2.ServerXMLHTTP")
'or whatever parser you have installed
' open synchronous connection to X-ShipmentStatus
httpConn.open "POST",shipwireXmlUrl,false
'set post data type, and post data
httpConn.setRequestHeader "Content-type","application/x-www-form-urlencoded"
httpConn.Send requestType & "=" & xmlRequest
'*Parse the response
' This example uses the MS XML DOM classes that ship with IE 5.5 or the XML SDK
' to create an XML document. Here we simple redisplay the XML data, but in a real
' world scenario you will parse the document to locate the data you wish to display
' or save, such as the net charge, transit time, and disclaimer.
'*For more info on how to use the MS XML SDK please see
' http://msdn.microsoft.com/xml/index.asp
' If you need only the final net charge of the quote you might find it easier
' in some cases to use a simpler method such as 'InStr'.
set xmlResponse = Server.CreateObject("Microsoft.XMLDOM") 'create XML DOM object
'or alternately, based on what is installed on your server:
'set shpResponse = Server.CreateObject("MSXML2.DOMDocument")
set xmlResponse = httpConn.responseXML
%>
<html>
<head>
<title>Sample ASP for Shipwire XML <%=title%></title>
</head>
<body text="Darkorange">
<center>
<B><FONT face="Arial" size=+1><I>Sample ASP Shipwire XML <%=title%></I></FONT></B>
</center>
<br>
<b>This is the complete XML Response output for <%=title%>:</b>
<br><br>
<code><%=xmlResponse.xml%></code>
<br><br>
<b>This is the data for the elements (<%=myElement1%>, <%=myElement2%> and <%=myElement3%>) retrieved from the XML Response:</b>
<br>
<%
'Here is how to a value out of a specific XML element using MS XML:
'Get node lists of elements in the response with a given name
set myElementList1 = xmlResponse.getElementsByTagName(myElement1)
set myElementList2 = xmlResponse.getElementsByTagName(myElement2)
set myElementList3 = xmlResponse.getElementsByTagName(myElement3)
'Process the Nodelists as desired
Dim i
For i = 0 To (myElementList1.length - 1)
response.write("<br><b>" & myElement1 & " = " & myElementList1.Item(i).Text &_
"<br>" & myElement2 & " = " & myElementList2.Item(i).Text & "<br>" &
myElement3 & " = " & myElementList3.Item(i).Text & "</b>")
Next
%>
</body>
</html>
]]>