Ir para conteúdo

POWERED BY:

Arquivado

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

masterofdreams

po cara me da uma força..

Por , em ASP Clássico

Recommended Posts

masterofdreams    0

masterofdreams
Postado

:blink: EU GOSTARIA DE FAZER O SEGUINTE...EU TENHO ESSE CODIGO..<html><head><title>C.T.I - CONTROLE DE TRÁFEGO INTERNO</title></head><body><center><font face="Arial" size="4"><b>C.T.I - CONTROLE DE TRÁFEGO INTERNO</b></h2></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">Erro:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=TotalErro%></b></font></td></tr> <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><% End If Set RS = Nothing BD.MoveNext WendElse%> <font face="Arial" size="2"><b> Nenhum valor encontrado</b></font><%End If%></table><br><center><%Conexao.CloseSet bd = NothingSet Conexao = Nothing%></table></body></html>E PRECISO FAZER ALGO ASSIMCASO O BANCO TENHA <30 REGISTROS, ELE ME APRESENTA UMA FIGURA1.GIFCASO TENHO >30 ELE ME AMOSTRA FIGURA2.GIFOU ENTAO SE PASSAR DE 50 ELE ME AMOSTRA O FIGURA3.GIFME DA UMA FORÇA VAI....

Compartilhar este post

Link para o post
Compartilhar em outros sites

dimarcinho    0

dimarcinho
Postado 

<%Set RS = CreateObject("ADODB.RecordSet")RS.Open "Select * From Tabela Where blabla = blablabla", conexao, 3, 3x = RS.RecordCountIf x <= 30 Then     img = figura1.gifElseif 30 < x < 50 'nao lembro se precisa colocar Then aki tb!!! testa aí!!! :P     img = figura2.gifElse     img = figura3.gifEnd IfConexao.CloseSet RS = NothingSet Conexao = Nothing%><img src=<%=img%> Sua imagem aki </img>

espero que tenha entendido a idéia !!!!

[]´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