<% Sub contador(arq,pg) Dim objFSO, objArquivo, arquivo, visitas arquivo = Server.MapPath(arq) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Lê o conteúdo do arquivo e o armazena na variável visitas Set objArquivo = objFSO.OpenTextFile(arquivo, 1) visitas = objArquivo.Read(10) objArquivo.Close Set objArquivo = Nothing 'verifica se a visita já foi contada ou não If Session("status"&pg) <> Request.ServerVariables("Script_Name") Then visitas = visitas + 1 'como os zeros à esquerda são retirados do valor, vamos adicioná-los novamente visitas = String((5 - Len(visitas)), "0") & visitas 'Grava o resultado de volta no arquivo de texto Set objArquivo = objFSO.OpenTextFile(arquivo, 2) objArquivo.Write(visitas) objArquivo.Close Set objArquivo = Nothing Session("status"&pg) = Request.ServerVariables("Script_Name") End If 'Destruindo o objeto FileSystemObject Set objFSO = Nothing 'mostrando o resultado na página HTML com imagens Dim cont, nomeArquivo For cont = 1 to Len(visitas) nomeArquivo = Mid(visitas, cont,1) & ".gif" Response.Write "" Next End Sub %>