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