Hi Everyone,
Hopefully one of you will be able to instruct this ASP newbie on where I'm going wrong.
I am attempting to post some XML text from VB6 to ans asp page and use the asp page to save the XML to a file.
The asp page reports a zero length string, implying that my post is not successful.
IIS3 (I think) in running on a W2K server.
VB6 Code:
Dim newXML As String
Dim Q As String
Q = Chr(34)
newXML = newXML & "<?xml version=" & Q & "1.0" & Q & "?>" & vbCrLf
newXML = newXML & "<collection_result>" & vbCrLf
newXML = newXML & "<data>" & vbCrLf
newXML = newXML & "DataTest" & vbCrLf
newXML = newXML & "</data>" & vbCrLf
newXML = newXML & "</collection_result>" & vbCrLf
Dim ie As SHDocVw.InternetExplorer
Set ie = New SHDocVw.InternetExplorer
ie.Visible = True
ie.Navigate "http://webserver/Lance/ReceiveResults.asp", , , newXML
Set ie = Nothing
ASP Code: (returns zero length oXML.xml)
This code seems to be having a problem receiving the XML from the
VB post! Results.txt is empty.
<% @LANGUAGE = VBScript %>
<%
Response.ContentType = "text/xml"
Set oXML = Server.CreateObject("Msxml2.DOMDocument")
oXML.setProperty "ServerHTTPRequest", True
oXML.async = False
oXML.load(Request)
oXML.save "e:\inetpub\wwwroot\lance\Results.txt"
%>
ASP Code: (Testing Msxml2 Dom Object)
This code displays the XML and saves it to the Results.txt file.
<% @LANGUAGE = VBScript %>
<%
Response.ContentType = "text/xml"
Set oXML = Server.CreateObject("Msxml2.DOMDocument")
oXML.async = False
oXML.load("e:\inetpub\wwwroot\lance\test.xml")
oXML.save "e:\inetpub\wwwroot\lance\Results.txt"
response.write oXML.xml
response.end
%>
Any help would be greatly appreciated. Thanks, Lance