<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim EnshuCD Dim EnshuName EnshuCD = Request("EnshuCD") Dim KaisyaCD KaisyaCD = Request("KaisyaCD") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Query = "exec SPK領収書返却" Query = Query & " '" & GB_SystemCD & "' ,'" & EnshuCD & "'" '演習CD Query = Query & ", '" & KaisyaCD & "'" '会社CD(受取人) Query = Query & ", '" & SakuseiKaisyaCD & "'" '作成会社CD(発行人) Query = Query & ", '" & BunsyoSyuruiCD & "'" '文書種類CD Query = Query & ", '" & BunsyoNaiyoCD & "'" '文書内容CD Set Content = OpenQuery(Query) Response.Redirect("fm_enshucontrol09.asp?EnshuCD=" & EnshuCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD) End Sub %>