<% 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 %>