<% 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 %>
RGM:
Senha:

CGM: <%=Dados("RGM")%> NOME: <%=Dados("NOME")%> SÉRIE: <%=Dados("SERIE")%> TURMA: <%=Dados("TURMA")%> Nº: <%=Dados("NUMERO")%>
<% if Dados("SERIE") = "JD" then curso="EI" if Dados("SERIE") = "P1" then curso="EI" if Dados("SERIE") = "P2" then curso="EI" if Dados("SERIE") = "1A" then curso="F1" if Dados("SERIE") = "2A" then curso="F1" if Dados("SERIE") = "3A" then curso="F1" if Dados("SERIE") = "4A" then curso="F1" if Dados("SERIE") = "5A" then curso="F2" if Dados("SERIE") = "6A" then curso="F2" if Dados("SERIE") = "7A" then curso="F2" if Dados("SERIE") = "8A" then curso="F2" if Dados("SERIE") = "9A" then curso="EM" if Dados("SERIE") = "1C" then curso="EM" if Dados("SERIE") = "2C" then curso="EM" if Dados("SERIE") = "3C" then curso="EM" 'sSQL = "Select File,Descri from Downloads where ativo=1 and curso='" & Curso & "' order by data desc" 'response.write SQLSTMT 'call AbreRS(sSQL) 'If rs.EOF Then Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder( server.MapPath("download\" & left(Dados("SERIE"),1) & "ano") ) 'Response.Write(server.MapPath("download\" & left(Dados("SERIE"),1) & "ano")) Set colFiles = oFolder.Files %>

<%For Each oFile in colFiles if left(oFile.name, 5) = CStr(Dados("RGM")) then%> <%End If Next FechaBD(oBD)%>
Arquivo
<%'End If %>

[ Log-Out ]

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