Resources
<%
dim path, directory
directory = request.QueryString("d")
If directory <> "" then
directory = "/resources/"&directory&"/"
'response.write directory & "
"
Response.write "
Click on any one of the links to view the file. Please note that it may take a few minutes for the file to download to depending on the size.
" path = Server.MapPath(directory) ListFolderContents path Else Response.write "Please select from the options to the left to see the resources available
" End If %>