% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim BunsyoSyuruiCD, SenpoBunsyoSyuruiCD Dim SyoruiMei, SenpoSyoruiMei Dim NyusyukoKubun Dim ErrMsg ErrMsg = Request("ErrMsg") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") NyusyukoKubun = Request("NyusyukoKubun") Dim SyoruiKubun Dim SenpoFlg SenpoFlg = 0 If SenpoBunsyoSyuruiCD <> "" Then SenpoFlg = 1 End If Select Case SenpoBunsyoSyuruiCD Case "KI" SenpoSyoruiMei = "先方見積依頼書" Case "KM" SenpoSyoruiMei = "先方見積書" Case "KC" SenpoSyoruiMei = "先方注文書" Case "KU" SenpoSyoruiMei = "先方注文請書" Case "KK" SenpoSyoruiMei = "先方注文請書確認" Case "KN" SenpoSyoruiMei = "先方納品請求書" Case "KB" SenpoSyoruiMei = "先方物品受領書" Case "KX" SenpoSyoruiMei = "先方買入申込書" Case "KY" SenpoSyoruiMei = "先方売渡申込書" Case Else End Select Dim PageType Select Case BunsyoSyuruiCD Case "KV" PageType = "買入一括受付" SyoruiKubun = "V" Case "KW" PageType = "売渡一括受付" SyoruiKubun = "W" Case Else End Select Select Case NyusyukoKubun Case "S" SyoruiMei = "仕入入庫" Case "U" SyoruiMei = "売上出庫" End Select %>