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