<% dim sect select case request("sect") case "1" sect = "?sect=home" case "2" sect = "?sect=about" case "3" sect = "?sect=campaign" case "4" sect = "?sect=contact" case "5" sect = "?sect=col1" case "6" sect = "?sect=col2" case "7" sect = "?sect=col3" case "8" sect = "?sect=col4" case "9" sect = "?sect=col5" case "10" sect = "?sect=col6" case "11" sect = "?sect=col7" case "12" sect = "?sect=col8" case "13" sect = "?sect=col9" end select %>