Vi kallar sidan för katalog.asp

<%
Session("sokvag") = Session("sokvag") & "/" & Request.QueryString("sv")
If Request.QueryString("sv") = "start" Then
Session("sokvag") = "/ 'katalog där denna sida är placerad' "
End If

Dim fs,fo,x
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder(Server.MapPath(Session("sokvag")))
%>
Tillbaka

Du är här:<%= Session("sokvag") %>

<% For each x in fo.SubFolders %>
<% = x.Name %>

<% Next %>


<%
Set fo=nothing
Set fs=nothing %>
<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath(Session("sokvag")))
%>
<% For Each filefound In MyFiles.files %>

'Här kontrollerar vi bara så att ingen ASP-fil visas för besökaren..
<% If right(filefound.name,3) <> "asp" Then %>
'Ingen ASP-fil ? skriv ut länk.

/<% = filefound.Name %>"><% = filefound.Name %>
- <% = filefound.Size %>
- <% = filefound.Type %>

<% End If %>
<% Next %>
<% Set MyDirectory= Nothing %>
<% Set MyFiles= Nothing %>