<% dim Conexaodb Call AbreConexao dim vaction if trim(request("acao"))="alterar" then vaction=request("acao") vlabelButton = "Alterar" else vaction="Inclusao" vlabelButton = "Gravar" end if ' acao apos o clique vdataa = request("aaNascimento") vdatmm = right("0" & request("mmNascimento"),2) vdatdd = right("0" & request("ddNascimento"),2) if trim(request("action"))="Inclusao" then SQL = "insert into Grupo_email(nomGrupo) values(" & _ "'"& trocaAspas(trim(request("nomGrupo")))&"')" ' response.write SQL Conexaodb.execute(SQL)%> <% set conn = nothing response.end elseif trim(request("action"))="alterar" then SQL = "update Grupo_email set nomGRupo='"& trocaAspas(trim(request("nomGrupo")))&"' " SQL = SQL & " where codGrupo=" & request("codGrupo") Conexaodb.execute(SQL) Conexaodb.close %> <% set conn = nothing response.end end if %> <% if trim(vaction)="alterar" then SQL = "Select * from Grupo_email where codGrupo=" & request("codGrupo") set rcd = server.createObject("ADODB.RECORDSET") rcd.open SQL, conexaodb, 3 if not rcd.eof then dim vcodGrupo, vnomContato, vnomEmpresa, vdesEndereco, vnumCEP, vdesComplemento, vsiguf, vemlContato vcodGrupo = rcd("codGrupo") vnomGrupo = rcd("nomGrupo") end if rcd.close set rcd = nothing end if %>

Cadastro de Grupos

Nome do Grupo: " class="form">

<% Conexaodb.close set conexaodb = nothing Function TrocaAspas(var) TrocaAspas = replace(var,"'","´") end Function %>