---
title: "ASP och XML"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39919-asp-och-xml"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "icaaq"
published: "2002-03-19T11:49:40.000Z"
updated: "2002-03-20T21:59:58.000Z"
replies: 4
views: 322
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/39919-asp-och-xml"
---

# ASP och XML

## #1 — icaaq, 2002-03-19T11:49Z

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

Permalänk: https://www.webforum.nu/p/39919

## #2 — icaaq, 2002-03-19T12:20Z

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?

Permalänk: https://www.webforum.nu/p/625720

## #3 — SPiN, 2002-03-19T12:47Z

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

Permalänk: https://www.webforum.nu/p/625734

## #4 — icaaq, 2002-03-19T13:41Z

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

Permalänk: https://www.webforum.nu/p/625755

## #5 — icaaq, 2002-03-20T21:59Z

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?

Permalänk: https://www.webforum.nu/p/629267

---

Tråden på webben: https://www.webforum.nu/amne/asp/39919-asp-och-xml