<%@ Language="VBScript" %>
Search via XPath i VBS demo
<%
If Request.Form("no") <> "" Then
no = CInt(Request.Form("no"))
' opret DOM træ
Set doc = CreateObject("MSXML.DOMDocument")
' indlæs XML fil i DOM træ
doc.Async = False
doc.Load(Server.MapPath("test.xml"))
Set medlemmer = doc.SelectNodes("//medlemmer/medlem[@no=" & no & "]")
' test om der var nogen matchende medlemmer
If medlemmer.Length > 0 Then
' tag det første matchende medlem
Set medlem = medlemmer(0)
' udskriv attribut no
Response.Write "no=" & medlem.Attributes.GetNamedItem("no").NodeValue & "
" & vbCrLf
' søg efter sub element navn og udskriv det
Response.Write "navn=" & medlem.SelectSingleNode("navn/text()").NodeValue & "
" & vbCrLf
' søg efter sub element adresse og udskriv det
Response.Write "adresse=" & medlem.SelectSingleNode("adresse/text()").NodeValue & "
" & vbCrLf
' cleanup
Set medlem = Nothing
Else
Response.Write "Ingen fundet
" & vbCrLf
End If
' cleanup
Set medlemmer = Nothing
Set doc = Nothing
End If
%>