<%Server.ScriptTimeout=300 id=Trim(Request.QueryString("id")) fc=Trim(Request.QueryString("fc")) if fc="" then fc="FFFF00" bg=Trim(Request.QueryString("bg")) if bg="" then bg="000000" bc=Trim(Request.QueryString("bc")) if bc="" then bc="00FF00" sername=Request.ServerVariables("SERVER_NAME") scrname=Request.ServerVariables("SCRIPT_NAME") linkurl="http://" & sername & scrname %> Try <% countfile=server.mappath("people.asp") Set fs=CreateObject("Scripting.FileSystemObject") n=Year(date()) y=Month(date()) r=Day(date()) s=Hour(time()) f=Minute(time()) m=Second(time()) if len(y)=1 then y="0" & y if len(r)=1 then r="0" & r if len(s)=1 then s="0" & s if len(f)=1 then f="0" & f if len(m)=1 then m="0" & m sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m dim ly() Set thisfile=fs.OpenTextFile(countfile,1,False) countly=0 do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve ly(countly) ly(countly) = thisline countly = countly + 1 loop thisfile.close sameip=0 for i=1 to (countly-1)/2 if DateDiff("s",ly(i*2),sj)>60 then ly(i*2-1)="" ly(i*2)="" countly=countly-2 end if if Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) then sameip=1 ly(i*2)=sj end if next set outfile=fs.CreateTextFile(countfile) for i=0 to countly-1 if ly(i)<>"" then outfile.WriteLine ly(i) end if next if sameip=0 then outfile.WriteLine Request.ServerVariables("REMOTE_ADDR") outfile.WriteLine sj outfile.Close end if Set thisfile=fs.OpenTextFile(countfile,1,False) countly=0 do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve ly(countly) ly(countly) = thisline countly = countly + 1 loop thisfile.close total=(countly-1)/2 %>