<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim KoguchiSuitochoCD, Torihikibi, Tekiyo, Syunyu, Shisyutsu, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5 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), ",") '半角カンマ・セミコロンを代替文字から元に戻す処理(070201小野) Dim iii For iii = 0 To UBound(TmpValue2) - 1 TmpValue2(iii) = Replace(TmpValue2(iii), "CommammoC", ",") TmpValue2(iii) = Replace(TmpValue2(iii), "SemicolonolocimeS", ";") Next '半角カンマ・セミコロンを代替文字から元に戻す処理(070201小野) Syunyu = TmpValue2(0) Torihikibi = TmpValue2(1) Tekiyo = TmpValue2(2) Shisyutsu = TmpValue2(3) Kingaku1 = TmpValue2(4) Kingaku2 = TmpValue2(5) Kingaku3 = TmpValue2(6) Kingaku4 = TmpValue2(7) Kingaku5 = TmpValue2(8) If Torihikibi = "" Then Torihikibi = "null" Else Torihikibi = "'" & Torihikibi & "'" End If If Syunyu = "" Then Syunyu = "null" End If If Shisyutsu = "" Then Shisyutsu = "null" End If If Kingaku1 = "" Then Kingaku1 = "null" End If If Kingaku2 = "" Then Kingaku2 = "null" End If If Kingaku3 = "" Then Kingaku3 = "null" End If If Kingaku4 = "" Then Kingaku4 = "null" End If If Kingaku5 = "" Then Kingaku5 = "null" End If Query = "exec SPK補助簿_小口現金出納帳挿入 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", ''" Query = Query & ", " & Syunyu Query = Query & ", " & Torihikibi Query = Query & ", '" & Tekiyo & "'" Query = Query & ", " & Shisyutsu Query = Query & ", " & Kingaku1 Query = Query & ", " & Kingaku2 Query = Query & ", " & Kingaku3 Query = Query & ", " & Kingaku4 Query = Query & ", " & Kingaku5 Set Content = ExecQuery(db, Query) Next Query = "exec SPK補助簿_小口現金出納帳更新 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_koguchisuitocho_view.asp?RouteType=" & RouteType) End Sub %>