InSert, UpDate Function 수정

Function Data_Insert(DConn, Table_NM, Col, Val) Dim SQ DConn.Errors.Clear DConn.BeginTrans SQ = "Insert into " & Table_NM & " (" & Col & ") Values(" & Val & ")" 'Response.write sq & "" DConn.Execute SQ if DConn.Errors.Count > 0 then DConn.RollbackTrans Data_Insert = False else DConn.CommitTrans Data_Insert = True end if End Function Function Data_Update(DConn, Table_NM, Val, Where) Dim SQ DConn.Errors.Clear DConn.BeginTrans SQ = "update " & Table_NM & " set " & Val & " " & Where 'Response.wr...