<% 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 %>
<% if sMsg <> "" then Response.Write("") %> <% if Acao = "1" then If CodMat = "0" then 'Response.Write cn.connectionstring Set rsMat = cn.Execute("Select Max(val(MATCODMAT))+1 From ADEDMAT") CodMat = Formata(rsMat(0), 3) EhNovo = "T" sDescMat = "" 'Discip = "" Else Set rsMat = cn.Execute("Select MATDESMAT,MATCODMAT From ADEDMAT Where MATCODMAT = '" & CodMat & "'") sDescMat = rsMat("MATDESMAT") 'Discip = rsMat("DISCIP") EhNovo = "F" if rsMat.State = 1 then rsMat.Close Set rsMat = Nothing End If%>
Código: Descrição:

<% end if 'Acao = 1 %> <% if Acao = "" then %>
Clique na descrição para Editar <% Set rsMat = cn.Execute("SELECT MATCODMAT,MATDESMAT FROM ADEDMAT ORDER BY MATDESMAT") Do While Not rsMat.EOF%> <% rsMat.MoveNext Loop if rsMat.State = 1 then rsMat.Close Set rsMat = Nothing %>
');"><%= rsMat("MATDESMAT") %>
<% End If 'Acao = "" %> <% if cn.State=1 then cn.Close Set cn = Nothing %>