<% Sub Content Response.Write( ContentText ) End Sub Dim ArticleId Dim ArticleText Dim ContentText ArticleId = 0 If Request( "Id" ) <> "" Then If IsNumeric( Request( "Id" ) ) = True Then ArticleId = CLng( Request( "Id" ) ) End If End If ArticleText = ArticleWork( ArticleId, -1 ) ContentText = "

" & ArticleTitle & "

" & ArticleText Template ArticleTitle, ArticleKeywords, ArticleMetaTags %>