Receiving XML Transmit

RobinR · July 16th, 2003, 10:00 AM

I have code to transmit an XML file to a Secure Socket Layer.
************************************************** ********
  Dim objSrvHTTP

  Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
  objSrvHTTP.open "POST", "https://wwwcie.ups.com/ups.app/xml/Rate",false
  objSrvHTTP.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
  objSrvHTTP.send (strMessage)
  strResponseMessage = objSrvHTTP.responseText
  intHTTPStatusCode = objSrvHTTP.status
************************************************** ***********
Now I would like to know how you can receive a transmitted XML file, create an HTTP status code, send back the HTTP status code to the sender, and write the received file to a directory.

I essentially know how to write a file to a directory but I need the initial steps for the receiver.

Thanks for any help you can offer.

Robin

NotNowJohn · July 16th, 2003, 03:23 PM

Code:

Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load(Request)
Set xmlDocErr =  xmlDoc.parseError 
'check if incoming XML is parsed successfuly
If (xmlDocErr.errorCode <>  0) Then
    'display arror message or whatever
Else
    'process XML document
End If

...but the Soon is eclipsed by the Moon