ASP 디비 Insert, Update Function

<% Function Data_Insert(Table_NM, Col, Val) Dim SQ Conn.BeginTrans SQ = "Insert into " & Table_NM & " (" & Col & ") Values(" & Val & ")" 'Response.write sq Conn.Execute SQ end function if Conn.Errors.Count > 0 then Conn.RollbackTrans Data_Insert = False else Conn.CommitTrans Data_Insert = True end if End Function Function Data_Update(Table_NM, Col, Val, Where) Dim SQ, TempV, TCol, TVal, X, Cnt Conn.BeginTrans TCol = Split(Col, ",") TVal = Split(Val, ",") Cnt = Ubound(TCol) - 1 TempV = "" For X =...