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