<% ' %> <% 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 %>