<% 'Gets folder where this file is places path = request.servervariables("PATH_TRANSLATED") for i = len(path) to 1 step -1 if instr(i,path,"\",1) then endpos = i exit for end if next path = left(path,endpos) if request("folder") <> "" then innersubfolder = request("folder")& "\" path = path & request("folder") end if %> The directories listed below are exclusively for access by authorized clients and employees of Certified Networks, Inc.

<% if request.servervariables("HTTPS") <> "on" then response.write("You have entered this site over an insecure connection.
We request you enter securely") response.write(" by clicking " & "https://www.certifiednetworks.com" & request.servervariables("URL") & "

") end if %> Please contact dhenson@certifiednetworks.com if you require assistance.

<% 'path = "D:\inetpub\wwwroot\cn2\classes\aspclass\labs\labs" response.write("") Set fso = Server.CreateObject("Scripting.FileSystemObject") if fso.FolderExists(path) then set Folder = fso.GetFolder(path) Set SubFolders = Folder.SubFolders If SubFolders.Count <> 0 Then For Each SubFolder In SubFolders%> <%Next End If for each objfile in Folder.Files totalcount = totalcount +1 if totalcount < 60 then if objfile.name <> "default.asp" AND objfile.name <> "default.asp.bak" then%> <% end if end if next else response.write("") end if response.write("
<%=SubFolder.name%>  
<%=objfile.name%>  <%=objfile.Size%>Bytes
Folder " & path & " Not Found
") %>