<% Set FSO = Server.CreateObject("Scripting.FileSystemObject") //Aqui criamos um arquivo .txt com o nome de contador que será o arquivo em que importaremos para o Flash origem = Server.MapPath("contador.txt") Set contador = FSO.CreateTextFile(origem,true) //Criamos uma pequena aplicação para fazer a contagem de acessos da página Application.lock Application("visitas") = Application("visitas") + 1 visitas = Application("visitas") Application.Unlock //E por último gravamos o nosso valor de "visitas" no nosso arquivo .txt contador.write "contador=" & visitas contador.close %>