Her er noget kode jeg engang lavede, spørg mig ikke hvorfor det virker, jeg er ikke skarp i ASP:
<%
Dim xmldoc,node,nodelist,i,j
Set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
xmldoc.async = false
'xml filen SKAL ligge ved siden af .asp siden, da den mapper denne path, den SKAL også
'hedde permutations.xml
xmldoc.load(Server.MapPath("permutations.xml"))
'kontroller at der ikke skete en fejl ved indlæsningen
'Dette vil typisk ske hvis den ikke kan finde xml dokumentet
if xmldoc.parseError.errorCode=0 Then
'Lav en liste af alle de nodes i xml filen der hedder permutation
Set nodelist = xmldoc.documentElement.getElementsByTagName("permutation")
Randomize
upperbound=nodelist.length-1
lowerbound=0
lrandom = Int((upperbound - lowerbound + 1) * rnd + lowerbound)
'lrandom indeholder nu et tilfældingt tal mellem 0 og størrelsen på
'den liste der indeholder alle permutationerne
'vi vælger en tilfældig
Set node = nodeList(lrandom)
'vi skriver så alle de childs som permutation tagget indeholder ud
'det er alle de links tags der findes derunder
'se eventuelt xml dokumentet i en browser
For j=0 to node.ChildNodes.length-1
Response.Write node.ChildNodes(j).Text & "<br>"
Next
Else
'hvis der sker en fejl skriver vi noget med rødt :-)
Response.Write "<font color=red>" & xmldoc.parseError.reason & "</font>"
End If
%>
Xml dokumentet der bruges hertil ser således ud:
<?xml version="1.0" encoding="utf-8"?>
<root>
<permutation>
<link>www.vikingworks.dk</link>
<link>www.udvikleren.dk</link>
<link>www.dotninjas.dk</link>
<link>www.targit.com</link>
<link>www.gamedev.com</link>
</permutation>
</root>
håber det kan hjælpe
(¯`·._.·[Brian Hvarregaard]·._.·´¯)