<% 'On error Resume Next%> <% If Request.Form("logado") <> "T" Then Banco.Close Response.Redirect("menu.asp?logado=F") Else 'Session.LCID = 1046 %> <% RGM = Request.Form("RGM") 'RGM = "01554" '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) strSerie = Dados("SERIE") strTurma = Dados("TURMA") 'If (Dados("SERIE") = "MM") Or (Dados("SERIE") = "1E") Or (Dados("SERIE") = "2E") Or (Dados("SERIE") = "3E") Then ' booPrimario = True ' Else ' booPrimario = False 'End If '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")%>
<%SQLSTMT = "SELECT * FROM notAS WHERE RGM = '" &RGM& "'" SQLSTMT = "SELECT M.*,MED.MED1,MED.MED2,MED.MED3,MED.MED4 FROM NOTAS M,MED_TURMA MED,ALUNOS A WHERE A.RGM = '" &RGM & "' " & _ "And M.RGM=A.RGM And MED.SERIE = A.Serie And MED.Turma = A.Turma and Med.disciplina=M.disciplina" Set Dados = Banco.Execute(SQLSTMT) If Dados.EOF Then%>

Aguarde Publicações!

<%Else%>

<% Dim Nota(5) Dim Trab(5) 'Trabalho Dim Comp(5) 'Comportamento Dim Falta(5) Dim Ponto(5) Dim Rec(5) Dim Media(5) 'Média Trimestral Dim Precal(5) Dim Exame Function ARREDONDA(NOTA) ' VAR VOLTA,X,Y:REAL; ' BEGIN ' {NOTA:=NOTA+0.25;} 'NOTA = CSng(Replace(NOTA, ",", ".")) NOTA = CSng(NOTA) X = NOTA - Int(NOTA) Y = 0 IF (X>=0.10) AND (X<=0.2499) THEN Y=0 IF (X>=0.25) AND (X<=0.4999) THEN Y=0.5 IF (X>=0.50) AND (X<=0.7499) THEN Y=0.5 IF (X>=0.75) AND (X<=0.9999) THEN NOTA = NOTA + 1 Y = 0 END IF VOLTA = Int(NOTA) + y Arredonda=VOLTA End Function ';{FIM DA FUNC. A '--------------------------------------------------------------- Function fcalcbim(pser,paval,Pprov,ptrab,pcomp,prec,precal) 'var total,total1,total2,total3,total4,vprov,vtrab,vcomp,vrec:real; 'begin total=0 total1=0 total2=0 total3=0 total4=0 'vprov=CSng(Replace(pprov,",",".")) ' except vprov:=0 end; vprov=CSng(pprov) 'vtrab=CSng(Replace(ptrab,",",".")) 'except vtrab:=0 end; vtrab=CSng(ptrab) 'vcomp=CSng(Replace(pcomp,",",".")) 'except vcomp:=0 end; vcomp=CSng(pcomp) 'vrec=CSng(Replace(prec,",",".")) 'except vrec:=0 end; vrec=CSng(prec) precal = CSng(precal) if vprov=0.1 then vprov=0 if vtrab=0.1 then vtrab=0 if vcomp=0.1 then vcomp=0 if vrec=0.1 then vrec=0 if (pser="1S") or (pser="2S") or _ (pser="3S") or (pser="4S") or (pser="5S") then total1=vprov total=total1 end if if (pser="6S") or (pser="7S") then if (vrec>vprov) then vprov=vrec if (vrec>6) then vprov=6 total2=((vprov*4)+(vtrab*3)+(vcomp*3))/10 if paval="N" then total2=(vtrab+vcomp)/2 total=arredonda(total2) end if if (pser="8S") or (pser="9S") then if (vrec>vprov) then vprov=vrec if (vrec>6) then vprov=6 total3=((vprov*5)+(vtrab*3)+(vcomp*2))/10 if paval="N" then total3=(vtrab+vcomp)/2 total=arredonda(total3) end if if (pser="1C") or (pser="2C") or (pser="3C") then 'Response.Write("entrou aki
") if vrec=0 then total4=(vprov+vtrab)/2 if paval="N" then total4=(vtrab+vcomp)/2 'Response.Write("Vtrab: " & vtrab & " - VComp: " & vcomp & " - Total4: " & total4 & "
") total=arredonda(total4) if vcomp > 0 then total = vcomp end if 'if precal > 0 then total = precal if (total > 0) then fcalcbim = total 'formatfloat('#0.0',total) else result:='-'; end function '-------------------------------------------------------------------------------- Do While not Dados.EOF 'response.write(strSerie) ' If Nota(1) > 0 OR Nota(2) > 0 OR Nota(3) > 0 OR Nota(4) > 0 then Total_Pontos = 0 For N = 1 To 4 Nota(N) = 0 Rec(N) = 0 Media(N) = 0 Next '-------------------------------------- if not IsNull(Dados("MED1")) then Media(1) = Dados("MED1") end if if not IsNull(Dados("MED2")) then Media(2) = Dados("MED2") end if if not IsNull(Dados("MED3")) then Media(3) = Dados("MED3") end if if not IsNull(Dados("MED4")) then Media(4) = Dados("MED4") end if '-------------------------------------- If Not IsNull(Dados("NOTA01")) Then 'If IsNumeric(Replace(Dados("NOTA01"), ",", ".")) Then If IsNumeric(Dados("NOTA01")) Then 'Response.Write("é número") : Response.End() Nota(1) = Dados("NOTA01") 'Response.Write (Nota(1)*1) End If End If '-------------------------------------- If Not IsNull(Dados("NOTA02")) Then 'If IsNumeric(Replace(Dados("NOTA01"), ",", ".")) Then If IsNumeric(Dados("NOTA02")) Then 'Response.Write("é número") : Response.End() Nota(2) = Dados("NOTA02") 'Response.Write (Nota(1)*1) End If End If '-------------------------------------- If Not IsNull(Dados("NOTA03")) Then 'If IsNumeric(Replace(Dados("NOTA01"), ",", ".")) Then If IsNumeric(Dados("NOTA03")) Then 'Response.Write("é número") : Response.End() Nota(3) = Dados("NOTA03") 'Response.Write (Nota(1)*2) End If End If '------------------------------------- If Not IsNull(Dados("NOTA04")) Then 'If IsNumeric(Replace(Dados("NOTA01"), ",", ".")) Then If IsNumeric(Dados("NOTA04")) Then 'Response.Write("é número") : Response.End() Nota(4) = Dados("NOTA04") 'Response.Write (Nota(1)*2) End If End If '------------------------------------- '------------------------------------- If IsNumeric(Dados("FALTA01")) then Falta(1) = Dados("FALTA01") else Falta(1) = 0 end if If IsNumeric(Dados("FALTA02")) then Falta(2) = Dados("FALTA02") else Falta(2) = 0 end if If IsNumeric(Dados("FALTA03")) then Falta(3) = Dados("FALTA03") else Falta(3) = 0 end if If IsNumeric(Dados("FALTA04")) then Falta(4) = Dados("FALTA04") else Falta(4) = 0 end if 'Ponto(1) = Dados("PONTOS1") 'Ponto(2) = Dados("PONTOS2") 'Ponto(3) = Dados("PONTOS3") 'Ponto(4) = Dados("PONTOS4") For N = 1 To 4 Total_Pontos = Total_Pontos + Nota(N) Next 'Total_Pontos = FormatNumber(Total_Pontos,1) 'if Total_Pontos = 0 then Total_Pontos = " " 'If Dados("disciplinA") = "EDUCAÇÃO FÍSICA" And (Total_Pontos >= 99) Then ' Total_Pontos = "Apto" 'End If 'Ponto(1)+Ponto(2)+Ponto(3)+Ponto(4) Total_Faltas = Falta(1)+Falta(2)+Falta(3)+Falta(4) If Total_Faltas = 0 Then Total_Faltas = " " PegaNotas1 = PegaNotas1 & Nota(1) & ";" PegaNotas2 = PegaNotas2 & Nota(2) & ";" PegaNotas3 = PegaNotas3 & Nota(3) & ";" PegaNotas4 = PegaNotas4 & Nota(4) & ";" PegaMedTur1 = PegaMedTur1 & Media(1) & ";" PegaMedTur2 = PegaMedTur2 & Media(2) & ";" PegaMedTur3 = PegaMedTur3 & Media(3) & ";" PegaMedTur4 = PegaMedTur4 & Media(4) & ";" PegaDiscips = PegaDiscips & Dados("disciplinA") & ";" 'For N = 1 To 3 'If (Nota(N) = Empty) Or (IsNull(Nota(N))) Then 'Nota(N) = " " 'End If 'If (Falta(N) = Empty) Or (IsNull(Falta(N))) Then 'Falta(N) = " " 'End If 'If Left(Nota(N),2) = "99" Then 'Response.Write("nota -99
") ' Nota(N) = "Apto" 'End If 'Next 'For N = 1 To 4 ' If Nota(N) <> "Apto" Then 'Response.Write(Nota(N)) ' Nota(N) = Replace(Nota(N), ",", ".") 'Response.Write(Nota(N)) ' Response.Write(IsNumeric(Nota(N))) ' Nota(N) = CSng(Nota(N)) ' If Nota(N) < 6 Then ' Response.Write("nota negativa!
") ' End If ' End If 'Next %> <%Dados.Movenext Loop%>

Disciplinas

1º Trim 2ºTrim 3º Trim Total
Pontos
Total
Faltas
Conselho
Classe
Média
Final
Resultado
Media FT Media FT Media FT
<%=Dados("disciplinA")%> <% If Nota(1) = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(Nota(1), 1)) %> <%=FALTA(1)%> <% If Nota(2) = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(Nota(2), 1)) %> <%=FALTA(2)%> <% If Nota(3) = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(Nota(3), 1)) %> <%=FALTA(3)%> <%= FormatNumber(Total_Pontos, 1) %> <%= Total_Faltas %>      


