<% '***************************************************** On Error resume Next Set FileObject = server.CreateObject("Scripting.FileSystemObject") Hitfile = Server.MapPath("hits.txt") Set instream = FileObject.OpenTextFile(Hitfile,1,false) OldHits = trim(instream.ReadLine) Newhits = OldHits + 1 set outstream = fileobject.CreateTextFile(Hitfile,true) outstream.WriteLine(Newhits) Dim digit digit = Array(0,0,0,0,0,0,0,0,0) zero = 5-Len(Newhits) For i=1 To Len(Newhits) digit(zero + i) = Mid(Newhits, i, 1) Next For i=1 To 5 Response.Write("document.write('');") Next %>