<% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.addHeader "pragma","no-cache" Response.addHeader "cache-control","private" Response.CacheControl = "no-cache" Session.LCID = 1033 %> <% Call AbreDB Dim strImagem %> <% 'Verifica se existe algum online strSQL = "SELECT count(id) AS Total FROM operadores WHERE DateDiff(""s"", ping, now()) < 10" Set rs = Conexao.execute(strSQL) If rs("Total") = "0" OR isNull(rs("Total")) OR rs("Total") = 0 Then strImagem = strConfigOffline Else strImagem = strConfigOnline End If rs.Close Call FechaDB %>