% 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)
vserie= dados("serie")
'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")%>
<%SQLSTMT = "SELECT * FROM EDUC WHERE SERIE = '"&vserie&"' ORDER BY DiSCIPLINA"
Set Dados = Banco.Execute(SQLSTMT)
If Dados.EOF Then%>
Nenhum
registro encontrado!
<% Else %>
COD
TEMA
DISCIPLINA
VER
<%Do While not Dados.EOF%>
<%vcaminho =dados("caminho2")%>