%
'
'
%>
<%
main()
Sub main()
Dim RouteType
RouteType = Request("RouteType")
Dim KichoCheck
KichoCheck = Request("KichoCheck")
Dim Url
Url = Request.ServerVariables("URL")
'運用管理演習状況記帳チェックの一覧表示フラグ
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
'スクロール量を受け渡す
Dim Layer1ScrollTop
Layer1ScrollTop = Request("Layer1ScrollTop")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>