<%
Dim SQL_Navegador,RS_Navegador,SQL_Host,RS_Host,SQL_Referencia,RS_Referencia,SQL_Mes,RS_Mes,SQL_Semana,RS_Semana,SQL_Hora,RS_Hora, strSaida
'ATUALIZA A TABELA DE BROWSERS-------------------------
SQL_Navegador = "UPDATE BROWSERS SET ACESSOS=0 WHERE ACESSOS <> 0"
Set RS_Navegador = abredb.Execute(SQL_Navegador)
strSaida = "Tabela Navegador atualizada com sucesso!"
'APAGA TUDO DA TABELA DE HOSTS-------------------------
SQL_Host = "DELETE * FROM HOSTS"
Set RS_Host = abredb.Execute(SQL_Host)
strSaida = strSaida & "Tabela Hosts atualizada com sucesso!"
'APAGA TUDO DA TABELA DE REFERENCIAS-------------------------
SQL_Referencia = "DELETE * FROM REFERENCIAS"
Set RS_Referencia = abredb.Execute(SQL_Referencia)
strSaida = strSaida & "Tabela Referência atualizada com sucesso!"
'ATUALIZA A TABELA DE MESES-------------------------
SQL_Mes = "UPDATE MESES SET ACESSOS=0 WHERE ACESSOS <> 0"
Set RS_Mes = abredb.Execute(SQL_Mes)
strSaida = strSaida & "Tabela Meses atualizada com sucesso!"
'ATUALIZA A TABELA DE SEMANA------------------------
SQL_Semana = "UPDATE SEMANA SET ACESSOS=0 WHERE ACESSOS <> 0"
Set RS_Semana = abredb.Execute(SQL_Semana)
strSaida = strSaida & "Tabela Semana atualizada com sucesso!"
'ATUALIZA A TABELA DE HORA------------------------
SQL_Hora = "UPDATE HORAS SET ACESSOS = 0 WHERE ACESSOS <> 0"
Set RS_Hora = abredb.Execute(SQL_Hora)
strSaida = strSaida & "Tabela Horas atualizada com sucesso!"
'ESCREVE A MENSAGEM DE SAIDA------------------------
strSaida = strSaida & "
Os contadores foram resetados com sucesso!"
strSaida = strSaida & "© Rogério Silva"
response.write strSaida
set SQL_Navegador = nothing
set RS_Navegador = nothing
set SQL_Host = nothing
set RS_Host = nothing
set SQL_Referencia = nothing
set RS_Referencia = nothing
set SQL_Mes = nothing
set RS_Mes = nothing
set SQL_Semana = nothing
set RS_Semana = nothing
set SQL_Hora = nothing
set RS_Hora = nothing
set strSaida = nothing
%>