<% dim fs, F, tf on error resume next set fs=server.createobject("scripting.filesystemobject") Set F = fs.OpenTextFile(Server.mappath("count.txt"),1) iCounter = F.ReadAll F.Close iCounter = iCounter+1 Set tf =fs.CreateTextFile(Server.mappath("count.txt"),True) tf.WriteLine(iCounter) tf.Close Response.ContentType="image/gif" Response.write "." %>