Ricardo_Jackow

aí Pessoal, eu pegeui o código e dei uma adaptada nele para meu formula´rio, mas os e-mails não estão chegando, alguém pode me ajudar?

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

Set Mailer = Server.CreateObject("CDONTS.NewMail")

Mailer.From = email1
Mailer.To = "amorosa@amorosa.com.br"
Mailer.Subject = "ASSINATURA DO SITE"
Mailer.Send
response.redirect "http://www.amorosa.c...irma_envio.asp"

Mailer.BodyText = "FORMULÁRIO DE CADASTRO AMOROSA.COM.BR"
Mailer.BodyText = " "
Mailer.BodyText = "Nome: " & Request.QueryString("nome") &""
Mailer.BodyText = "E-mail: " & Request.QueryString("email1") &""
Mailer.BodyText = "Conf.: " & Request.QueryString("email2") &""
Mailer.BodyText = "Sexo: " & Request.QueryString("sexo") &""
Mailer.BodyText = "Dia: " & Request.QueryString("dia_nasc") &""
Mailer.BodyText = "Mes: " & Request.QueryString("mes_nasc") &""
Mailer.BodyText = "Ano : " & Request.QueryString("ano_nasc") &""
Mailer.BodyText = "Cidade : " & Request.QueryString("cidade") &""
Mailer.BodyText = "UF : " & Request.QueryString("uf") &""
Mailer.BodyText = "Plano : " & Request.QueryString("plano") &""
Mailer.BodyText = "Username : " & Request.QueryString("username") &""
Mailer.BodyText = "Password : " & Request.QueryString("password") &""
Mailer.BodyText = "C. Pass: " & Request.QueryString("confpassword") &""
Mailer.BodyText = "News: " & Request.QueryString("news") &""


if not Mailer.SendMail then
Response.Write " O correu um erro...: <br>"
Response.Write Mailer.Response
else
Response.Redirect "http://www.amorosa.c...irma_envio.asp"
end if
Response.Write "This component expires: " & Mailer.Expires & "<p>"
%>