<%Dim email,msg
if request("email")<>""then
if len(request("nome")) < 3 then
erro = 1
msg = "Nome incompleto\n"
end if
if len(request("email")) < 3 then
erro = 1
msg = "Email incompleto\n"
end if
if instr(request("email"),"@")= 0 then
erro = 1
msg = "Email inválido\n"
end if
if erro = 0 then
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "192.168.0.3"
Mailer.FromName = "Herplas - Soluções em Plásticos"
Mailer.FromAddress = "herplas@herplas.com.br"
Mailer.AddRecipient "",request("email")
Mailer.ContentType = "text/html"
Mailer.Subject = "Fale conosco"
texto="Agradecemos sua mensagem, em breve um de nossos atendentes entrará em contato."
texto=texto & "
Herplas - Soluções em Plásticos"
Mailer.BodyText = texto
Mailer.SendMail
Set Mailer = Nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "192.168.0.3"
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.AddRecipient "", "herplas@herplas.com.br"
Mailer.ContentType = "text/html"
Mailer.Subject = "Fale Conosco:"
texto1="Nome para contato: " & request("nome")
texto1=texto1 & " Empresa: " & request("empresa")
texto1=texto1 & " DDD/Telefone: " & request("ddd") & "/" & request("fone")
texto1=texto1 & " email: " & request("email")
texto1=texto1 & " Observação: " & request("mensagem")
Mailer.BodyText = texto1
Mailer.SendMail
Set Mailer = Nothing
response.redirect "faleconosco_resp.html"
else
nome = request("nome")
empresa = request("empresa")
ddd = request("ddd")
fone = request("fone")
email = request("email")
mensagem = request("mensagem")
end if
%>
<%
end if
%>
