AspEmail

[sublyer 0]

BOm o problema é que o aspemail não manda o email

 

olhe o script

 

 ' change to address of your own SMTP serverstrHost = "smtp.servidor.com.br"If Request("Send") <> "" Then   Set Mail = Server.CreateObject("Persits.MailSender")   ' enter valid SMTP host   Mail.Host = strHost   Mail.From = Request.form("email") ' From address   Mail.FromName = Request.form("nome") optional   Mail.AddAddress = Request.form("email_destinatario")   ' message subject   Mail.Subject = Request.form("titulo")   ' message body   Mail.Body = Request.form("noticia")   strErr = ""   bSuccess = False   On Error Resume Next ' catch errors   Mail.Send ' send message   If Err <> 0 Then ' error occurred      strErr = Err.Description   else      bSuccess = True         End IfEnd If   Response.Write " Mensagem enviada"%>

[dark0 0]

Brother !!O que acontece ao rodar o codigo?Dá mensagem de erro?Nao acontece nada?Lendo seu codigo, você esta pegando os dados de um formulario, né?Pode postar o codigo do HTML pra mim ver como ele está?Abraços,Dark0!

[lizardbr 0]

as vezes seu server nao suporta o aspmail