<%
'
%>
<%
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")
%>
<% = AppTitle %>
<%
End Sub
%>