<!--#include file="conn.asp" -->
<%Response.contentType = "text/xml"%>
<?xml version="1.0" encoding="gb2312"?>
<?xml-stylesheet type="text/xsl" href="blogrss.xsl" version="1.0"?>
<rss version="2.0">
<%
call FTBBS_HTML_MB
url=Application("FTBBSMB")(10,0)
if right(url,1)<>"/" then
   url=url&"/"
end if
userid=request("userid")
siteurl=url&"home.asp?userid="&userid
SQL = "Select top 10 * from ftblog,clubuser where clubuser.clubuser_id=ftblog.userid and ftblog.userid="&userid&" order by writedate desc"
set rs=conn.execute(SQL)
%>
<channel>
<link><%=siteurl%></link>
<description><%=rs("clubuser_name")%>µÄ²©¿Í</description>
<%
if rs.Eof or rs.Bof then
  response.write "<item></item>"
end if
do while not rs.Eof 
    response.Write "<item>" & vbcrlf
	Response.write "<title><![CDATA["&rs("blogtitle")&"]]></title>" & vbcrlf
	response.write "<link>"&url&"home.asp?userid="&userid&"</link>" & vbcrlf
	response.write "<author>"&rs("clubuser_id")&"</author>" & vbcrlf
	response.write "<pubDate>"&rs("writedate")&"</pubDate>" & vbcrlf
 	response.write "<description><![CDATA["&rs("blogcontent")&"]]></description>" & vbcrlf
	response.write "</item>"
	rs.MoveNext          
loop                 
set rs=nothing
conn.Close
set conn = nothing
%>
</channel>
</rss>