<%
'dim conexaodb
Call AbreConexao
if trim(request("action"))="Publicar" then
SQL = "update Eventos set ideAtivo='S' where codEvento=" & request("codEvento")
Conexaodb.execute(SQL)
end if
if trim(request("action"))="excluir" then
SQL = "delete from Eventos where codEvento=" & request("codEvento")
Conexaodb.execute(SQL)
end if
if trim(request("action"))="desPublicar" then
SQL = "update Eventos set ideAtivo='N' where codEvento=" & request("codEvento")
Conexaodb.execute(SQL)
end if
SQL = "Select i.NUMsEQUENCIAL, i.desTitulo, i.datEnvio from Envio_marketing i " & _
" order by i.datEnvio"
set rcdconteudo = Conexaodb.execute(SQL)
if not rcdconteudo.eof then
vultCodCategoria = 0
%>
