<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim PageType Dim UrikaikakekintyoCD, Torihikibi, Tekiyo, KarikataKingaku, KashikataKingaku Dim Taisyaku,Zandaka,TaisyakuName,TorihikisakiCD TorihikisakiCD = Request("TorihikisakiCD") Dim RouteType RouteType = Request("RouteType") PageType = Request("PageType") Dim Label If PageType = "Urikake" Then Label = "”„Š|‹àŒ³’ " Else Label = "”ƒŠ|‹àŒ³’ " End If 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) KarikataKingaku = TmpValue2(2) KashikataKingaku = TmpValue2(3) Taisyaku = ConvRevKubunMeisyo("‘ÝŽØ—ª‹æ•ª", TmpValue2(4)) Zandaka = TmpValue2(5) If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If Tekiyo = "'" & Tekiyo & "'" If KarikataKingaku = "" Then KarikataKingaku = "null" End If If KashikataKingaku = "" Then KashikataKingaku = "null" End If If Zandaka = "" Then Zandaka = "null" End If Query = "exec SPK•â••ë_" & Label & "‘}“ü '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",''" Query = Query & "," & Torihikibi Query = Query & ",'" & TorihikisakiCD & "'" Query = Query & "," & Tekiyo Query = Query & "," & KarikataKingaku Query = Query & "," & KashikataKingaku Query = Query & "," & Taisyaku Query = Query & "," & Zandaka Set Content = ExecQuery(db, Query) Next Query = "exec SPK•â••ë_" & Label & "XV '" & GB_SystemCD & "'," Query = Query & "'" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Query = Query & ",'" & TorihikisakiCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_urikaikakekintyo_view.asp?TorihikisakiCD=" & TorihikisakiCD & "&PageType=" & PageType) End Sub %>