2 replies to this topic

[faixa_preta]

vlw pela ajuda brother, seu codigo funcionou filezinho... porém fiz esse calculo direto pelo banco... so que agora pintou uma duvida.. o resultado aparece legal, só que os aprovados
APROVADOS MEDIA >= 7 A COR SERIA AZUL.
PROVA FINAL MEDIA < 7 > 5 COR PRETA
REPROVADO MEDIA > 5 COR VERMELHA..

tentei fazer mais so da erro...

segue o codigo.

<% set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("pecas.mdb") & ";Persist Security Info=False" 
Set rstCarro=Server.CreateObject("ADODB.RecordSet")
rstCarro.Open "Select aluno, nascimento, med1, med2, med3, med4, (med1+med2+med3+med4) /4 AS Media From carro order by aluno", conexao %>
<style type="text/css">
<!--
.style3 {font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; }
-->
</style>


<table width="768" Border="1">
  <TR>
	<TH width="206"><span class="style3">ALUNO</span></TH>
	<TH width="103"><span class="style3">DATA NASC.</span></TH>
	<TH width="88"><span class="style3">MEDIA 1 </span></TH>
	<TH width="94"><span class="style3">MEDIA2</span></TH>
	<TH width="81"><span class="style3">MEDIA 3 </span></TH>
	<TH width="82"><span class="style3">MEDIA 4 </span></TH>
	<TH width="68"><span class="style3">FINAL</span></TH>
  </TR>

<% While Not RstCarro.EOF %>

<%
	   if Media >= 7 then font color = "blue"
	   'Seria aprovado
	   
	   elseif Media = 5 then font color = "black"
	   'Prova final
	   
	   else if Media < 5 then font color = "red"
		'Reprovado
			  
	   end if
		%>

<TR>
<TD> <span class="style3">
  <% = RstCarro("aluno") %> 
  </span></TD><TD><div align="center" class="style3">
	  <% = RstCarro("nascimento") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med1") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med2") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med3") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med4") %>
</div></TD>
<TD><div align="center"><span class="style3">
  <% =RstCarro("Media") %>
 
</span></div></TD>
</TR> 
<%
RstCarro.MoveNext
Wend %>
</table>

se alguem puder me ajudar... atualmente aparece o erro:

Microsoft VBScript compilation error '800a03fa'

Expected 'Wend'

/teste/1/consulta.asp, line 29

else if Media = 5 then font color = "black"

SE ALGUEM PUDER AJUDAR.....

ABRAÇOS.

[siola]

Tenta assim

<%
	   if Media >= 7 then cor = "blue"
	   'Seria aprovado
	  
	   elseif Media = 5 then cor = "black"
	   'Prova final
	  
	   elseif Media < 5 then cor = "red"
		'Reprovado
			  
	   end if
		%>
<TR>
<TD> <span class="style3">
  <% = RstCarro("aluno") %>
  </span></TD><TD><div align="center" class="style3">
	  <% = RstCarro("nascimento") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med1") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med2") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med3") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med4") %>
</div></TD>
<TD><div align="center"><span class="style3">
  <font color="<%=cor%>"><% =RstCarro("Media") %></font>
</span></div></TD>
</TR>
<%
RstCarro.MoveNext
Wend %>
</table>

PS: não havia necessidade de outro tópico ok? Poderia ter postado essa duvida naquele anterior

[]s

[faixa_preta]

Fala Soila, blza???

cara, seguinte.. da forma que vc fez ai, nao funcionou... da o seguinte erro:

Microsoft VBScript compilation  error '800a03fa'

Expected 'Wend'

/teste/1/consulta.asp, line 29

elseif Media = 6 then color ="#000000"

vlw pela força!

rapazeada... dei uma mexida no codigo, e agora parece estar funcionando.... só que as notas >= 7 eram para ser azul. só que ta ficando tudo vermelho (cor do reprovado.)

olha o codigo....

<% While Not RstCarro.EOF%>
	<%
	
	   if Media >= 7 then
	   		'Aprovado
		color = "blue"

	   else
			'Reprovado
		color = "red"
			   
	   end if %>


<TR>
<TD> <span class="style3">
  <% = RstCarro("aluno") %> 
  </span></TD><TD><div align="center" class="style3">
	  <% = RstCarro("nascimento") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med1") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med2") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med3") %>
</div></TD>
<TD><div align="center" class="style3">
	  <% = RstCarro("med4") %>
</div></TD>
<TD><div align="center"><span class="style3">
  <font color="<%=color%>"><% =RstCarro("Media") %> </font>
 
</span></div></TD>
</TR> 
<%
RstCarro.MoveNext
Wend %>
</table>

FUNCIONAR ELE FUNCIONA.. POREM FICA TUDO NA COR VERMELHA...

alguem poderia me dar uma ajudadinha ??

vlw galera!!