<% If Request.Form("logado") <> "T" Then Banco.Close Response.Redirect("menu.asp?logado=F") Else %> <% RGM = Request.Form("RGM") 'SENHA = Session("SENHA") IP = Request.ServerVariables("REMOTE_ADDR") DATA = DATE HORA = TIME LOCAL = "BOLETIM" SQLSTMT = "SELECT * FROM ALUNOS WHERE RGM = '" &RGM& "'" Set Dados = Banco.Execute(SQLSTMT) 'Set Controle = Banco.Execute("INSERT INTO CONTROLE (IP,DATA,HORA,LOCAL,RGM) VALUES ('"& IP &"','"& DATA &"','"& HORA &"','"& LOCAL &"','"& RGM &"')") 'Set Controle = Nothing %> .: Escola OnLine - <%= NOME_ESCOLA %>:.
 
      
   
<%= NOME_ESCOLA %>
RGM:
Senha:

CGM: <%=Dados("RGM")%> NOME: <%=Dados("NOME")%> SÉRIE: <%=Dados("SERIE")%> TURMA: <%=Dados("TURMA")%> Nº: <%=Dados("NUMERO")%>
<% Dados.Close Set Dados = Nothing SQLSTMT = "SELECT * FROM AlunoEndereço_Site WHERE CódAluno = '" &RGM& "'" Set Dados = Banco.Execute(SQLSTMT) If Dados.EOF Then%>

Os seus dados pessoais não constam no banco de dados!

<%Else%>

Dados de Correspondência

Endereço " size="50" maxlength="50">
Número " size="10" maxlength="10">
Complemento " size="20" maxlength="20">
Bairro " size="30" maxlength="30">
Cidade " size="30" maxlength="30">
Estado " size="2" maxlength="2">
CEP " size="8" maxlength="8">
<%End If%> <% Dados.Close Set Dados = Nothing %> <% SQLSTMT = "SELECT * FROM AlunoSaúde_Site WHERE CódAluno = '" &RGM& "'" Set Dados = Banco.Execute(SQLSTMT) If Not Dados.EOF Then %>

Dados de Saúde

Convênio <% SQLSTMT = "SELECT * FROM Convenio_Site Order By Descrição" Set dadosConvenio = Banco.Execute(SQLSTMT)%>
Tipo de Sangue " size="3" maxlength="3">
Alergia " size="50" maxlength="50">
Orientação Médica
Observações de Saúde
<% End If 'If Not Dados.EOF -> dados da Filiacao%> <% Dados.Close Set Dados = Nothing %> <% SQLSTMT = "SELECT * FROM AlunoFiliação_Site Where CódAluno = '" & RGM & "'" Set dadosFiliacao = Banco.Execute(SQLSTMT) If Not dadosFiliacao.EOF Then %>

Filiação

Nome Pai " size="55" maxlength="55">
Profissão Pai <% SQLSTMT = "SELECT * FROM Profissao_Site Order By Descrição" Set dadosProfissao = Banco.Execute(SQLSTMT)%>
Telefone Pai " size="30" maxlength="30">
Endereço Pai " size="50" maxlength="50">
Email Pai " size="50" maxlength="50">
Nome Mãe " size="55" maxlength="55">
Profissão Mãe <% SQLSTMT = "SELECT * FROM Profissao_Site Order By Descrição" Set dadosProfissao = Banco.Execute(SQLSTMT)%>
Telefone Mãe " size="30" maxlength="30">
Email Mãe " size="50" maxlength="50">
Endereço Mãe " size="50" maxlength="50">
Observações
<% End If 'If Not dadosFiliacao.EOF DadosFiliacao.Close Set DadosFiliacao = Nothing %>

[ Log-Out ]

<%'Dados.Close 'Set Dados = Nothing Banco.Close Set Banco = Nothing%> <% End if %>