% Set Cn = Server.CreateObject("ADODB.Connection") Cn.ConnectionString = sCnnOco : Cn.Open '------------------------- Acao = Request.Form("Acao") CodOco = Request.Form("CodOco") sMsg = "" '------------------------- If Acao = "2" Then 'Salva Dados sDescOco = Replace(Request.Form("txtDescOco"), "'", "''") Discip = Request.Form("chkAssocia") if Discip = "" then Discip = "0" 'Response.Write((Discip = "") & Request.Form("chkAssocia")) If Request.Form("EhNovo") = "T" Then sQuery = "Insert Into TIPOCORRENCIA(DESCRICAO,EHDIGITAVEL) " sQuery = sQuery & "Values ('" & sDescOco & "','" & CBool(Discip) & "')" Else sQuery = "Update TIPOCORRENCIA Set DESCRICAO = '" & sDescOco & "',EHDIGITAVEL = " & CBool(Discip) & " Where CODIGO = " & CodOco 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 %>