<% Dim oFilesys, oFile Set oFilesys = CreateObject("Scripting.FileSystemObject") 'response.write Server.MapPath("/") 'Set oFile = oFilesys.OpenTextFile(Server.MapPath("/") & "/bluewate/wwwRoot/categories.txt") Set oFile = oFilesys.OpenTextFile(Server.MapPath("categories.txt")) sFile = oFile.readall oFile.Close Set oFile = nothing Set oFileSys = nothing sLinks = split(sFile, chr(13)) Session("catNames") = sLinks %>

<%=sLinks(0)%>	<%=sLinks(1)%>	<%=sLinks(2)%>
<%=sLinks(3)%>	<%=sLinks(4)%>	<%=sLinks(5)%>