<%@ 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 clearStats = Request("id") %>
Clear Stats #<%=clearStats%>  
 return to admin  
<% set objFSO = createobject("Scripting.FileSystemObject") fname = server.mappath(clearStats + ".txt") If objFSO.FileExists(fname) Then set objFSO = nothing Set objFSO = CreateObject("Scripting.FileSystemObject") Set objText = objFSO.CreateTextFile(fname, true) objText.Close Response.Write ("
Stats log file cleared..

The log file for this tracker has been cleared, although it has not been deleted.

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

") Else Response.Write ("
No log file entries to clear...

There were no entries to clear.

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

") End If %> 		 


<% End If %>