<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: insere_delete_news.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 10/11/06 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# %> <% rodape = "no" %> <% Call abre_conexao(conexao) ip = Request.ServerVariables("REMOTE_ADDR") nome = request("nome") email = request("email") idunico = request("idunico") autorizo_newsletter = request("bt_newsletter") If session("id_transacao") = "" Then session("id_transacao") = Gerar_id_transacao(session.sessionID) End if If VerificaExistenciaDado("email","Newsletter","email","'"&email&"'") Then EmailExiste = "sim" Else EmailExiste = "não" End If If autorizo_newsletter = "Incluir" Then If EmailExiste = "sim" Then 'Pega o id_unico caso o e-mail ja esteja cadastrado id_unico = Pega_DadoBanco("Newsletter","id_unico","email","'"&email&"'") MsgRetNews = Application("NewsTxtEmailJaCadastrado") Else id_unico = session("id_transacao")&CALCMD5(email) Set InsertNewsletter = Server.CreateObject("adodb.recordset") InsertNewsletter.Open "Newsletter",conexao,3,3 InsertNewsletter.AddNew InsertNewsletter("nome") = nome InsertNewsletter("email") = email InsertNewsletter("id_unico") = id_unico InsertNewsletter("autorizo_newsletter") = "0" InsertNewsletter("ip_usado") = ip InsertNewsletter("data_cadastro") = date InsertNewsletter.Update Set InsertNewsletter = Nothing MsgRetNews = Application("NewsTxtEmailIncluido") End If Call Envia_mail_confirmacao(email,nome,id_unico) Else If EmailExiste = "não" Then MsgRetNews = Application("NewsTxtEmailNaoCadastrado") Else If autorizo_newsletter = "Confirmo" Then conexao.execute "UPDATE Newsletter set autorizo_newsletter = 1 WHERE id_unico = '"&request("idunico")&"'" MsgRetNews = Application("NewsTxtEmailConfirmado") ElseIf autorizo_newsletter = "Excluir" Then If request("origem") = "Notif" Then conexao.execute "Delete FROM Newsletter WHERE id_unico = '"&request("idunico")&"'" Else conexao.execute "Delete FROM Newsletter WHERE email = '"&request("email")&"'" End If MsgRetNews = Application("NewsTxtEmailExcluido") End If End If End if %>

<%=Application("NewsTxtTitNewsletter")%>

<%=MsgRetNews%>