% 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 %>
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!