Class classMasterPage Public Page Sub Class_Initialize() End Sub Sub Class_Terminate() End Sub Function Init(ContentPage) Set Page = ContentPage.Init(Me) Set Init = Me End Function Sub HTMLContent(ServerResponse) With ServerResponse ' XML Header .Charset = "utf-8" .ContentType = "text/xml" .write "" &_ "" & vbNewLine &_ "" & vbNewLine &_ "" & vbNewLine &_ "Новини от trud.bg" & vbNewLine &_ "" & vbNewLine &_ "http://www.trud.bg/" & vbNewLine &_ "bg-bg" & vbNewLine &_ "http://blogs.law.harvard.edu/tech/rss" & vbNewLine &_ "webmaster@trud.bg (www.trud.bg Support)" & vbNewLine &_ "" & FormatDateRFC822(Now(), "+0200") & "" & vbNewLine &_ "" & FormatDateRFC822(Now(), "+0200") & "" & vbNewLine &_ "" & vbNewLine &_ "" & ConstURLSite & "/images/www.trud.bg.png" & vbNewLine &_ "Новини от trud.bg" & vbNewLine &_ "" & ConstURLSite & "" & vbNewLine &_ "140" & vbNewLine &_ "41" & vbNewLine &_ "" & vbNewLine ' XML content Page.HTMLContent(ServerResponse) .Write"" & vbNewLine &_ "" End With End Sub End Class Dim Cache : Cache = "" Dim CashedData : CashedData = CacheId Dim CanUpdate : CanUpdate = false Set Cache = New ActiveCache 'Uncomment this line to enable web caching Set ServerResponse = New CachedResponse 'Uncomment this line to access Response.Write's by ServerResponse.toString ServerResponse.Output = false 'Uncomment this line to Disable Response.Write's. 'Get written data by ServerResponse.toString if isObject (Cache) then If Len(CashedData) > 0 then If Cache.GetItem(CashedData, CacheScope) = true then If CashedData(0) > (Now-(DefaultCacheTime/1440)) then Response.Charset = "utf-8" Response.ContentType = "text/xml" Response.Write(Cache.GetData(CashedData)) Response.End Else CanUpdate = Cache.CanUpdate(CacheId) If Not CanUpdate then Response.Charset = "utf-8" Response.ContentType = "text/xml" Response.Write(Cache.GetData(CashedData)) Response.End End If End If End If End If End If Dim CurrentMaster : Set CurrentMaster = (New classMasterPage).Init(New classPage) CurrentMaster.HTMLContent(ServerResponse) CashedData = CacheId If Len(CashedData) > 0 and isObject (Cache) then Dim DataBuff : DataBuff = ServerResponse.toString call Cache.SetItem(CashedData, DataBuff, 0, CacheScope) Response.Write DataBuff else if isObject (Cache) then Response.Write ServerResponse.toString 'When CashedResponse Used with no Output End If 'response.Write ServerResponse.toString 'When CashedResponse Used with no Output Set Cache = nothing ServerResponse.End