<% ' ------------------------------Envia formulário---------------------------------- if request.Form("envia") = "envia" then string_txt = "Nome: "&request.Form("nome")&"
" string_txt = string_txt &"E-mail: "&request.Form("e-mail")&"
" string_txt = string_txt &"Data de Nascimento: "&request.Form("nascimento")&"
" string_txt = string_txt &"Telefone: "&request.Form("telefone")&"
" string_txt = string_txt &"Celular: "&request.Form("celular")&"
" string_txt = string_txt &"Endereço: "&request.Form("endereco")&" - "&request.Form("numero")&" - "&request.Form("complemento")&"
" string_txt = string_txt &"Bairro: "&request.Form("bairro")&"
" string_txt = string_txt &"Cidade: "&request.Form("cidade")&"
" string_txt = string_txt &"Estado: "&request.Form("estado")&"
" string_txt = string_txt &"País: "&request.Form("pais")&"
" string_txt = string_txt &"Profissão Especial: "&request.Form("profissao")&"- "&request.Form("diagnostico")&"

" string_txt = string_txt &"Familiaridade com um especial: "&request.Form("familiaridade")&"- "&request.Form("parentesco")&"
" string_txt = string_txt &"Diagnóstico do parentesco: "&request.Form("diagnostico2")&"
" string_txt = string_txt &"Mensagem: "&request.Form("mensagem")&"
" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") 'O nome do remetente Mailer.FromName = request.Form("nome") ' Email do remetente Mailer.FromAddress= request.Form("e-mail") Mailer.RemoteHost = "smtp2.locaweb.com.br" 'destinatário Mailer.AddRecipient "contato@aventuraespecial.org.br", "contato@aventuraespecial.org.br" Mailer.ContentType = "text/html" ' formatação html Mailer.Subject = "Cadastro através do site" Mailer.BodyText = string_txt If Mailer.SendMail Then Response.Redirect "http://www.aventuraespecial.com.br/telas/cadastro_ok.asp" Else Response.Write "Erro " & Mailer.Response End If Set Mailer = nothing end if ' ------------------------------Envia formulário fim---------------------------------- %> Documento sem título
 
Nome
E-mail
Data de Nascimento
Telefone
   Celular
Endereço
Número Compl Bairro
Cidade
Estado
 País
Profissão Especial? sim não - Diagnóstico?
   
  Familiaridade com um especial
  nenhuma conhecido amigo
  parentesco
  Diagnóstico
Mensagem