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