Hjælp til korrekt kodning??
Hejsa alle.Er der nogen der kan sige mig om XML-delen i dette er en korrekt kodning. Det er til feed-readers, men jeg døjer lidt med at indlæggene ikke bliver sorteret korrekt og lidt problemer med '-tegn.
<%
Function fncTextChangeBio(strTextBio)
strTekstBio = Trim(strTextBio)
fncTextChangeBio = Replace(strTekstBio,"","<i>")
fncTextChangeBio = Replace(fncTextChangeBio,"","</i>")
End Function
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/rssfeed.xml")
Set f = fso.OpenTextFile(filespec,2)
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TOP 20 id, emne, indhold, premiere, teaser, forfatter FROM forumindlaeg WHERE (anmeldtype = 'bio' or anmeldtype = 'dvd') AND online = True ORDER BY id DESC"
rs.Open strSQL, Conn, 1, 3
f.WriteLine "<?xml version='1.0' encoding='iso-8859-1' standalone='no'?>"
f.WriteLine "<rss version=""2.0"" xmlns:admin=""http://webns.net/mvcb/"" xmlns:content=""http://purl.org/rss/1.0/modules/content/"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:rdf=""http://www.w3.org/1999/02/22-rdf-syntax-ns#"" xmlns:sy=""http://purl.org/rss/1.0/modules/syndication/"">"
f.WriteLine "<channel>"
f.WriteLine "<title>Filmnet.dk - Anmeldelser</title>"
f.WriteLine "<link>http://filmnet.dk</link>"
f.WriteLine "<description>Seriøst filmsite der opdateres dagligt</description>"
f.WriteLine "<language>da</language>"
f.WriteLine "<copyright>Copyright 2007, Filmnet.dk</copyright>"
f.WriteLine "<image>"
f.WriteLine "<title>Filmnet.dk</title>"
f.WriteLine "<url>http://filmnet.dk/grafik/logo.gif</url>"
f.WriteLine "<link>http://filmnet.dk/</link> "
f.WriteLine "</image>"
Do While Not rs.EOF
f.WriteLine "<item>"
f.WriteLine "<title>Anmeldelse: "&rs("emne")&"</title>"
f.WriteLine "<link>http://www.filmnet.dk/anmeldelser/view/?id="&rs("Id")&"</link>"
f.WriteLine "<description>"
f.WriteLine "<![CDATA["&fncTextChangeBio(rs("indhold"))&""
f.WriteLine "]]></description>"
f.WriteLine "<author>"&rs("forfatter")&"</author>"
f.Writeline "<pubDate>"&FormatDateTime(Now, vbLongDate)&"</pubDate>"
f.WriteLine "</item>"
rs.movenext
loop
f.WriteLine "</channel>"
f.WriteLine "</rss>"
rs.Close
Conn.Close
set rs=nothing
set Conn=nothing%>