% ' %> <% main() Sub main() Dim ErrMSG Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If ErrMSG = Request("ErrMSG") Dim RouteType RouteType = Request("RouteType") %>