<%@ LANGUAGE="VBSCRIPT" %> <% response.buffer=true if Request.Form("r_assunto") = "" then campo = "Assunto" if Request.Form("r_nome") = "" then campo = "Nome" if Request.Form("r_telefone") = "" then campo = "Telefone" if Request.Form("re_email") = "" then campo = "Email" if Request.Form("r_mensagem") = "" then campo = "Mensagem" if campo <> "" then call vazio set o = Server.CreateObject("ADISCON.SimpleMail.1") o.MailServer = "smtp.sili.com.br" o.Sender =request.form("re_email") o.Recipient = "binasoft@binasoft.com.br" o.Subject = "Solicitação de Contato" o.MessageText = "Email via WEB" + vbCrLf + ""&_ vbCrLf + ""&_ "Assunto = " + Request.Form("r_assunto") + vbCrLf + ""&_ "Nome = " + Request.Form("r_nome") + vbCrLf + ""&_ "Telefone = " + Request.Form("r_telefone") + vbCrLf + ""&_ "Email = " + Request.Form("re_email") + vbCrLf + ""&_ "Mensagem = " + Request.Form("r_mensagem") + vbCrLf + ""&_ vbCrLf + ""&_ "IP do remetente = " + ucase(Request.ServerVariables("Remote_ADDR")) call o.Send Set o = Nothing response.redirect "obrigado.html" %> <%sub vazio%> Todos os campos devem ser preenchidos

Por favor, clique em voltar e complete o campo <%=campo%> . <%response.end end sub %>