% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim ii Dim Cnt Dim Syuryobi Syuryobi = Request("Syuryobi") Dim RouteType RouteType = Request("RouteType") IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim HyojunTankaHyoji Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") End If %> <% = HtmlHeader("sj3tyoboblack") %>
<% If 1=1 Or GB_IEmode <> "1" Then %> <% Else 'IEモード %> <% End If %> <% = HtmlFooter %> <% End Sub %>