<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.5
' Data: 12/09/06
' Arquivo: ADM_cria_session_newsletter.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 12/09/06
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
%>
<!--#INCLUDE FILE="funcoes/ADM_funcoes_checa_senha.asp"-->
<%
'Verifica se o perfil de usuário permite acesso a esta página
If checa_perfil_admin_menu(""&ADMMailing&"") = false Then
    Response.redirect "ADM_home.asp?msg=SEU PERFIL DE USUÁRIO NÃO PERMITE ACESSO A ESTA PÁGINA"
    Response.end
End If

'Cria sessões dos dados postados

If request("enviar") <> "" Then
    Session("enviar")=Request.Form("enviar")
End if

If request("de") <> ""  Then
    Session("de")=Request.Form("de")
End if

If request("emailde") <> ""  Then
    Session("emailde")=Request.Form("emailde")
End If

If request("formato") <> ""  Then
    Session("formato")=Request.Form("formato")
End If

If request("enviar") <> ""  Then
    Session("enviar")=Request.Form("enviar")
End If

If request("para") <> ""  Then
    Session("para")=Request.Form("para")
End If

If request("emailpara") <> ""  Then
    Session("emailpara")=Request.Form("emailpara")
End If

If request("assunto") <> ""  Then
    Session("assunto")=Request.Form("assunto")
End if

If request("conteudo") <> ""  Then
    Session("conteudo")=Request.Form("conteudo")
End If

'Redireciona para página que dispara o envio de e-mails em massa.
response.redirect "ADM_envia_newsletter.asp"
%>