Opret XML fil

Det skal selvfølgelig være i ASP

Her er et eks på en xml-fil, som fungere som et RSS-feed
<%
function RSSWrite()

    strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb") &";Jet OLEDB:Database Password=kode"
    Set conn = server.createObject("ADODB.Connection")
    conn.Open strDSN
   
        set rs = conn.execute("SELECT * FROM nyheder ORDER BY ID DESC")
   
    strRSS = ""
   
    strRSS = strRSS & "<?xml version=""1.0"" encoding=""iso-8859-1"" ?>" & VbCrLf
    strRSS = strRSS & "<rdf:RDF xmlns:rdf=""http://www.w3.org/1999/02/22-rdf-syntax-ns#"" xmlns=""http://purl.org/rss/1.0/"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:taxo=""http://purl.org/rss/1.0/modules/taxonomy/"" xmlns:syn=""http://purl.org/rss/1.0/modules/syndication/"">" & VbCrLf
    strRSS = strRSS & "    <channel rdf:about=""http://www.domain.dk/"">" & VbCrLf
    strRSS = strRSS & "        <title>RSS-feed title</title>" & VbCrLf
    strRSS = strRSS & "        <link>http://www.domain.dk</link>" & VbCrLf
    strRSS = strRSS & "        <description>Beskrivelse af RSS-feed</description>" & VbCrLf
   
    strRSS = strRSS & "        <dc:language>da</dc:language>" & VbCrLf
    strRSS = strRSS & "        <webMaster>webmaster@mail.dk</webMaster>" & VbCrLf
    strRSS = strRSS & "    </channel>" & VbCrLf
       
    do while not gw.eof
       
        strRSS = strRSS & "    <item>" & VbCrLf
        strRSS = strRSS & "        <title>" & rs("overskrift") & "</title>" & VbCrLf
        strRSS = strRSS & "        <link>http://" & rs("link") & "</link>" & VbCrLf
        strRSS = strRSS & "        <description>" & rs("indhold") & "</description>" & VbCrLf
        strRSS = strRSS & "    </item>" & VbCrLf
       
    rs.movenext
    loop
       
    strRSS = strRSS & "</rdf:RDF>"
   
    Dim fso, MyFile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set MyFile = fso.CreateTextFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & "\news.xml", True)
    MyFile.Write(strRSS)
    MyFile.Close

end function
%>

lige en lille fejl: der hvor der står "do while not gw.eof", skal der stå "do while not rs.eof"

Hi, der sker ikke rigtig noget.... jeg får ingen fejlmeddelelser eller lign. og filen bliver ikke oprettet.

du skal også lige huske at kalde funktionen...
call RSSWrite()
Bare placer det et eller andet sted uden for funktionen..

Selvom jeg skriver et forkert database navn får jeg ingen fejlmeddelelse. Kan det have noget at gøre med mit webhotel?

Arhhhh. det hjalp jo lidt på det.... det virker tak for hjælpen, der er selvfølgelig point. Jeg opretter et spørgsmål lige om lidt igen, omkring request bestemte værdier i XML, det kan være du kan hjælpe der ;)

muligvis.. Smider lige et svar ;)