home *** CD-ROM | disk | FTP | other *** search
- <%
- Response.ContentType = "text/plain"
-
- Set NAV = Server.CreateObject("Navigation.clsWebDirUtils")
-
- TOCLine = "1 -t main.htm " & """" & "Employee Policy Manual" & """"
-
- Response.Write TOCLine
- Response.Write vbNewLine
-
- NAV.FilePath = Server.MapPath(".")
-
- NAV.OutputFormat = NAV.obsTOC
-
- NAV.ListFiles 2
-
- i = 0
-
- if NAV.LineCount > 1 Then
-
- for i = 2 to NAV.LineCount
-
- OutputString = NAV.lines(i + 1 - 1) & " "
-
- Response.write OutputString & vbNewLine
-
- next
-
- end if
-
- %>