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