<%@ 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 addnewErr = Request("ANerr") If addnewErr = "empty" Then ADWerr = "BOTH fields are required!" Else ADWerr = "Set up a new link" End If %>
Link Tracker Admin Area  
  
Welcome to the Link Tracker admin area. From here you can set up new links to track, and view/clear current log files and statistics. For help, e-mail support@thewebhut.com.

Your Link Trackers

<% set objFSO = createobject("Scripting.FileSystemObject") fname = Server.MapPath("linkttracks.txt") If objFSO.FileExists(fname) Then set objFSO = nothing 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(2) 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("") Wend navfile.close set fileObj = Nothing Else Response.Write ("") End If %>
 Tracker NameCopy Link Codeview statsclear stats*
 " & item(0) & "get the code/00\CLR
 No trackers available.


* You will not be prompted to clear! All log entries will be deleted!
NOTE: If you wish to remove a link tracker, you will need to download "linkttracks.txt" to your hard drive and remove the line manually. Be sure to only remove the necessary information and do not leave any line breaks. Then re-upload the file.

<%=ADWerr%>

Enter the full Url of the link to track. Include http:// or ftp://.

Give this link a name.
Eg. Link 1 or My Download.

Do not leave any fields blank. Choose a unique name for each link. If the new link tracker is created successfully, you will see it listed on the left with the name you gave.

<% End If %>