<%
'
%>
<%
main()
Sub main()
Dim KanriKubun
Dim EnshuName , SaimokuKubun ,GyoshuKubun
Dim Query
Dim Content
Dim Content2
Dim HyojiFlg
Dim MSG
If Not(SessionCheck()) Then
Exit Sub
End If
KanriKubun = Request("KanriKubun")
MSG = Request("MSG")
GyoshuKubun = Request("GyoshuKubun")
SaimokuKubun = Request("SaimokuKubun")
If SaimokuKubun = "" Then
SaimokuKubun = "%"
End If
'演習名称ＧＥＴ
EnshuName = ConvEnshuMeisyo(EnshuCD)
Dim RouteType
RouteType = Request("RouteType")
HyojiFlg = Request("HyojiFlg")
If HyojiFlg = "" Then
HyojiFlg = "0"
End If
Dim KamokuCD
KamokuCD = Request("KamokuCD")
Dim FirstForm '初期表示用選択フォーム特定変数
%>
<% = HtmlHeader("") %>
<% = HtmlFooter %>
<%
End Sub
%>