Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

claytonprog

Calcular Campos

Por , em ASP Clássico

Recommended Posts

claytonprog    0

claytonprog
Postado

Pessoal ! preciso fazer uns cálculos com alguns camnpos e não estou conseguindo.É o seguinte tenho um banco de dados com as notas dos alunos.Preciso listar os alunos e somar as notas do 1º,2º,3º e 4º Bimestre e depois calcular a média.aqui está o codigo:<HTML><HEAD> <TITLE>Teste</TITLE><META NAME="Generator" CONTENT="Microsoft FrontPage 5.0"></HEAD><BODY><div align="center"> <center><table width="80%" bordercolor="#303842" cellspacing="1" bordercolorlight="#303842" bordercolordark="#303842"> <tr> <td bgcolor="#FF6600" align="center" colspan="6"><b><font face="Tahoma"> BOLETIM ON-LINE</font></b></td> <tr bgcolor="FF6600" > <td align=center> <font color="white">Aluno</font></td> <td align=center> <font color="white">1º Bimestre</font></td> <td align=center> <font color="white">2º Bimestre</font></td> <td align=center> <font color="white">3º Bimestre</font></td> <td align=center> <font color="white">4º Bimestre</font></td> <td align=center> <font color="white">Média</font></td> </tr> <tr align="center" bgcolor="#dddddd"> <% set conexao = server.createobject("ADODB.Connection") conexao.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Notas2.mdb") strSQL ="SELECT * FROM Notas order by Codigo_Aluno_ID " Set rsSQL = conexao.Execute(strSQL) dim nota1,nota2,nota3,nota4,resultado nota1= rsSQL("Nota_1") nota2= rsSQL("Nota_2") nota3= rsSQL("Nota_3") nota4= rsSQL("Nota_4") cor = "#eeeeee" while not rsSQL.EOF if cor = "#eeeeee" then cor = "#ffffff" else cor = "#eeeeee" end if %> <tr bgcolor="<%= cor %>"> <td align=center bgcolor="#FFFFE6"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rsSQL("Codigo_Aluno_ID")%></td></font></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rsSQL("Nota_1")%></td></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rsSQL("Nota_2")%></td></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rsSQL("Nota_3")%></td></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rsSQL("Nota_4")%></td></font></div></td> <td bgcolor="#FFFFE6"> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(Nota1+nota2+nota3+nota4)/4%></td></font></div></td> <td bgcolor="#FFFFE6"> <% rsSQL.MoveNextwend%></table> </center></div></BODY></HTML>Tá listando as notas porém o campo média tá saindo tudo com nota 6,25

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

issonota1= rsSQL("Nota_1")nota2= rsSQL("Nota_2")nota3= rsSQL("Nota_3")nota4= rsSQL("Nota_4") tem de ficar dentro do loop while

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito