Marcio Benvenuto de Lima

Oi Amigo, você deveria usar else e não abrir dois if separados, o que está acontecendo é que, você está afirmando algo que está separadamente executando funções diferentes. O seu primeiro if está trabalhando com true e o outro com false.

Você deveria trabalhar com true e depois usar else em um único if.

abraços

O nome do campo de seu formulário era outro amigo, fica com Deus e de uma olhada ai ok. Abraços na alma fica com Deus!

<title>mendessites</title><%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.mendessites.com.br"
Mailer.FromName = request.form("nomecompleto")
Mailer.FromAddress = request.form("email")
Mailer.AddRecipient "Formulário " , "alan@mendessites.com.br"
Mailer.Subject = "Formulario de Cadastro"

Mailer.BodyText = "Nome: " & request.form("nomecompleto") & vbcrlf
Mailer.BodyText = "E-mail: " & request.form("email") & vbcrlf
Mailer.BodyText = "Telefone: " & request.form("telefone") & vbcrlf
Mailer.BodyText = "Estado: " & request.form("estado") & vbcrlf
Mailer.BodyText = "Assunto: " & request.form("assunto") & vbcrlf
Mailer.BodyText = "Comentários: " & request.form("comentários") & vbcrlf

if Mailer.SendMail then
Response.redirect "faleconosco.html"
else
Response.Write mailer.response
end if
%>

caso mande sua função, podemos dar uma ajuda para adaptar ela para isto, mas este ai seria o envio sem a função ok, fica com Deus forte abraço no coração, Paz e luz.

<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTML = objFSO.OpenTextFile( server.MapPath("emails") & "\indique.html", 1, True, 0)
mensagem = objHTML.ReadAll
Set objHTML = Nothing
Set objFSO = Nothing
response.clear
'------------------------------------------------------------------------------------------------------------------------
mensagem = Replace(mensagem, "##nome_loja##", loja("nome_loja"))
mensagem = Replace(mensagem, "##slogan_loja##", loja("slogan_loja"))
mensagem = Replace(mensagem, "##forma_entrega##", tfrete)
mensagem = Replace(mensagem, "##email_loja##", loja("email"))
mensagem = Replace(mensagem, "##endereco_loja##", loja("endereco"))
mensagem = Replace(mensagem, "##cep_loja##", loja("cep"))
mensagem = Replace(mensagem, "##bairro_loja##", loja("bairro"))
mensagem = Replace(mensagem, "##cidade_loja##", loja("cidade"))
mensagem = Replace(mensagem, "##estado_loja##", loja("estado"))
mensagem = Replace(mensagem, "##url_loja##", "http://" & loja("url_loja"))
mensagem = Replace(mensagem, "##NOME##", request.form("txt_nome"))
mensagem = Replace(mensagem, "##NOME_PRODUTO##", request.form("txt_nome_produto"))
mensagem = Replace(mensagem, "##IDPRODUTO##", request.form("txt_produto"))
mensagem = Replace(mensagem, "##NOME_INDICADO##", request.form("txt_destinatario"))
'------------------------------------------------------------------------------------------------------------------------
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.micro...ion/smtpserver") = "smtp servidor(smtp.seusite.com.br)"
objCDOSYSCon.Fields("http://schemas.micro...smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.micro...tion/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.micro...nectiontimeout") = 30
objCDOSYSCon.Fields.update
'------------------------------------------------------------------------------------------------------------------------
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = loja("email")
objCDOSYSMail.To = request.form("txt_email_destinatario")
objCDOSYSMail.Subject = request.form("txt_nome")&" te deixou um recado!"
objCDOSYSMail.HtmlBody = mensagem
objCDOSYSMail.Send
'------------------------------------------------------------------------------------------------------------------------
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>

Olha vim aqui também ajudar os amigos como nosso amigos fez, gostei muito de sua nobre ação. Agora é a minha vez também, como meu amigo colocou o de carros eu estou colocando o de moto, marcas e modelos.

Está em JS, mas está fácil para limpar. Fiquem todos com Deus e espero que ajude também. Forte abraços a todos!

Companheiro estamos por aqui também, E muito obrigado por sua boa vontade, será lembrado por todos e será com muito gosto que vamos ajudar ambém. Meu mail marciobenvneutodelima@hotmail.com amo ASP e outros. Que as luzes do céu iluminem seus caminhos pela eternidade!