% ' %> <% 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 '演習名称GET 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 %>