% ' ' %> <% main() Sub main() Dim EnshuName, HyojiJyoken Dim Query Dim Content Dim KouriHanbaiF Dim ErrMsg If Not(SessionCheck()) Then Exit Sub End If '演習テーブルを読み込み「小売販売の有無」情報を取得 Query = "SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("演習CD") = EnshuCD Then KouriHanbaiF = Content.Fields("小売販売有無") EnshuCD = Content.Fields("演習CD") End If Content.MoveNext Loop ' ErrMsg = "表のタイトル行をクリックすることで表示順を変更できます" %>