ASP reads XML instance code

Language. xml CopyCode The Code is as follows: <? XML version = "1.0" encoding = "gb2312"?>
<Languageroot>

<! -- Simplified Chinese -->
<Language>
<Languagename> Simplified Chinese </languagename>
<Languagevalue> simpilifiedchinese </languagevalue>
<Languageimages> images </languageimages>
<Languagefile> </languagefile>
</Language>

<! -- Traditional Chinese -->
<Language1>
<Languagename> traditional Chinese </languagename>
<Languagevalue> traditionalchinese </languagevalue>
<Languageimages> imagesbig5 </languageimages>
<Languagefile> DDD </languagefile>
</Language1>
</Deleageroot>

SL. aspCopy codeThe Code is as follows: <%
Set objxml2 = server. Createobject ("msxml2.domdocument ")
Objxml2.async = false
Loadresult = objxml2.load (server. mappath ("language. xml "))

If not loadresult then
Response. Write "XML file loading error"
Response. End
End if
Set objnodes = objxml2.getelementsbytagname ("languageroot/language ")
For I = 0 to objnodes. Length-1
Response. Write trim (objnodes (I). selectsinglenode ("languagename"). Text) & "<br>"
Response. Write trim (objnodes (I). selectsinglenode ("languagevalue"). Text) & "<br>"
Response. Write trim (objnodes (I). selectsinglenode ("languageimages"). Text) & "<br>"
Next
Set objnodes = nothing
Set objnodes = objxml2.getelementsbytagname ("languageroot/language1 ")
For I = 0 to objnodes. Length-1
Response. Write trim (objnodes (I). selectsinglenode ("languagename"). Text) & "<br>"
Response. Write trim (objnodes (I). selectsinglenode ("languagevalue"). Text) & "<br>"
Response. Write trim (objnodes (I). selectsinglenode ("languageimages"). Text) & "<br>"
Response. Write trim (objnodes (I). selectsinglenode ("languagefile"). Text) & "<br>"
Next
Set objnodes = nothing
Set objxml = nothing
%>

The code above has been edited and tested by the script holder.