<% @Language="JavaScript" %> <% Dim images(20) Set FileObject=Server.CreateObject("Scripting.FileSystemObject") CountFile=Server.MapPath("counter.txt") Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counter=Out.ReadLine Out.Close SET FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) Application.lock counter= counter + 1 Out.WriteLine(counter) Application.unlock countlen=len(counter) for i=1 to countlen images(i)="" response.write ("document.write('"&images(i)&"');") next Out.Close %>