Marcação de consulta  
Para marcação de consulta no GOTA, você deve ligar para:
(21)2507-0065

ATENÇÃO: Informamos que, no momento, estamos dando prosseguimento ao atendimento dos pacientes já incluídos na lista de espera do GOTA. No próximo ano voltaremos a receber novas inscrições para tratamento.


<% lc_botao = Request.Form("botao") If lc_botao <> "" Then lc_nome = Trim(Request.Form("nome")) lc_sexo = Trim(Request.Form("sexo")) lc_data_nascimento = Trim(Request.Form("data_nascimento")) lc_profissao = Trim(Request.Form("profissao")) lc_email = Trim(Request.Form("email")) lc_rua = Trim(Request.Form("rua")) lc_estado = Trim(Request.Form("estado")) lc_bairro = Trim(Request.Form("bairro")) lc_cidade = Trim(Request.Form("cidade")) lc_cep = Trim(Request.Form("cep")) lc_telefones = Trim(Request.Form("telefones")) lc_fax = Trim(Request.Form("fax")) lc_celular = Trim(Request.Form("celular")) lc_instituicao = Trim(Request.Form("instituicao")) lc_corpo = "Formulário de interessados em tratamento

"&_ "Data => "&date()&"
"&_ "Hora => "&time()&"

"&_ "Nome => "&lc_nome&"
"&_ "Sexo => "&lc_sexo&"
"&_ "Data de nascimento => "&lc_data_nascimento&"
"&_ "Profissão => "&lc_profissao&"
"&_ "E-mail => "&lc_email&"
"&_ "Rua => "&lc_rua&"
"&_ "Bairro => "&lc_bairro&"
"&_ "Cidade => "&lc_cidade&"
"&_ "Cep => "&lc_cep&"
"&_ "Telefone => "&lc_telefones&"
"&_ "Fax => "&lc_fax&"
"&_ "Celular => "&lc_celular&"

"&_ "Instituição => "&lc_instituicao&"
" Dim Mail On Error Resume Next Set Mail = Server.CreateObject("Persits.MailSender") Mail.IsHTML = True Mail.Port = 25 Mail.Username = "gota@gota.org.br" Mail.Password = "gota0961" Mail.Host = "mail.gota.org.br" Mail.From = "gota@gota.org.br" Mail.AddAddress "gota@gota.org.br" Mail.AddBcc "monica@duchesne.com.br" Mail.AddBcc "adriana.gota@yahoo.com.br" Mail.Subject = "GOTA - Consulta ("&date()&" "&time()&")" Mail.Body = lc_corpo Mail.Send mensagem_erro = "" If Err <> 0 Then lc_mensagem = " 

Ocorreu o seguinte erro durante o envio do e-mail: " & Err.description &"

 

 

" Else lc_mensagem = " 

Seus dados foram enviados com sucesso !

 

 

" End If Set Mail = Nothing On Error GoTo 0 End If If lc_mensagem <> "" Then response.Write(lc_mensagem) Else %>

  Se você deseja ser informado regularmente sobre os programas de tratamento que o GOTA oferece, por favor preencha o cadastro abaixo.
  O GOTA é um serviço terciário e recebe muitas solicitações de tratamento. O preenchimento do cadastro não garante o atendimento.

  Os campos assinalados com(*)são de preenchimento obrigatório.

Dados cadastrais
* Nome completo:
* Sexo:
* Data de nascimento:
ex: 01/01/2008
* Profissão:

Se você é estudante, deve especificar sua área de estudo.
* E-mail :

Preencha com atenção o campo acima porque vários eventos organizados pelo GOTA são divulgados por e-mail.
Rua ou avenida:
Bairro:
Cidade:
CEP:
Telefone:
Fax :
Celular:
Instituição em que trabalha ou estuda:
<% End If %>