<%
'************************************************************************
'**               X-CHANGER - Troca de banners - Ano 2002              **
'**                                                                    **
'**        Sistema de troca de banners desenvolvido pela equipe        **
'**            Scriptmaster em parceria com a Paraná Design            **
'**Contatos:                                                           **
'**          Alexandre Vahldick      - alexandre@paranadesign.com      **
'**          Renato Augusto V. Elias - averanger@scriptmaster.com.br   **
'**          Robson Campos De Abreu  - jago@scriptmaster.com.br        **
'**Sites:                                                              **
'**          http://www.paranadesign.com                               **
'**          http://www.scriptmaster.com.br                            **
'************************************************************************
%>
<%
if aspmail = "on" then 'Se a variável aspmail estiver ativada ele seguira abaixo

	Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'cria o objeto ASPMAIL
	Mailer.ContentType = "text/html" ' parâmetro de formatação, aqui da suporte a html e txt
	Mailer.FromName = de ' nome de quem esta enviando a mensagem
	Mailer.FromAddress= deemail ' e-mail de quem esta enviando a mensagem
	Mailer.RemoteHost = smtp 'servidor de email
	Mailer.AddRecipient para, paraemail ' nome e e-mail de quem vai receber a mensagem
	Mailer.Subject = assunto 'assunto do email
	Mailer.BodyText = body 'corpo do email
	If Mailer.SendMail Then 'Se Mailer.SendMail for verdadeiro ele segue abaixo
    statusemail = "enviado" 'coloca o status do email para enviado
	Else 'se não
    statusemail = "erro" 'coloca o status do email para erro
	End If 'fecha o se
	set Mailer = Nothing 'Destruimos o objeto

elseif cdonts = "on" then 'Se caso a variável cdonts estiver ativada ele seguira abaixo

	Set Mailer = CreateObject("CDONTS.NewMail") 'cria o objeto Cdonts
	Mailer.From = deemail ' e-mail de quem esta enviando a mensagem
	Mailer.To = parameial ' e-mail de quem vai receber a mensagem
	Mailer.BodyFormat = 1 ' parâmetro de formatação
	Mailer.MailFormat = cdoMailFormatText 'parâmetro de formatação, 1 é o e-mail em HTML e o 0 é em txt.
	Mailer.Subject = assunto 'assunto do email
	Mailer.Body = body 'corpo do email
	Mailer.Send 'Enviand o email
	Set Mailer = Nothing 'Destruimos o objeto
	statusemail = "enviado" 'coloca o status do email para enviado

end if 'fecha o se que começou no aspmail

%>