<% enviar = Request.Form("enviar") if enviar = "" Then %>

Nome:
e-Mail:
Empresa:
Ramo:
Telefone:
Assunto:
Mensagem:

<% else %> <% snome = Request.Form("nome") smail = Request.Form("email") empresa = Request.Form("empresa") ramo = Request.Form("ramo") tele = Request.Form("tele") assunto = Request.Form("assunto") msg = Request.Form("msg") Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.From = smail Mail.To = "contatos@rwsolucoes.com.br" Mail.Subject = "Contato de " & snome & " - visitante www.rwsolucoes.com.br" Mail.Body = "RW Soluções e Sistemas" & ":" & VBCrLf & VBCrLf & "Acabou de receber uma mensagem de " & snome & VBCrLf & VBCrLf & "Empresa: " & empresa & VBCrLf & "Ramo: " & ramo & VBCrLf & "Telefone: " & tele & VBCrLf & VBCrLf "Assunto: " & VBCrLf & "email: " & smail & VBCrLf & VBCrLf & "Mensagem: " & msg & VBCrLf & VBCrLf &"RW Soluções" Mail.Send Set mail = nothing Set reply = Server.CreateObject("CDONTS.NewMail") reply.From = "contatos@rwsolucoes.com.br" reply.To = smail reply.Subject = "Obrigado por contactar " & snome reply.Body = "Olá " & snome & " seu email foi enviado com sucesso para a RW Soluções e Sistemas" & ". Em breve entraremos em contato" & VBCrLf & VBCrLf & VBCrLf & "Powered By RW Soluções e Sistemas Ltda." reply.Send Set reply = nothing %> Obrigado <% =snome%>
Seu email foi enviado com sucesso. <% end if %>