ASP och XML

Jag har börjat kolla lite på XML och laddade hem lite koder från ASP proffesional från Wrox.......men jag får följande fel när jag försöker köra koden:

[red]
Microsoft VBScript runtime error '800a01a8' 

Object required: 'objXML.documentElement' 

//global.asa, line 26
[/red]

och här kommer Global.asa

[red]
<!--==Visual InterDev Generated - startspan==-->
<!--METADATA TYPE="typelib" FILE="c:\WINNT\System32\msxml.dll"-->
<!--==Visual InterDev Generated - endspan==-->
<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart

End Sub

Sub Application_OnStart

Dim strSourceFile, objRootColors, objRootInfo, objRootNav, objNavNames, objNavURLs, objXML

'Letar reda på settings.xml
strSourceFile = Server.MapPath("admin") & "\settings.xml"

'Skapar ett XML-objekt
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")

'lägger in setting.xml i minnet
objXML.load(strSourceFile)

'skapar en "node" för varje specifikt element i settings.xml
[b]Set objRootColors = objXML.documentElement.selectSingleNode("colors")[/b]
Set objRootInfo = objXML.documentElement.selectSingleNode("specifications")
Set objRootNav = objXML.documentElement.selectSingleNode("navigation")

'hämtar färgerna

Application.Lock
'
Set Application("objXML") = objXML
Application("Color_Primary")=objRootColors.childNodes.item(0).text
Application ("Color_Secondary")=objRootColors.childNodes.item(1).text

'Hämtar namn och url ur settings.xml
Application ("Site_Title")=objRootInfo.childNodes.item(0).text
Application ("Domain_Name")=objRootInfo.childNodes.item(1).text
Application.Unlock

'fixar menyn 
Set objNavNames = objRootNav.getElementsByTagName("name")
Set objNavURLs = objRootNav.getElementsByTagName("url")

'lägger in menyn i en 2-D array
Dim Navigation(10, 2)
For navitem=0 To objNavNames.length -1
  Navigation(navitem, 0) = objNavNames.item(navitem).text
  Navigation(navitem, 1) = objNavURLs.item(navitem).text
Next
Application.Lock
Application("Navigation") = Navigation
Application.Unlock

End Sub

</SCRIPT>
[/red]

och för er som vill se settings.xml kommer den här

[red]
<?xml version="1.0" ?>
<site>
	<specifications>
		<site_title>Isac Backlund</site_title>
		<domain_name>[url]http://www.icaaq.com[/url]</domain_name>
	</specifications>
	<colors>
		<color_primary>#FFFFFF</color_primary>
		<color_secondary>#EFEFEF</color_secondary>
	</colors>
	<navigations>
		<sektion>
			<name>Första sidan</name>
			<url>/default.asp</url>
			<descprition>Här kommer du till första sidan.</descprition>
		</sektion>
		<sektion>
			<name>CV</name>
			<url>/sub/cv.asp</url>
			<descprition>Min CV.</descprition>
		</sektion>
		<sektion>
			<name>Personligt brev</name>
			<url>/sub/pb.asp</url>
			<descprition>Mitt personliga brev till er.</descprition>
		</sektion>
		<sektion>
			<name>Portfolio</name>
			<url>/sub/portfolio.asp</url>
			<descprition>Mina tidigare projekt.</descprition>
		</sektion>
		<sektion>
			<name>Admin</name>
			<url>/admin/default.asp</url>
			<descprition>Här administerar jag denna sida.</descprition>
		</sektion>
	</navigations>
</site>
[/red]

nån som kan se nått fel...... :OO

jag hittade en gamal tråd i XML forumet där emissionen sa....

[red]encoding="ISO-8859-1"[/red]

men då får jag

[red]
Object doesn't support this property or method: 'objXML.documentElement.selectSingelNode'
[/red]

.........nån som blev klokare av det?

I ditt första inlägg är selectSingleNode rättstavat, men inte i ditt andra. Där står det selectSingleNode. Felstavning möjligtvis?

du hade så rätt så ......tack nu funkar det

Jag bygger vidare på denna tråd.....

Nu har jag denna

[red]
Set objXML = Application("objXML")
Set objRootBrev = objXML.documentElement.selectSingleNode("personligt")
strBrev = objRootBrev.childNodes.item(0).text
[/red]

Jag skulle väll kunna dra ner på kodandet avsevärt känns det som .......men hur?

Jag vill ha ut texten av <brev>.........som är objRootBrev.childNodes.item(0).text

fattar nån vad jag menar?