Lav RSSfeed
Jeg har prøvet med nedenstående kode at lave et dynamisk RSSfeed udtræk fra min Db, men det vil ikke rigtigt virke, IE står bare og snurrer et kort øjeblik og stopper så, uden at jeg kan få lov til at se kilden, Netscape ser en XMLfil, kan du hjælpe til her ?Kodestump
--
<?xml version="1.0" encoding="iso-8859-1"?>
<rss version="0.91">
<channel>
<title>RSS feed</title>
<link>http://www/</link>
<description>Nyheder</description>
<language>da</language>
<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
SQL = "SQL udtræk"
Set rs = MinCon.Execute(SQL)
Do while not rs.eof
response.write " <item>" &VbCrLf
response.write " <title>"& rs("headline") &"</title>" &VbCrLf
response.write " <link>"& rs("fk_article") &"</link>" &VbCrLf
response.write " <description>"& rs("shortdescription") &"</description>" &VbCrLf
response.Write " <pubDate>"& rs("startdatetime") &"</pubDate> "& vbNewLine
response.write " </item>" &VbCrLf
rs.movenext
loop
rs.close
set rs = nothing
MinCon.close
set MinCon = nothing
%></channel></rss>
--
