<%
'dim conexaodb
if trim(request("action"))="Publicar" then
SQL = "update Grupo_email set ideAtivo='S' where codGrupo=" & request("codGrupo")
conexaodb.execute(SQL)
end if
if trim(request("action"))="excluir" then
SQL = "delete from Grupo_email where codGrupo=" & request("codGrupo")
call abreconexao
conexaodb.execute(SQL)
end if
SQL = "Select i.codGrupo, i.nomGrupo from Grupo_email i order by i.nomGrupo"
call abreconexao
set rcdconteudo = conexaodb.execute(SQL)
if not rcdconteudo.eof then
vultCodCategoria = 0
%>
