<%dim visitors countfile=server.mappath("visit_count.asp") Set fs = CreateObject ("Scripting.FileSystemObject") Set thisfile = fs.OpenTextFile(countfile) visitors=thisfile.readline thisfile.close for i=1 to len(visitors) Response.Write "document.write("""");" next Set thisfile = fs.CreateTextFile(countfile) thisfile.WriteLine(visitors) thisfile.close set fs=nothing%>