<% on error resume next ' Creamos el objeto set fso = createobject("scripting.filesystemobject") ' Seteamos el archivo txt set act = fso.opentextfile(server.mappath("asp_count.txt")) ' Leemos el valor del archivo counter = clng(act.readline) ' Sumamos uno a ese valor counter = counter + 1 ' Cerramos el objeto act.close ' Creamos un nuevo archivo de texto Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true) ' Escribimos el nuevo valor del contador act.WriteLine(counter) ' Cerramos el objeto act.Close ' Y decimos la cantidad de visitas Response.Write "Eres el visitante Nº: " & counter %>