�?%
'***************PJblog2 连接数据�?******************
' PJblog2 Copyright 2005
' Update:2005-9-2
'***************************************************

'IF Not IsObject(Application(CookieName&"_blog_Conn")) Then
	    on error resume next
		Set Conn= Server.CreateObject("ADODB.Connection")
		Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessFile)
		Conn.Open
		   If Err Then
			    err.Clear
			    Set Conn = Nothing
			    Response.Write("<meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8"" /><div style='font-size:12px;font-weight:bold;border:1px solid #006;padding:6px;background:#fcc'>数据库连接出错，请检查连接字�?</div>")
			    Response.End
		   end if
'Else
'	Set Conn=Application(CookieName&"_blog_Conn")
'End IF
%><?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0">
<channel>
<title><![CDATA[]]></title>
<link></link>
<description><![CDATA[]]></description>
<language>zh-cn</language>
<copyright><![CDATA[Copyright 2005 PBlog2 v2.4]]></copyright>
<webMaster><![CDATA[()]]></webMaster>
<generator>PBlog2 v2.4</generator> 
<image>
	<title></title> 
	<url>images/logos.gif</url> 
	<link></link> 
	<description></description> 
</image>
<item></item>
</channel>
</rss>