<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = Request("PageType") Dim Label If PageType = "Uketori" Then Label = "ŽóŽæŽèŒ`‹L“ü’ " Else Label = "Žx•¥ŽèŒ`‹L“ü’ " End If Dim Query Dim UketoriSiharaiTegataTyoCD, Torihikibi, Tekiyo, Kingaku,TegataSyurui, BunsyoNaiyoCD Dim SiharaiUketorinin,FuridasiUragakinin,Furidasibi,Mankibi,Siharaibasyo,Tenmatubi,TenmatuTekiyo Dim RouteType RouteType = Request("RouteType") Dim db Set db = InitQuery() Dim ii Dim SendValue, TmpValue1, TmpValue2 SendValue = Request("SendValue") TmpValue1 = split(SendValue, ";") For ii = 0 To UBound(TmpValue1) - 1 TmpValue2 = split(TmpValue1(ii), ",") '”¼ŠpƒJƒ“ƒ}EƒZƒ~ƒRƒƒ“‚ð‘ã‘Ö•¶Žš‚©‚猳‚É–ß‚·ˆ—i070201¬–ìj Dim iii For iii = 0 To UBound(TmpValue2) - 1 TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",") TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";") Next '”¼ŠpƒJƒ“ƒ}EƒZƒ~ƒRƒƒ“‚ð‘ã‘Ö•¶Žš‚©‚猳‚É–ß‚·ˆ—i070201¬–ìj Torihikibi = TmpValue2(0) Tekiyo = TmpValue2(1) Kingaku = TmpValue2(2) TegataSyurui = ConvRevKubunMeisyo("ŽèŒ`Ží—Þ—ª‹æ•ª", TmpValue2(3)) BunsyoNaiyoCD = TmpValue2(4) SiharaiUketorinin = ConvRevKaisyaRyakuName(TmpValue2(5)) FuridasiUragakinin = ConvRevKaisyaRyakuName(TmpValue2(6)) Furidasibi = TmpValue2(7) Mankibi = TmpValue2(8) Siharaibasyo = ConvRevKaisyaRyakuName(TmpValue2(9)) Tenmatubi = TmpValue2(10) TenmatuTekiyo = TmpValue2(11) If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If If Furidasibi = "" Then Furidasibi = "null" Else Furidasibi = "'" & Furidasibi & "'" End If If Mankibi = "" Then Mankibi = "null" Else Mankibi = "'" & Mankibi & "'" End If If Tenmatubi = "" Then Tenmatubi = "null" Else Tenmatubi = "'" & Tenmatubi & "'" End If If TegataSyurui = "" Then TegataSyurui = "null" End If Query = "exec SPK•â••ë_" & Label & "‘}“ü '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",''" Query = Query & "," & Torihikibi Query = Query & ",'" & Tekiyo & "'" Query = Query & "," & Kingaku Query = Query & ",'" & TegataSyurui & "'" Query = Query & ",'" & BunsyoNaiyoCD & "'" Query = Query & ",'" & SiharaiUketorinin & "'" Query = Query & ",'" & FuridasiUragakinin & "'" Query = Query & "," & Furidasibi Query = Query & "," & Mankibi Query = Query & ",'" & Siharaibasyo & "'" Query = Query & "," & Tenmatubi Query = Query & ",'" & TenmatuTekiyo & "'" Set Content = ExecQuery(db, Query) Next Query = "exec SPK•â••ë_" & Label & "XV '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_uketorisiharaitegatatyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType) End Sub %>