Análise de código de envio de email

[Weverton N 0]

Galers, fiz um código em flash pra por no meu blog (http://wevertonn.wordpress.com) para ajudar o pessoal que tem duvidas em enviar formularios pelo flash.

Daí preciso da ajuda de vocês para analizar o código asp aí embaixo e ver se está correto:

 

Cdonts:

 

<%
Dim Cdonts
set Cdonts = Server.CreateObject("Cdonts.newMail")

'pegar variaveis
nome=request.Form("formNome")
email=request.Form("formEmail")
assunto=request.Form("formAssunto")
sexo=request.Form("formSexo")
interesses=request.Form("formInteresses")
news=request.Form("formNews")
mensagem=request.Form("formMsg")

	Cdonts.From = email 'Email de quem envia a mensagem. Neste caso o email digitado no formulario'
	Cdonts.To = "[email="seunome@provedor.com.br"]seunome@provedor.com.br[/email]" 'Email que vai receber
	Cdonts.Subject = assunto 'Assunto
	Cdonts.Bodyformat = 0 'Conteúdo html
	Cdonts.MailFormat = 0 'Conteúdo html
	Cdonts.Body = "Olá, você recebeu uma mensagem do flash.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Sexo :"&sexo&"<br>Assunto: "&Assunto&"<br>Interesses: "&Interesses&"<br>Newsletter: "&news&"<br> Mensagem: "&mensagem
 
 on error resume next
 
	Cdonts.Send 'envia a mensagem'
 
 if err.number <> 0 then
 response.Write("retorno=Enviado com sucesso.")
 else
 response.Write("retorno=Erro ao enviar.")
 end if
 
	Set Cdonts = Nothing 'finaliza o objeto'

%>

Aspmail:

 

<%
Dim Aspmail
set Aspmail = Server.CreateObject("SMTPsvg.Mailer")

'pegar variaveis
nome=request.Form("formNome")
email=request.Form("formEmail")
assunto=request.Form("formAssunto")
sexo=request.Form("formSexo")
interesses=request.Form("formInteresses")
news=request.Form("formNews")
mensagem=request.Form("formMsg")


	Aspmail.RemoteHost = "smtp.dominio.com.br"
	Aspmail.FromName = nome 'Nome de quem envia
 Aspmail.FromAddress  = email 'Email de quem envia
	Aspmail.AddRecipient "seu nome", "[email="seunome@provedor.com.br"]seunome@provedor.com.br[/email]" 'Email que vai receber
	Aspmail.Subject = assunto 'Assunto
	Aspmail.BodyText = "Olá, você recebeu uma mensagem do flash.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Sexo :"&sexo&"<br>Assunto: "&Assunto&"<br>Interesses: "&Interesses&"<br>Newsletter: "&news&"<br> Mensagem: "&mensagem
  

   If Aspmail.SendMail Then
	   response.Write("retorno=Enviado com sucesso.")
   Else
	response.Write("retorno=Erro ao enviar.")
   End If


 
	Set Aspmail = Nothing 'finaliza o objeto'

%>

[Ted k' 126]

gera algum erro man???

 

envia, com erros? não envia, envia mais não chega nada, como está atualmente?

[Weverton N 0]

Não testei amigo.. não tenho como testar aqui..srsrsr.....

Precisava só que testassem pra mim, para que eu coloque no blog..

Thanks

[Ted k' 126]

eu tbm não tenho como testar (hauahuaha)

 

mais esse ASPMAIL parece que está mais certo pois o outro nem tem o SMTP de envio:

http://forum.imasters.com.br/index.php...st&p=737855