% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If 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 %>