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