<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim KenninView KenninView = Request("KenninView") Dim Query Dim Content Dim EnshuCD EnshuCD = Request("EnshuCD") Dim SeitoCD SeitoCD = Request("SeitoCD") Dim SakuseiKaisyaCD SakuseiKaisyaCD = Request("SakuseiKaisyaCD") Dim BunsyoSyuruiCD BunsyoSyuruiCD = Request("BunsyoSyuruiCD") Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Query = "exec SPD仕入売上書類検認 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "', '" & KenninView & "'" Set Content = OpenQuery(Query) Response.Redirect("fm_enshucontrol07.asp?EnshuCD=" & EnshuCD & "&SeitoCD=" & SeitoCD & "&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&KenninView=" & KenninView) End Sub %>