<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' Data: 12/09/06 ' Arquivo: ADM_cria_newsletter.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 16/10/08 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMMailing&"") Call abre_conexao(conexao) %> <%=Application("NomeLoja")%>
• Cria Newsletter

<% '*** Verifica se há e-mails cadastrados e autorizados para envio. sqlVerifica= "SELECT COUNT(*) AS QTD FROM Newsletter WHERE autorizo_newsletter = 1" Set rsVerifica=conexao.Execute(sqlVerifica) If rsVerifica("QTD") = "0" Then msg_resultado = "Não há e-mails disponíveis para envio na opção ""Cadastrados Newsletter""." End If rsVerifica.Close Set rsVerifica = Nothing If msg_resultado <> "" Then %> <% End If %>
<%=msg_resultado%>
 NOME REMETENTE ">
 E-MAIL REMETENTE ">
 DESTINO Cadastrados Newsletter    Endereço abaixo
 NOME DESTINATÁRIO
 E-MAIL DESTINATÁRIO
 ASSUNTO
TEXTO DA NEWSLETTER
<% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = sBasePath oFCKeditor.Value = "" oFCKeditor.Height = "300" oFCKeditor.Width = "100%" oFCKeditor.Create "conteudo" %>