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