% Set Cn = Server.CreateObject("ADODB.Connection") Cn.ConnectionString = sCnn : Cn.Open '------------------------- Acao = Request.Form("Acao") CodMat = Request.Form("CodMat") sMsg = "" '------------------------- If Acao = "2" Then 'Salva Dados sDescMat = Replace(Request.Form("txtDescMat"), "'", "''") 'Discip = Request.Form("chkAssocia") if Discip = "" then Discip = "N" 'Response.Write((Discip = "") & Request.Form("chkAssocia")) If Request.Form("EhNovo") = "T" Then sQuery = "Insert Into ADEDMAT(MATCODMAT,MATDESMAT) " sQuery = sQuery & "Values ('" & CodMat & "','" & sDescMat & "')" Else sQuery = "Update ADEDMAT Set MATDESMAT = '" & sDescMat & "' Where MATCODMAT = '" & CodMat & "'" End If On Error Resume Next 'Response.Write(sQuery) : Response.End() Cn.Execute sQuery if err.number = 0 then sMsg = "Dados Gravados com Sucesso" else sMsg = "ERRO - " & err.number & " - " & Replace(err.Description, "'", "") end if Acao = "" ElseIf Acao = "3" Then 'Exclue Dados sQuery = "Delete from TIPOCORRENCIA Where CODIGO = " & CodOco 'Response.Write(sQuery) : Response.End() Cn.Execute sQuery if err.number = 0 then sMsg = "Registro Excluido com Sucesso" else sMsg = "ERRO - " & err.number & " - " & Replace(err.Description, "'", "") end if Acao = "" ElseIf Acao = "4" Then 'Cancelou -> apenas ZERA Acao = "" End If %>