<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Untitled Document
BOLETIM
<%on error resume next if (Request.Form("txtRGM") <> "") then sRGM = Formata(Request.Form("txtRGM"), 5)%>
<%if sRGM <> "" then sSQL = "SELECT RGM,NOME,SERIE,TURMA,NUMERO FROM ALUNOS WHERE RGM = '" &sRGM& "'" 'Response.Write sSQL : Response.End() Set Dados = oBD.Execute(sSQL) if dados.eof then Response.Write "Aluno nao encontrado!" else sNome = Dados("NOME") : sSerie = Dados("SERIE") : sTurma = Dados("TURMA") : sNum = Dados("NUMERO") Dados.Close : Set Dados = Nothing SQLSTMT = "SELECT * FROM NOTAS WHERE RGM = '" &sRGM & "'" Set Dados = oBD.Execute(SQLSTMT) If Dados.EOF Then%>

Nenhuma nota encontrada.

<%Else%>

RGM: <%=sRGM%> NOME: <%=sNome%> SÉRIE: <%=sSerie%> TURMA: <%=sTurma%> Nº: <%=sNum%>
<% 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 dim v_resf 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 '-------------------------------------------------------------------------------- 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 v_exame=Dados("exame") Total_Pontos = 0 For N = 1 To 4 Nota(N) = 0 Rec(N) = 0 Media(N) = 0 Next '-------------------------------------- '-------------------------------------- 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 media_mf=Total_Pontos/4 If v_exame>0 then media_mf= ((Total_Pontos/4)+v_exame)/2 if media_mf>5.699 then v_resf="A" Else v_resf="R" Falta(4) = Dados("FALTA04") '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º Bim 2º Bim 3º Bim 4º Bim Total
Pontos
Total
Faltas
Recuper. Média
Final
Resultado
Prova FT Prova FT Prova FT Prova 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)%> <% If Nota(4) = 0 Then Response.Write(" ") Else Response.Write(FormatNumber(Nota(4), 1)) %> <%=FALTA(4)%> <%= FormatNumber(Total_Pontos, 1) %> <%= Total_Faltas %> <%= V_exame %> <%= FormatNumber(arredonda(media_mf), 1) %> <%= V_resf %>



FT = FALTA
Result = A = Aprovado
Result = R = Reprovado
<% end if %>


<%end if end if%> <%if not isEmpty(rs) then rs.Close : set rs = nothing end if oBD.Close : Set oBD = Nothing %>