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