XML document must have a top level element

"c676228" <betty@newsgroup.nospamwrote in message
news:408B95A3-DD9A-454F-B0DD-FFE80359827D@microsoft.com...
element.

Hmm, I can't see anything that would cause this error. It might help if we
tweak the code a bit. Inline ...


Use MSXML2.DOMDocument.3.0



Don't need the above line, delete it.



Belts and braces use MSXML2.ServerXMLHTTP.3.0

"application/x-www-form-urlencoded"

You're not sending a HTML form post. You don't need the above line delete
it


The xmlHttp object knows how to send an XML DOM change the line to:-

xmlhttp.send xmlDom

Note this will add the correct content type header.

#8221;"

You should be getting UTF-8 from the server and that is what you want be
sending add:-

Response.CharSet = "UTF-8"


This can really mess up the character encoding use instead:-

xmlhttp.responseXML.save Response



It would help if you posted the actual file content rather than what is seen
in IE browser. Especially important is the start of the file. Make sure
the file has no whitespace at the start. Also open the file in notepad then
use Save As to check what encoding it is in.

/>

Again use MSXML2.DOMDocument.3.0


it!!!!!
line
&

Can't see where you are sending the XML response. However you would
probably want to build the response in an XML DOM and use:-

Response.ContentType = "text/xml" ' Yes move this line to where you send the
response
Response.CharSet = "UTF-8"
dom.Save Response


Also have you tested via Http instead of https do you get the same result.

Make this bunch of changes see if it fixes things (or least breaks in a
different way that we can help you with ;)


--
Anthony Jones - MVP ASP/ASP.NET

"c676228" wrote:

....

There is no
<? xml .... ?>
line there. If you are simply viewing the XML file via MSIE, that line
*should* be showing up.

An example of a valid header line would be
<? xml version="1.0" encoding="windows-1252" ?>

(Encoding could also be "utf-8". Many sites also use "iso-8859-1" but
that's almost always a mistake.)

"Old Pedant" <OldPedant@discussions.microsoft.comwrote in message
news:7BEA07D0-89FF-46F7-ABF1-E77934B7192D@microsoft.com...

An XML declaration is not mandatory; MSXML will quite happily load XML
without it. However it is probably bettter that it be present.

--
Anthony Jones - MVP ASP/ASP.NET

Hi Anthony and Old Pedant,


Now my b2bresponse.xml and 05272008ACTest.xml file have a line:
<?xml version="1.0" encoding="UTF-8" ?>

and in firefox: I still get the same error:
<xmlResponse>
<isSuccess>False</isSuccess>
<errorField>XML</errorField>
−
<errorMessage>
error code: -1072896680 reason: XML document must have a top level element.
line #: 0
</errorMessage>
<policyNumber/>
</xmlResponse>

in IE I have to use view source to see the following message:
<?xml version="1.0"?>
<xmlResponse>
<isSuccess>False</isSuccess>
<errorField>XML</errorField>
<errorMessage>error code: -1072896680 reason: XML document must have a top
level element.
line #: 0</errorMessage>
<policyNumber/>
</xmlResponse>

In IE broswer, it just looks like this:
False XML error code: -1072896680 reason: XML document must have a top level
element. line #: 0

the same all xml files in UTF-8 code in the notepad already.
I really don't know what to do.



--
Betty


"Anthony Jones" wrote:

"c676228" <betty@newsgroup.nospamwrote in message
news:9E4C86A7-2763-4540-AB2D-BB9A95E77C70@microsoft.com...
element.
level

Did you make the adjustments to the code I outlined? Have you tried it via
http instead of https?


--
Anthony Jones - MVP ASP/ASP.NET

"c676228" <betty@newsgroup.nospamwrote in message
news:408B95A3-DD9A-454F-B0DD-FFE80359827D@microsoft.com...
element.

<snip>



D'oh! I think I see it now try inserting the following here:-

xmlDoc.async = false


<snip>


I still think you should make the other tweaks I recommended as well. ;)


--
Anthony Jones - MVP ASP/ASP.NET

Anthony,

Yes, I followed your directions and here is the new code. The funny part is
I think i used the same way as I coded before and how come it suddenly
doesn't work any more.
Now I tried to debug the xml file step by step. so my xml file first will
look like this:

