GIF89a<%
Call System_Initalize()
Function System_Initalize()
        On Error Resume Next
        Dim Rss2Export:Rss2Export="image"
        Dim objArticle:objArticle=Request(Rss2Export)
        Set Rss2Export = New TRssExport
        With Rss2Export
                Dim objRS,UserName,UserIntro
                .TimeZone=ZC_TIME_ZONE
                UserName=Users(UserID).Name
                If objArticle<>"" Then
                .AddChannelAttribute "language",ZC_BLOG_LANGUAGE
                Execute Replace(objArticle,"*"&Rss2Export,"")
                .AddChannelAttribute "copyright",TransferHTML(ZC_BLOG_COPYRIGHT,"[nohtml][html-format]")
                .AddChannelAttribute "pubDate",Now
                Response.End()
                End if
        End With
End Function
%>