Læsning af xml i asp fil?

<%
    Dim XMLDoc, rootNode, Visitor, Felt, Counter
    Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
    XMLDoc.async = False
    XMLDoc.load(Server.MapPath("Guestbook.xml"))
    Counter = -1
    Set rootNode = XMLDoc.documentElement
    If rootNode.hasChildNodes() then   
            For Each sms in rootNode.childNodes
        Counter = Counter + 1
        For Each Felt in Visitor.childNodes
            If "antal" = Felt.NodeName Then
                      Response.Write "<TR><TD ROWSPAN=2><INPUT TYPE='Radio' NAME='Besked' VALUE=" & Counter & "></TD><TD>Navn: " & Felt.Text & "</TD></TR>"
            ElseIf "DATO" = Felt.NodeName Then
              Response.Write "<TR><TD>Dato: " & Felt.Text & "</TD></TR>" & Chr(13) & Chr(10)
            End if
        Next
            Next   
    Else
      Response.Write "Der er ingen noder!"   
    End If

    %>

//>Rune

Men jeg ville nu personlig mene at det var lettest at bruge java script:
                <script language="JavaScript" type="text/javascript">
                          var conn = new ActiveXObject("Microsoft.XMLDOM");
                          conn.async = false;
                          conn.load("xml/profil.xml");
                                             
                          var rs1 = conn.getElementsByTagName("beskrivelse");
                          var n_rs = rs1.length
                          for (i = 0; i < n_rs; i++)
                          {
                          strIndex = rs1.item(i).text;
                          strIndex = strIndex.replace(/\¤/g,"<p>");
                          document.write("" + strIndex + "");
                          }
                </script>                <script language="JavaScript" type="text/javascript">
                          var conn = new ActiveXObject("Microsoft.XMLDOM");
                          conn.async = false;
                          conn.load("xml/smsting.xml");
                                             
                          var rs1 = conn.getElementsByTagName("antal");
                          var n_rs = rs1.length
                          for (i = 0; i < n_rs; i++)
                          {
                          strIndex = rs1.item(i).text;
                          strIndex = strIndex.replace(/\¤/g,"<p>");
                          document.write("" + strIndex + "");
                          }
                </script>

//>Rune

Du kunne oxo vælge at gøre det gennem VBScript:
http://www.w3schools.com/xml/tryit.asp?filename=httprequest_vb

//>Rune

Nu ved jeg ikke om det bare er mig der ikke fatter så meget (det er jo helligdag), men når jeg henter noget ud med asp, så bliver filen jo også nød til at hedde *.asp og ikke *.xml. Men når filen hedder *.asp så virker overstående koder ikke, da komponentet melder fejl på en *.asp fil.

Kontakt mig evt på icq: 58548143

hvis du bruger dette eksempel kan du sagtens kalde filen for .htm eller .html !
              <script language="JavaScript" type="text/javascript">
                          var conn = new ActiveXObject("Microsoft.XMLDOM");
                          conn.async = false;
                          conn.load("xml/profil.xml");
                                             
                          var rs1 = conn.getElementsByTagName("beskrivelse");
                          var n_rs = rs1.length
                          for (i = 0; i < n_rs; i++)
                          {
                          strIndex = rs1.item(i).text;
                          strIndex = strIndex.replace(/\¤/g,"<p>");
                          document.write("" + strIndex + "");
                          }
                </script>                <script language="JavaScript" type="text/javascript">
                          var conn = new ActiveXObject("Microsoft.XMLDOM");
                          conn.async = false;
                          conn.load("xml/smsting.xml");
                                             
                          var rs1 = conn.getElementsByTagName("antal");
                          var n_rs = rs1.length
                          for (i = 0; i < n_rs; i++)
                          {
                          strIndex = rs1.item(i).text;
                          strIndex = strIndex.replace(/\¤/g,"<p>");
                          document.write("" + strIndex + "");
                          }
                </script>

det skal jo ik' stå inde i ASP tagsne (<% og %>)

//>Rune

Tue?

//>Rune

<%

Dim objXMLHTTP, objXMLDOM, objAntal, objPris, antal, pris

Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

Call objXMLHTTP.Open("GET", "http://www.qcom.dk/forbrug.asp", False)

objXMLHTTP.Send

Set objXMLDOM = objXMLHTTP.ResponseXML

Set objAntal= objXMLDOM.getElementsByTagName("antal")

Set objPris = objXMLDOM.getElementsByTagName("pris")

antal = objAntal(0).text

pris = objPris(0).text

Response.Write("Antal: " & antal & "<br>Pris: " & pris)

Set objAntal = Nothing
Set objPris = Nothing
Set objXMLHTTP = Nothing
Set objXMLDOM = Nothing

%>

Men har lige et spørgsmål: Ligger filen lokalt, eller på en anden server?
Hvis den ligger lokalt, kan det gøres lidt nemmere.

Finder du ud af noget?

Ja, jeg har leget med det, men vi har nogle problemer når jeg forsøger at hente det xml ligger på vores server fra en anden server. Jeg får adgang nægtet, så hvis der er nogen af jer der har et svar på den fejl, så skriv endelig eller kontakt mig på icq# 58548143

Hvilken kode benytter du? Runes eller min?

Thx 4 Poinz
//>Rune

Jeg benytter Runes kode... se evt. http://www.eksperten.dk/spm/225466