<% pathinfo=trim(Request.ServerVariables("Path_info")) select case lcase(pathinfo) case "/introduction/","/introduction/default.htm" pageNum=1 case "/product/","/product/default.htm" pageNum=2 subAct=1 case "/product/product02.htm" pageNum=2 subAct=2 case "/product/product03.htm" pageNum=2 subAct=3 case "/product/product04.htm" pageNum=2 subAct=4 case "/product/product05.htm" pageNum=2 subAct=5 case "/product/product06.htm" pageNum=2 subAct=6 case "/contact/","/contact/default.htm" pageNum=3 end select %>
Home Site Map