Hvordan skal min rss så se ud?
Hvad skal ændres i denne sætning for scriptet skal virke??f.WriteLine "<description><a href='nyheder.asp?kat=" & kategori_id & "&nyheder_id=" & RS("nyheder_id") & '>" & RS("overskrift") & "</a></description>"
Hele scriptet er her:
<%
Response.ContentType = "text/xml"
Dim fso, f, filespec
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/badeklub.mdb")
Conn.Open DSN
strSQL = "select top 12 * from nyheder where kategori_id = " & "kategori_id" & " order by dato desc"
Set rs = Conn.Execute(strSQL)
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("rss.xml")
Set f = fso.OpenTextFile(filespec,2)
f.WriteLine "<?xml version='1.0' encoding='ISO-8859-1'?>"
f.WriteLine "<rss version='2.0'>"
f.WriteLine "<channel>"
f.WriteLine "<title>badeklubben</title>"
f.WriteLine "<link>http://www.badeklubben.dk/</link>"
f.WriteLine "<description>Når badebøffer bader</description>"
f.WriteLine "<docs>http://blogs.law.harvard.edu/tech/rss</docs>"
f.WriteLine "<ttl>01</ttl>"
f.WriteLine "<title>badeklubben</title>"
f.WriteLine "<language>da-dk</language>"
f.WriteLine "<image>"
f.WriteLine "<title>badeklubben</title>"
f.WriteLine "<url>http://www.badeklubben.dk/test/www/img/rss_image.png</url>"
f.WriteLine "<link>http://www.badeklubben.dk/</link>"
f.WriteLine "<width>137</width>"
f.WriteLine "<height>180</height>"
f.WriteLine "</image>"
do
if IsNull(rs("overskrift")) or rs("overskrift") = "" then
else
f.WriteLine "<item>"
f.WriteLine "<title>" & rs("dato") & "</title>"
f.WriteLine "<description><a href='nyheder.asp?kat=" & kategori_id & "&nyheder_id=" & RS("nyheder_id") & '>" & RS("overskrift") & "</a></description>"
f.WriteLine "<link>http://www.badeklubben.dk/nyheder.asp?nyheder_id=" & RS("nyheder_id") & "</link>"
f.WriteLine "</item>"
end if
rs.movenext
loop while not rs.EOF
f.WriteLine ""
f.WriteLine "</channel>"
f.WriteLine "</rss>"
f.Close
Conn.Close
Set Conn = Nothing
%>
;-)
