Envio de e-mail.

[Sandler Riot 0]

Galera, beleza?

 

Não to encontrando o que possa estar errado... É uma função simples, segue o codigo:

 

<!--#include file="dados.asp"-->
<%

Response.Expires = 0


vrpag = "Click Iguatemi"
vrnav=""

max=100
min=1

myDummyVar = Int((max-min+1)*Rnd+min)

enviou = Request.Form("enviou")

If enviou = "sim" Then
	nome = Request.Form("nome")
	email = Request.Form("email")
	Resposta = Request.Form("resposta")
	
	html= "<table width='500' border='0' cellpadding='0' cellspacing='0' bgcolor='#FFFFFF' align='center'>"

	html=html & "<tr valign='middle' bgcolor='fafafa'>"
	html=html & "<td colspan='2' style='background-image:url(http://www.meusite.com.br/newsletter/fevereiro/9/bck.gif); background-repeat:repeat-x;font-family:arial'>"
	html=html & "<div style='padding:15px'><br><h3>Resposta para promoção:</h3><br>"
	html=html & "<b>Nome:</b> " & nome & "<br>"
	html=html & "<b>E-mail:</b> " & email & "<br>"
	html=html & "<b>Resposta:</b><br> " & resposta & "<br>"
	html=html & "<br></span></td>"
	html=html & "</tr>"
	html=html & "<tr align='center' valign='middle' bgcolor='cccccc'>"
	html=html & "<td colspan='2' style='font-family:arial; font-size:11px; color:#666; padding:10px; '></td>"
	html=html & "</tr>"
	html=html & "</table>"

	
	
	strHost = "200.194.96.25"
   Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost

Set Mail = Server.CreateObject("Persits.MailSender")
   ' enter valid SMTP host
   Mail.Host = strHost

   Mail.From = rcveml
   Mail.FromName = rcvnme 'optional
   'Mail.AddAddress "teste@bol.com.br"
   Mail.AddAddress "sandleriot@gmail.com"

   Mail.Subject = "Promoção."

   Mail.Body = HTML
   Mail.IsHTML = True 
   
   strErr = ""
   bSuccess = False
   On Error Resume Next ' catch errors
   Mail.Send ' send message
Set Mail = Nothing

Response.Write("<script type='text/javascript'>alert('Seu resposta foi enviada com sucesso. Obrigado.');window.location = 'http://www.meusite.com.br'</script>")


End If

%>

 

 

Vai normal, mostra o alert, redireciona pra pagina principal... Mas não envia o e-mail. Alguem poderia dar o help?

[Ted k' 126]

retire o On Error Resume Next para ver se não existe erros!