porque emal não chega

[zanelati2002 0]

já tentei diversas vezes mandar mais sem sucesso depois do cadastro mandar o login e senha para o cara mais no email não chega o que ha de errado não da nenum erro mais não chega. olhem o codigo.

 

<!--#include file="conectar_db.asp"--><% AbreConexaoIf request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT login FROM user WHERE login = '"&Request.form("login")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Login já cadastrado!"i= i+1end ifSql = "SELECT email FROM user WHERE email = '"&Request.form("email")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Email já cadastrado!"i= i+1end ifSql = "SELECT site FROM user WHERE site = '"&Request.form("site")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Site já cadastrado!"i= i+1end ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.Write "<b><center><font face=verdana font color=#008080 size=1>"Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<br><br><br><br>"for i = 0 to Dicionario.Count - 1Response.Write vet(i) & "<br><br>"nextresponse.write "<br><br>"    ElseSql = "INSERT INTO user (login, senha, email, data, hora, site) "Sql = Sql & "VALUES('" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("email")  & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "','"&Time()&"',  '" & Request.Form("site") & "')" Conexao.Execute(Sql)Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then Set ObjMail = Server.CreateObject("Cdonts.Newmail")sCorpo = "Olá " & login & "!"  & vbcrlf & vbcrlfsCorpo = sCorpo & "Obrigado por se cadastrar no Sitema de Login." & vbcrlf & vbcrlfsCorpo = sCorpo & "Seguem seus dados" & vbcrlf & vbcrlfsCorpo = sCorpo & "Login: "& login &"<br>Senha: "& senha &"<br><br>"ObjMail.Subject = "Seus dados do Cadastro"ObjMail.From = "sitedozanelati@ig.com.br"ObjMail.To = emailObjMail.Importance = 1ObjMail.BodyFormat=0ObjMail.MailFormat=0ObjMail.Body = scorpoObjMail.SendSet objMail = NothingElse %><% End If %>

[Mário Monteiro 179]

antes de mandar o email(ObjMail.Send) escreve na tela o scorpo só pra ver se pelo menso ta chegando ai