<%
'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%>
| <%=SubFolder.name%> | | |
<%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%>
| <%=objfile.name%> | <%=objfile.Size%> | Bytes |
<% end if
end if
next
else
response.write("| Folder " & path & " Not Found |
")
end if
response.write("
")
%>