<%@ LANGUAGE="VBSCRIPT" %> <% response.buffer=true if Request.Form("r_nome") = "" then campo = "Nome" if campo <> "" then call vazio set o = Server.CreateObject("ADISCON.SimpleMail.1") o.MailServer = "smtp.sili.com.br" o.Sender =request.form("r_email") o.Recipient = "binasoft@binasoft.com.br" o.Subject = "Colégio Anchieta" o.MessageText = "Solicitação de CD" + vbCrLf + ""&_ vbCrLf + ""&_ "Nome de Guerra = " + Request.Form("r_guerra") + vbCrLf + ""&_ "Nome = " + Request.Form("r_nome") + vbCrLf + ""&_ "Endereço = " + Request.Form("r_endereco") + vbCrLf + ""&_ "Bairro = " + Request.Form("r_bairro") + vbCrLf + ""&_ "Cidade = " + Request.Form("r_cidade") + vbCrLf + ""&_ "Estado = " + Request.Form("r_estado") + vbCrLf + ""&_ "CEP = " + Request.Form("r_cep") + vbCrLf + ""&_ "Email = " + Request.Form("r_email") + vbCrLf + ""&_ "Site = " + Request.Form("r_site") + vbCrLf + ""&_ "Nascimento = " + Request.Form("r_nascimento") + vbCrLf + ""&_ "Fone Res = " + Request.Form("r_fone1") + vbCrLf + ""&_ "Fone Com = " + Request.Form("r_fone2") + vbCrLf + ""&_ "Fone Cel = " + Request.Form("r_fone3") + vbCrLf + ""&_ "Ano de Form. = " + Request.Form("r_ano") + vbCrLf + ""&_ "Participação = " + Request.Form("r_estudo") + vbCrLf + ""&_ "Comentarios = " + Request.Form("textarea") + 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 %>