<?xml version="1.0" encoding="utf-8"?>
<!--#include file="includes/db_access.inc"-->
<rss version="2.0">
<channel>

      <title>Starry Constellation Magazine</title>
      <link>http://www.starrymag.com</link>
      <description>Online magazine featuring Celebrity Interviews, Music reviews, CD reviews, Movie and DVD reviews, television reviews, TV episode guides, and much more.</description>
      <language>en-us</language>

<%
Dim strSQL
strSQL = "SELECT PK_CONTENT, TYPE, SUBJECT, HEADER2, DATE_WRITTEN, RSSD FROM CONTENT ORDER BY DATE_WRITTEN DESC;"
Dim artRec
Set artRec = Server.CreateObject("ADODB.Recordset")
    artRec.Open strSQL, Conn, 1, 1

   x=0

   while not artRec.eof

   if x<8 then

   response.write "<item>"
   response.write "<title>"& artRec("SUBJECT") &"</title>"
   response.write "<link>http://starrymag.com/content.asp?ID="& artRec("PK_CONTENT") &"&amp;CATEGORY="& artRec("TYPE") &"</link>"
   response.write "<description>"& artRec("RSSD") &"</description>"
'  response.write "<pubDate>"& (formatDateTime(artRec("DATE_WRITTEN"),1)) &"</pubDate>"
   response.write "<guid>http://starrymag.com/content.asp?ID="& artRec("PK_CONTENT") &"&amp;CATEGORY="& artRec("TYPE") &"</guid>"
   response.write "</item>"

   end if
   
   x=x+1

   artRec.movenext
   wend

   set artRec = nothing
   set objConn = nothing
   Conn.Close
%>
   </channel>
</rss>