%dim p,vpage p=request.querystring("p") select case p case 1 vpage="intro.htm" case 2 vpage="plan.htm" case 3 vpage="add.htm" case 4 vpage="exhibits.htm" case 5 vpage="traffic.htm" end select%>