Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
: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....Carregando comentários...