% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") Dim ShowDel ShowDel = Request("ShowDel") Dim OldParamJ Dim OldParamH OldParamJ = Request.Cookies("OldParamJ") OldParamH = Request.Cookies("OldParamH") Dim iiDef %>