<% Set objXML = Server.CreateObject("Microsoft.XMLDOM") if objXML.load("C:\Inetpub\wwwroot\DB\Medlemmer\"&strBrugernavn&".xml") = true then Set objRootElement = objXML.documentElement
Set objElementsToSearch = objRootElement.getElementsByTagName("bruger") for each element in objElementsToSearch for each att in element.attributes select case att.name case "kode" strKode = att.value case "navn" strNavn = att.value case "email" strEmail = att.value end select next next Else error = "Du har ingen adgang til systemmet" end if %>
den skriver ikke error beskeden ud, så den må have fat i filen, men den ligger ikke indholtet af .xml i variablerne.
Set objElementsToSearch = objRootElement.getElementsByTagName("bruger") for each element in objElementsToSearch strKode = element.childNodes(0).text strNavn = element.childnodes(1).text strEmail = element.childNodes(2).text next
Hvis der er mere end et element i din liste overskriver den variablerne så det altid kun er det sidst fundne der står i .xml-filen. Så hvis du skal bruge variablenes indhold til noget skal dette gøres i loopen.
sorry jeg takker det virker fint... jeg tænkte mig ikke lige om ;o)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.