Ir para conteúdo

POWERED BY:

Arquivado

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

masterofdreams

tem como fazer isso funcionar

Por , em ASP Clássico

Recommended Posts

masterofdreams    0

masterofdreams
Postado

<% If TotalErro <= 3 Then%><img src="green.gif" width="54" height="62">Estável o Nível de Serviço neste Estado</IMG><% Elseif TotalErro >5 <7 then%><img src="yellow.gif" width="54" height="62"> Favor ficar atento ,pois o Nível apresenta,mais de 3 erros</IMG><% Else%><img src="red.gif" width="54" height="62"> A T EN Ç Ã O - PROBLEMAS</IMG><% End If%></b></font></td></tr><%PO TA DIFICIL... :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

masterofdreams    0

masterofdreams
Postado

O código é este...<html><head><title>CTI - CONTROLE DE TRÁFEGO INTERNO</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#000000" text="#FFFFFF"><center> <p> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="600" height="300"> <param name="movie" value="fireworks.swf"> <param name="quality" value="high"> <embed src="fireworks.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="600" height="300"></embed> </object> </p> <p>  </p></center><table border=0 width="80%" align=center><%Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "DBQ=C:\velox\vulto\vulto.mdb;Driver={Microsoft Access Driver (*.mdb)};"ComandoSQL = "SELECT DISTINCT Estado FROM Sinal"Set bd = Conexao.Execute(ComandoSQL)If Not bd.EOF Then While Not bd.EOF SQL = "SELECT * FROM Sinal Where Estado = '"& bd("Estado") &"';" Set RS = Server.CreateObject("ADODB.RecordSet") Rs.Open SQL,conexao,3,3 If Not RS.EOF Then TotalErro = RS.RecordCount%> <tr> <td align=right valign=top> <font face="Arial" size="2">Estado:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=RS("Estado")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Erro:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><% If TotalErro <= 3 Then%><img src="green.gif" width="54" height="62">Estável o Nível de Serviço neste Estado</IMG><% Elseif TotalErro >3 <10 Then%><img src="yellow.gif" width="54" height="62"> Favor ficar atento ,pois o Nível apresenta,mais de 3 erros</IMG><% Else %><img src="red.gif" width="54" height="62"> A T EN Ç Ã O - PROBLEMAS</IMG><% End If%></b></font></td></tr><% End If Set RS = Nothing BD.MoveNext WendElse%> <font face="Arial" size="2"><b> Estamos com todos os ESTADOS sem previsão de ERROS.</b></font><%End If%></table><br><center><%Conexao.CloseSet bd = NothingSet Conexao = Nothing%></table></body></html>O que eu quero é o seguinte , quando tiverem 3 registros iguais no banco ele vai contar estes tres registros e me amostrar o sinalverde.gifcaso tenha mas de tres registros e menos de 10,ele vai me amostrar o sinalamarelo.gficaso tenho mas de dez ele me amostra o sinalvermelho.gifPo ta fogo...

Compartilhar este post

Link para o post
Compartilhar em outros sites

MrEd    0

MrEd
Postado

Coloque esta linha

<% Elseif TotalErro >5 <7 then%>
deste jeito:

<% Elseif TotalErro > 5  or  TotalErro < 7 then %>

Avisa se funcionou

T+

Eduardo

Compartilhar este post

Link para o post
Compartilhar em outros sites

masterofdreams    0

masterofdreams
Postado

po cara me da uma força - Ja consegui fazer funcionar so que eu preciso,Não é contar todo o banco, do jeito q ta ele conta todo banco de dados na tabela estado...junto com o erro,,o logico é se eu inseri o estado com um erro diferente , ele contar outra vez..entendeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

dimarcinho    0

dimarcinho
Postado

cara, você quer contar ??? usa essa idéia intão:

 

<%rs.Open "SELECT bla bla FROM tabela", conexao, 3, 3rs.MoveFirstcont = 0 'defini um contadorWhile not rs.EOFrs.MoveNextcont = cont + 1'coloca outros codigos....Wend'o cont, ficará com o número de loops, ou seja, qts arkivos serão exibidos!!!%>

[]´s

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