<%For N = 1 To 3 if N = 1 then sLink = "Notas=" & Mid(PegaNotas1,1,Len(PegaNotas1)-1) & "&Discip=" & Mid(PegaDiscips,1,Len(PegaDiscips)-1) & "&MedTur=" & Mid(PegaMedTur1,1,Len(PegaMedTur1)-1) if N = 2 then sLink = "Notas=" & Mid(PegaNotas2,1,Len(PegaNotas2)-1) & "&Discip=" & Mid(PegaDiscips,1,Len(PegaDiscips)-1) & "&MedTur=" & Mid(PegaMedTur2,1,Len(PegaMedTur2)-1) if N = 3 then sLink = "Notas=" & Mid(PegaNotas3,1,Len(PegaNotas3)-1) & "&Discip=" & Mid(PegaDiscips,1,Len(PegaDiscips)-1) & "&MedTur=" & Mid(PegaMedTur3,1,Len(PegaMedTur3)-1) if N = 4 then sLink = "Notas=" & Mid(PegaNotas4,1,Len(PegaNotas4)-1) & "&Discip=" & Mid(PegaDiscips,1,Len(PegaDiscips)-1) & "&MedTur=" & Mid(PegaMedTur4,1,Len(PegaMedTur4)-1) 'Response.Write sLink %>

<%Next%>
FT = FALTA
Result = A = Aprovado
Result = R = Reprovado <%End If%>


[ Log-Out ] [ ]

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