<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim HojoboCD, Torihikibi1, Torihikibi2, Torihikibi3, Torihikibi4, Tekiyo1, Tekiyo2, Tekiyo3, Tekiyo4, Kingaku1, Kingaku2, Kingaku3, Kingaku4 Dim BunsyoNaiyoCD BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") Dim Mode Mode = Request("Mode") 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小野) Torihikibi1 = TmpValue2(0) Torihikibi2 = TmpValue2(3) Torihikibi3 = TmpValue2(6) Torihikibi4 = TmpValue2(9) Tekiyo1 = TmpValue2(1) Tekiyo2 = TmpValue2(4) Tekiyo3 = TmpValue2(7) Tekiyo4 = TmpValue2(10) Kingaku1 = TmpValue2(2) Kingaku2 = TmpValue2(5) Kingaku3 = TmpValue2(8) Kingaku4 = TmpValue2(11) If Torihikibi1 = "" Then Torihikibi1 = "null" Else Torihikibi1 = "'" & Torihikibi1 & "'" End If If Torihikibi2 = "" Then Torihikibi2 = "null" Else Torihikibi2 = "'" & Torihikibi2 & "'" End If If Torihikibi3 = "" Then Torihikibi3 = "null" Else Torihikibi3 = "'" & Torihikibi3 & "'" End If If Torihikibi4 = "" Then Torihikibi4 = "null" Else Torihikibi4 = "'" & Torihikibi4 & "'" 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 'テンポラリテーブルに行挿入 Query = "exec SPK補助簿_原価計算表挿入 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", '" & BunsyoNaiyoCD & "'" Query = Query & ", null" Query = Query & ", " & Torihikibi1 Query = Query & ", '" & Tekiyo1 & "'" Query = Query & ", " & Kingaku1 Query = Query & ", " & Torihikibi2 Query = Query & ", '" & Tekiyo2 & "'" Query = Query & ", " & Kingaku2 Query = Query & ", " & Torihikibi3 Query = Query & ", '" & Tekiyo3 & "'" Query = Query & ", " & Kingaku3 Query = Query & ", " & Torihikibi4 Query = Query & ", '" & Tekiyo4 & "'" Query = Query & ", " & Kingaku4 Set Content = ExecQuery(db, Query) Next 'Exit Sub 'テンポラリテーブルから本テーブルに上書き Query = "exec SPK補助簿_原価計算表更新 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", '" & BunsyoNaiyoCD & "'" Set Content = ExecQuery(db, Query) Response.Redirect("fk_genkakeisanhyo_view.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&Mode=" & Mode & "&BunsyoNaiyoCD=" & BunsyoNaiyoCD) End Sub %>