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