<% Sub Content Response.Write( ContentText ) End Sub Dim CategoryId Dim ContentText CategoryId = 13 ContentText = CategoryAndReadMoreArticleMember( CategoryId ) ContentText = "

" & CategoryTitle & "

" & ContentText Template CategoryTitle, "", CategoryMetaTags %>