% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Action Action = Request("Action") If Action = "" Then Action = "0" End If Dim TmpLoginID TmpLoginID = Request("TmpLoginID") Dim TmpShukei TmpShukei = Request("TmpShukei") Dim FromYmd FromYmd = Request("FromYmd") Dim ToYmd ToYmd = Request("ToYmd") Dim Query Dim Content Dim RouteType RouteType = Request("RouteType") %>