<%
'
%>
<%
main()
Sub main()
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 %>
<% Response.Write(AccessLog(TmpLoginID, TmpShukei, FromYmd, ToYmd, Action, 0, 1)) %>
<%
End Sub
%>