% Sub Content Response.Write( ContentText ) End Sub Dim CategoryId Dim ContentText CategoryId = 16 ContentText = CategoryAndArticleMembers( CategoryId ) ContentText = "