영삼넷IT 강국 = 김영삼 블로그에 오신걸 환영합니다.

<%
        Option Explicit
        Response.ContentType = "text/xml"
%>
<!-- #include virtual="/Lib/db.asp" -->
<!-- #include virtual="/Lib/lib.asp" -->
<!-- #include virtual="/Lib/adovbs.inc" -->
<%
        Dim cn, rs, sql, config

        sql = "SELECT TOP 20 * FROM posts WHERE is_public = 1 ORDER BY regdate DESC"
        Set cn = GetConnection("Blog", True)
        Set rs = cn.Execute(sql)
        config = Split(Application("BlogConfig"), "|")
%>
<?xml version="1.0" encoding="EUC-KR" ?>
<rss version="2.0">
        <channel>
                <title><% = config(5) %></title>
                <link>http://<% = Request.ServerVariables("HTTP_HOST") %></link>
                <description><% = config(6) %></description>
                <copyright><% = config(5) %></copyright>
                <generator>Bullog for ASP 3.0</generator>
<%
        If (Not rs Is Nothing) And (Not rs.EOF) Then
                Do While Not rs.EOF
%>
                        <item>
                                <title><% = rs("subject") %></title>
                                <link>http://<% = Request.ServerVariables("HTTP_HOST") %>/Archive/<% = rs("uid") %></link>
                                <description><![CDATA[<% = rs("content") %>]]></description>
                                <pubDate><% = rs("regdate") %></pubDate>
                        </item>
<%
                        rs.MoveNext
                Loop
        End If

        rs.Close
        cn.Close

        Set rs = Nothing
        Set cn = Nothing
%>
        </channel>
</rss>