<%@ 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 perAct = Request("action") perName = Request("name") perName = Replace(perName,",","") perGo = Request("go") perGo = Replace(perGo," ","") perGo = Replace(perGo,",","") perUrl = Request("url") perId = Request("id") perTracks = Request("tracks") fname = Server.MapPath("/toolbar/linkttracks.txt") %>
Link Tracker - New/View/Delete  
 return to admin  
<% If perAct = "new" AND perName <> "" AND perGo <> "" Then ltDate = Date() ltDate = FormatDateTime(ltDate,2) ltDate = Replace(ltDate,"/","") Function ltNum() Randomize ltNum = Int(99999999 * Rnd + 3) End Function newltID = ltNum & ltDate Set objFSO = CreateObject("Scripting.FileSystemObject") Set objText = objFSO.OpenTextFile(fname, 8, true) objText.Write(perName + "," + perGo + "," + newltID) & VBcrlf objText.Close %>
Your new link tracker has been created...

Click on "get the code" beside your new link tracker in the admin area to copy and paste the formatted Url. Use the link above to return to the admin area...

<% Else If perAct = "view" AND perUrl <> "" AND perId <> "" Then %>

Here is the Url for this link tracker...

Simply copy and use in any of your web page documents. Be sure to change the location of "download.asp" to reflect your own, if necessary.

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

<% Else If perAct = "new" AND perName = "" OR perGo = "" Then Response.Redirect ("linkt.asp?password=" & valPass & "&ANerr=empty") Else %>
An unknown error has occurred...

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

<% End If End If End If End If %>