<%@ LANGUAGE="VBScript" %> <% RESPONSE.BUFFER = True%> Administration Area <% valPass = Request("password") If valPass <> linktPass Then %>
 

This is a restricted area
You must enter a valid password to enter


Password:  


<% Else showStats = Request("id") set objFSO = createobject("Scripting.FileSystemObject") fname = server.mappath(showStats & ".txt") If objFSO.FileExists(fname) Then set objFSO = nothing response.write("
Show Stats #" & showStats & "  
 return to admin  


") dim navfile, fileObj set fileObj = createobject("Scripting.FileSystemObject") set navfile = fileObj.opentextfile(fname, 1, 0) dim nav, x, itemcount dim item() While not navfile.AtEndofStream nav = navfile.readline Redim item(3) itemcount = 0 for x = 1 to len(nav) if mid(nav,x,1) <> "," then item(itemcount) = item(itemcount) & mid(nav,x,1) else itemcount = itemcount + 1 end if next response.write("
 Tracked at " & item(0) & " on " & item(1) & "I.P. " & item(2) & " 
 Browser/OS: " & item(3) & "

") Wend navfile.close set fileObj = nothing Else Response.Write ("
Show Stats #" & showStats & "  
 return to admin  
No statistics to view...

There are no statistics for this tracker.

Use the link above to return to the admin area...

 
") End If End If %>