<% Response.ContentType = "text/xml" 'Last 10 Reports (K3 Reports: reporty_typ_id = 1) query = "SELECT TOP 10 report_id, datum, visum, titel, abstract, bild_1 " & _ "FROM tbl_report AS list " & _ "WHERE reporttyp_id = 1 AND status = 1 " & _ "ORDER BY ordnung " set rs = Server.CreateObject("ADODB.Recordset") rs.Open query, conn, 3, 3 response.Write("" & _ "" & vbcrlf & _ "" & vbcrlf & _ "" & vbcrlf & _ "" & vbcrlf & _ "" & vbcrlf & _ "" & vbcrlf & _ "http://www.k3zh.ch" & vbcrlf & _ "K3 Project Space, Maag Areal, Hardstrasse 219, CH 8005 Zürich" & vbcrlf & _ "en-en" & vbcrlf & _ "2001-" & year(date) & " K3/deimos.ch" & vbcrlf & _ "" & day(date) & "." & month(date) & "." & year(date) & "" & vbcrlf & _ "" & vbcrlf & _ "http://www.k3zh.ch/pics/logo_k3zh_rss.gif" & vbcrlf & _ "" & vbcrlf & _ "http://www.k3zh.ch/" & vbcrlf & _ "70" & vbcrlf & _ "65" & vbcrlf & _ "" & vbcrlf ) ' News do while not rs.EOF title = Server.HTMLEncode(rs.Fields("titel")) link = Server.HTMLEncode("http://www.k3zh.ch/home/k3reports.asp?report_id=" & rs.Fields("report_id")) description = "" if rs.Fields("bild_1") & "" <> "" and lcase(right(rs.Fields("bild_1") & "", 3)) <> "gif" then description = description & "" end if if rs.Fields("abstract") & "" <> "" then description = description & rs.Fields("abstract") end if author = Server.HTMLEncode("K3/"&rs.Fields("visum")) pubDate = day(rs.Fields("datum")) & "." & month(rs.Fields("datum")) & "." & year(rs.Fields("datum")) response.Write("" & _ "" & vbcrlf & _ "" & link & "" & vbcrlf & _ "" & vbcrlf & _ "" & link & "" & vbcrlf & _ "" & Server.HTMLEncode(description) & "" & vbcrlf & _ "" & author & "" & vbcrlf & _ "" & pubDate & "" & vbcrlf & _ "" & vbcrlf ) rs.MoveNext loop response.Write("" & vbcrlf) response.Write("" & vbcrlf) conn.close set conn = nothing %>