Fra xml til database?

Here you go...

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>

    <%
    Dim XMLDoc, rootNode, Visitor, Felt, Counter
    Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
    XMLDoc.async = False
    XMLDoc.load(Server.MapPath("xmlfil.xml"))
    Counter = -1
    Set rootNode = XMLDoc.documentElement
    If rootNode.hasChildNodes() then   
            For Each article in rootNode.childNodes
                Counter = Counter + 1
                For Each Felt in article.childNodes
                    If "provider" = Felt.NodeName Then
                              Response.Write "Navn: " & Felt.Text & "<p>"
                    ElseIf "category" = Felt.NodeName Then
                      Response.Write "Kategori: " & Felt.Text & "<p>" & Chr(13) & Chr(10)
                    ElseIf "date" = Felt.NodeName Then
                      Response.Write "Dato: " & Felt.Text & "<p>" & Chr(13) & Chr(10)
                    ElseIf "updated" = Felt.NodeName Then
                      Response.Write "Updateret: " & Felt.Text & "<p>" & Chr(13) & Chr(10)
                    ElseIf "headline" = Felt.NodeName Then
                      Response.Write "Overskrift: " & Felt.Text & "<p>" & Chr(13) & Chr(10)
                    ElseIf "article_uid" = Felt.NodeName Then
                      Response.Write "Artikel_uid: " & Felt.Text & "<p>" & Chr(13) & Chr(10)
                    ElseIf "summary" = Felt.NodeName Then
                      Response.Write "Brødtekst: " & Felt.Text & "<p>" & Chr(13) & Chr(10)
                    ElseIf "story" = Felt.NodeName Then
                      Response.Write "Historien: " & Felt.Text & "<p>" & Chr(13) & Chr(10)
                    End if
                Next
            Next
        Response.Write("<a href='" & Request.QueryString("SCRIPT_NAME") & "?gem=nu'>gem i databasen</a>")
    Else
      Response.Write "Filen er tom."   
    End If

    If Request.QueryString("gem") = "nu" Then
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set rs    = Server.CreateObject("ADODB.Recordset")
            Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/db.mdb")
            SQL = "SELECT * FROM xmldata"
           
            rs.Open SQL, Conn, 1, 3
            rs.AddNew
            For Each article in rootNode.childNodes
                    Counter = Counter + 1
                    For Each Felt in article.childNodes
                        If "provider" = Felt.NodeName Then
                                    rs("provider")        = Felt.Text
                        ElseIf "category" = Felt.NodeName Then
                                rs("category")        = Felt.Text
                        ElseIf "date" = Felt.NodeName Then
                                rs("date")            = Felt.Text
                        ElseIf "updated" = Felt.NodeName Then
                                rs("updated")        = Felt.Text
                        ElseIf "headline" = Felt.NodeName Then
                                rs("headline")        = Felt.Text
                        ElseIf "article_uid" = Felt.NodeName Then
                                rs("article_uid")        = Felt.Text
                        ElseIf "summary" = Felt.NodeName Then
                                rs("summary")        = Felt.Text
                        ElseIf "story" = Felt.NodeName Then
                                rs("story")            = Felt.Text
                        End if
                    Next
                Next
            rs.Update
    End If
%>

</BODY>
</HTML>

du skal lige omdøbe navnet på xmlfilen og databasefilen til dit eget..!

//>Rune

Den læser fint - men jeg kan ikke få den til at skrive i basen :-)

den kan godt gemme nu - updatet var bare tom så fejlmeldte den.
....hvis der er flere nyheder i modtagelsen gemmer den kun den sidste :-)

hmm.. det er jo dig der skal bøvle med det :-) - spørgsmålet lød på hvordan du satte dette ind i din database...! - og det er svaret... ;-)

//>Rune

Ja ja ja - har klaret den  ;-) *GG*

*G* fair nok... ;-)

Thx 4 Poinz
//>Rune