<% Dim strCat, strSubCat strCat = 1 strSubCat = 3 %>