% ' ' ' %> <% main() Sub main() Dim HyojiJyoken, EnshuCD, GakuseiNo, KaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD HyojiJyoken = Request("HyojiJyoken") EnshuCD = Request("EnshuCD") GakuseiNo = Request("GakuseiNo") KaisyaCD = Request("KaisyaCD") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") Dim Joken Joken = Request("Joken") Dim EnshuChange EnshuChange = Request("EnshuChange") If EnshuChange = "1" Then '演習が変更された場合は集計期間リセット Kaishibi = "" Syuryobi = "" End If Dim Query Dim Content If EnshuCD <> "" Then '運用管理は消費税設定を持たないので選択演習の消費税を取得 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Session(HomeAlias & "Shohizei") = Content.Fields("消費税") GB_Shohizei = Content.Fields("消費税") 'Exit Sub End If End If %> <% = HtmlHeader("") %>
<% End Sub %>