!-- exclusao.msp -->
Manutencao de Mailing
Exclusao de Emails - clique em "excluir" para remover o email associado.
<%
// Abre conexao com o banco de dados
SET DBType to ODBC
If Not SQLConnect("BcoDados", "usuario", "senha")
? "Erro conectando ao Bco de Dados"
? SQLErrorMessage()
QUIT
EndIf
Private mEmail:= MSPFieldValue("FEmail")
Private mOperacao:= MSPFieldValue("FOperacao")
// Note que deteminadas operacoes serao executadas conforme
// o valor do campo FOperacao enviado previamente `a pagina.
If mOperacao == "Excluir"
// Exclusao do registro
Private Qry:= "DELETE FROM MailingList " ;
" WHERE email = " + SQLFormat(mEmail)
IF SQLExec(Qry)
%>
* Email <%= mEmail %> excluido com sucesso *
<%
Else
%>
* Email <%= mEmail %> não pôde ser excluído *
<%
EndIf
EndIf
// Listagem normal dos emails
USE ML QUERY "SELECT * FROM MailingList ORDER BY DtInclusao"
IF EoF()
%>
* Nenhum email cadastrado *
<%
Else
// Listagem normal dos registros encontrados
%>
| Data de Inclusão |
Email |
Nome |
|
<%
Do While Not Eof()
%>
| <%= ML->DtInclusao %> |
<%= ML->Email %> |
<%= ML->Nome %> |
Excluir |
<%
Skip
EndDo
%>
<%
EndIf
%>