<?xml version="1.0" encoding="UTF-8" ?>
<enrollment orderID="200808251114527143" PONumber="50000" marketingCode="E"
productName="adventureCenter">
</enrollment>

Ok, no xml needs a top element error message.

so I changed the xml file to:

<?xml version="1.0" encoding="UTF-8" ?>
<enrollment orderID="200808251114527143" PONumber="50000" marketingCode="E"
productName="adventureCenter">
<test>Y</test>
</enrollment>

Only one extra line: <test>Y</testbesides the top element.
Now it complains again:
<xmlResponse>
<isSuccess>False</isSuccess>
<errorField>XML</errorField>
−
<errorMessage>
error code: -1072896680 reason: XML document must have a top level element.
line #: 0
</errorMessage>
<policyNumber/>
</xmlResponse>


It seems it only takes a top level element xml file, as soon as I add one
more line to the xml file, it starts to complain. I don't get it.

'*************************************
Server side:
'*************************************
Dim xmlDoc, InstreamXMLRoot, TestFlag
Set xmlDoc=Server.CreateObject("MSXML2.DOMDocument.3.0") '8/23/2008
xmlDoc.async = false
xmlDoc.Load Request '--this is for xml sent via body

Response.ContentType = "text/xml" '--for testing program

If xmlDoc.parseError.errorCode <0 Then
Call UpdateXMLResponse(orderID, "False", "XML", "error code: "
&xmlDoc.parseError.errorCode & " reason: " &xmlDoc.parseError.reason &" line
#: " &xmlDoc.parseError.line , "")
End If

IF isNULL(xmlDoc) Then
Set InstreamXMLRoot=Nothing
Call UpdateXMLResponse(orderID, "False", "XML", "The server didn't receive
the XML stream", "")

END IF

Set InstreamXMLRoot=xmlDoc.documentElement
IF isNULL(InstreamXMLRoot) Then
Set InstreamXMLRoot=Nothing
Call UpdateXMLResponse(orderID, "False", "XML", "The server didn't receive
the XML stream", "")

END IF
'Save all info before any transaction
xmlDoc.Save(Server.MapPath("B2BResponse/" & hour(now) & "_" & minute(now) &
"_" & RandomNumber(1000000) & "_" & month(now) & "_" & day(now) & "_" &
year(now) &"_B2BResponse.xml"))
'check if this is production transaction
Call UpdateXMLResponse(orderID, "False", "XML", "The server received the XML
stream", "")


'************************************************* ************
' Update B2B Response ''Response.ContentType="text/xml"
'************************************************* ************
Function UpdateXMLResponse(byVal order_id, byVal SuccFlag, byVal ErrField,
byVal Desc, byVal PolicyNum)
'Set RespInfo=Server.CreateObject("Microsoft.XMLDOM")
Set RespInfo=CreateObject("MSXML2.DOMDocument.3.0")
RespInfo.async=False
RespInfo.load(server.MapPath("/Utility/B2BResponse.xml"))
Set RespInfoRoot=RespInfo.documentElement
Set SuccessNode=RespInfoRoot.selectSingleNode("isSuccess")
SuccessNode.Text=SuccFlag
If SuccFlag="True" Then
Set PolicyNode=RespInfoRoot.selectSingleNode("policyNumber")
PolicyNode.Text=PolicyNum
Else
Set ErrNode=RespInfoRoot.selectSingleNode("errorField")
ErrNode.Text=ErrField
Set DescNode=RespInfoRoot.selectSingleNode("errorMessage")
DescNode.Text=Desc
End If

If order_id <>"" Then
RespInfo.save(server.MapPath("B2BResponse/" & order_id &"_B2BResponse.xml"))
Else
RespInfo.save(server.MapPath("B2BResponse/" & month(now) & "_" & day(now)
& "_" & RandomNumber(1000000) & "_" & year(now) &"_B2BResponse.xml"))
End If%>

<%
Response.ContentType = "text/xml"
Response.Write RespInfo.xml
Set RespInfo=Nothing
Response.End

End Function
'****************************
B2Bresponse.xml is like this:
'****************************
<xmlResponse>
<isSuccess />
<errorField />
<errorMessage />
<policyNumber />
</xmlResponse>

'**********************
Client side program is like this:
'**********************
<%@ Language=vbScript%>
<%
'Set xmlDom=CreateObject("Microsoft.XMLDOM")
set xmlDom=CreateObject("MSXML2.DOMDocument.3.0")

XMLDom.async =False
xmlDom.load Server.MapPath("08242008ACTest.xml")

dim xmlhttp
set xmlhttp=server.CreateObject("MSXML2.ServerXMLHTTP.3.0") '8/23/2008

xmlhttp.Open
"POST","https://www.travelinsuranceservices.com/ac/xt_ac_B2B.asp",false
xmlhttp.send xmlDom '8/23/2008
if(Err <0) then
Response.Write("An error occured when retrieving data from an external
source.<br />")
Response.Write(Err.Description)
Response.End
end if
On error goto 0
'if request is not Ok then display detailed message about the request
problem
if(xmlHttp.status <200) then
Response.Write("The remote server returned an invalid statuscode: #8221;"
& _
xmlHttp.status & " " & xmlHttp.statusText) & "<br>"
Response.Write("response text from remote server" & _
" " & xmlHttp.responseText)
Response.End
end if

if xmlHttp.responseXML is nothing then
Response.Write("The remote server didn’t return xml content.")
Response.End
end if
Response.ContentType = "text/xml"
Response.CharSet = "UTF-8"
'Response.Write xmlhttp.responsexml.xml
xmlhttp.responseXML.save Response
Set xmlhttp = nothing
%>
--
Betty


"Anthony Jones" wrote:

Yes, I did. See another reply in details.
I used https, I cannot use http. If I used http, it will have the following
error messge:
HTTP 500.100 - Internal Server Error - ASP error
Internet Information Services

Technical Information (for support personnel)

* Error Type:
msxml3.dll (0x80070005)
Access is denied.
/08232008adventureServerHttp.asp, line 13

line 12 and 13 are:
12: xmlhttp.Open
"POST","http://www.travelinsuranceservices.com/ac/xt_ac_B2B.asp",false
13: xmlhttp.send xmlDom '8/23/2008
--
Betty


"Anthony Jones" wrote:

"c676228" <betty@newsgroup.nospamwrote in message
news:F2E0D6F8-0B62-4252-AF14-96D22F4DAA86@microsoft.com...
is
marketingCode="E"
marketingCode="E"
element.
line
&
XML


Hmm... perplexing. Are we seeing all the Server code here? Do you have
other code prior to the above which reads the Request object? Note the
Request stream doesn't support reseting position to the beginning, therefore
once read, it cannot be read again. If you have already consumed the
request stream elsewhere I suspect your code would respond in the way you
are seeing.


--
Anthony Jones - MVP ASP/ASP.NET

Hi Anthony,


Thank you, thank you, thank you!!!!!
It is all because my cut and paste problems and I have the following code in
different files --->meaning I have xmlDoc.Load Request statement two times.
And I never know this will cause this deadly error.
Besides I never know that Request stream doesn't support reset position.
You are my life saver. I have been pulling my hair for 3 days and don't know
what to do.
:=)))
Set xmlDoc=Server.CreateObject("MSXML2.DOMDocument.3.0") '8/23/2008
xmlDoc.async = false
xmlDoc.Load Request '--this is for xml sent via body
'xmlDoc.LoadXML Request("xml") '--this is for xml sent via form field
xml="xml string", squreMouth production version
Response.ContentType = "text/xml" '--for testing program

If xmlDoc.parseError.errorCode <0 Then
'Response.write("Error code: " + xmlDoc.parseError.errorCode)
'Response.write("<br />Error reason: " + xmlDoc.parseError.reason)
'Response.write("<br />Error line: " + xmlDoc.parseError.line)
Call UpdateXMLResponse(orderID, "False", "XML", "error code: "
&xmlDoc.parseError.errorCode & " reason: " &xmlDoc.parseError.reason &" line
#: " &xmlDoc.parseError.line , "")
End If

IF isNULL(xmlDoc) Then
Set InstreamXMLRoot=Nothing
Call UpdateXMLResponse(orderID, "False", "XML", "The server didn't receive
the XML stream", "")

END IF


Betty


"Anthony Jones" wrote: