<% strURL = "http://blog.8pixel.net/" strSQL = "SELECT * FROM T_WEBLOG WHERE b_published = true ORDER BY b_date DESC, b_time DESC" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.ActiveConnection = strConn Rs.Source = strSQL Rs.CursorType = 0 Rs.CursorLocation = 2 Rs.LockType = 1 Rs.Open() response.ContentType="text/xml" response.write "" & vbcrlf response.Write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & strURL & "" & vbcrlf response.write "An RSS feed for Simpleblog" & vbcrlf response.write "EN" & vbcrlf if not Rs.EOF Then while not Rs.eof response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & IntToDate(Rs("b_date")) & "" & vbcrlf response.write "" & Rs("b_time") & "" & vbcrlf response.write ""&strURL&"?view=plink&id="&Rs("id")&"" & vbcrlf response.Write(""&Rs("id")&"") response.write "" & vbcrlf rs.movenext Wend end if response.write "" & vbcrlf rs.close set rs=nothing %>