Untitled Document

HOME PRODUCTS DOWNLOADS PURCHASE SUPPORT COMPANY BLOG

Tell a Friend

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%>

About Pointstone | Blog | Terms of Use | Privacy Policy | Accessibility [0]

<%=Application("ActiveUsers")%> Users Online