PointStone

Preserve your privacy - System Cleaner helps you preserve your privacy

 

Clean up Internet Explorer history files - System Cleaner cleans up Internet Explorer history files

 

Clean up Internet Explorer cache files - System Cleaner cleans up Internet Explorer cache files

 

Clean up Netscape cache files - System Cleaner cleans up Netscaspe cache files

 

Clean up cookies files - System Cleaner cleans up cookies files

 

Clean up Netscape cookies files - System Cleaner cleans up Netscape cookies files

 

Clean up Index.dat files - System Cleaner cleans up index.dat files

 

Delete Index.dat files - System Cleaner deletes index.dat files

 

Protect privacy on your computer - System Cleaner protects your privacy on your computer

 

Clean up your tracks on your computer - System Cleaner cleans up your tracks on your computer

 

Automatically clear your browsers history files - System Cleaner automatically cleans your browsers history files

 

Automatically clear your browsers cache files - System Cleaner automatically cleans your browsers cache files

 

Automatically delete cookies - System Cleaner automatically deletes cookies

 

Automatically clean up files - System Cleaner automatically cleans up files

 

Recover lost space - System Cleaner recovers lost space

 

Find duplicate files - System Cleaner finds duplicate files

 

Protect your privacy - System Cleaner protects your privacy

 

Find temporary files - System Cleaner finds temporary files

 


<% Dim fp, fs, s, objStreamReader, iCount, i, Link, Text 'Open a file for reading fp = Server.MapPath("VerticalMenu.txt") Set fs = CreateObject("Scripting.FileSystemObject") If (fs.FileExists(fp)) = False Then fp = fs.GetParentFolderName(Server.MapPath(".")) & "\VerticalMenu.txt" 'fp = Server.MapPath("../VerticalMenu.txt") End If If (fs.FileExists(fp)) = True Then Set objStreamReader = fs.OpenTextFile(fp) 'Reads the title (1st line) s = objStreamReader.ReadLine() iCount = 1 While not objStreamReader.AtEndOfLine s = objStreamReader.ReadLine() i = InStr(s, "|") Link = Mid(s, i+1) Text = Left(s, i-1) iCount = iCount + 1 %> <% WEnd objStreamReader.close End If Set objStreamReader = nothing Set fs = nothing %>
<%=Text%>

 

 

Visitors <%=Application("ActiveUsers")%> Users Online
Copyright © 1996 - <%=Year(Now())%> Pointstone Software, LLC. All rights reserved.
System Cleaner, Total Privacy and MemOptimizer are trademarks or registered trademarks of Pointstone Software, LLC.