<%@ LANGUAGE="VBSCRIPT" %> <% response.buffer=true if Request.Form("r_nome") = "" then campo = "Nome" if Request.Form("r_idade") = "" then campo = "Idade" if Request.Form("re_email") = "" then campo = "Email" if Request.Form("r_endereco") = "" then campo = "Endereço" if Request.Form("r_bairro") = "" then campo = "Bairro" if Request.Form("r_cep") = "" then campo = "CEP" if Request.Form("r_cidade") = "" then campo = "Cidade" if Request.Form("r_UF") = "" then campo = "UF" if Request.Form("r_DDD") = "" then campo = "DDD" if Request.Form("r_telefone") = "" then campo = "Telefone" 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 CD" o.MessageText = "Solicitação de CD" + vbCrLf + ""&_ vbCrLf + ""&_ "Nome = " + Request.Form("r_nome") + vbCrLf + ""&_ "Endereço = " + Request.Form("r_endereco") + vbCrLf + ""&_ "Bairro = " + Request.Form("r_bairro") + vbCrLf + ""&_ "CEP = " + Request.Form("r_CEP") + vbCrLf + ""&_ "Cidade = " + Request.Form("r_cidade") + vbCrLf + ""&_ "UF = " + Request.Form("r_UF") + vbCrLf + ""&_ "Empresa = " + Request.Form("_empresa") + vbCrLf + ""&_ "Ramo = " + Request.Form("ramo") + vbCrLf + ""&_ "Aparelho = " + Request.Form("profissional") + vbCrLf + ""&_ "Idade = " + Request.Form("r_idade") + vbCrLf + ""&_ "Tipo de Uso = " + Request.Form("usoident") + vbCrLf + ""&_ "Email = " + Request.Form("re_email") + vbCrLf + ""&_ "DDD = " + Request.Form("r_DDD") + vbCrLf + ""&_ "Telefone = " + Request.Form("r_telefone") + vbCrLf + ""&_ "Revendedor = " + Request.Form("r_venda") + vbCrLf + ""&_ "Comentários = " + Request.Form("r_comenta") + 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 %>