On Error Resume Next
Set fs = Server.CreateObject("Scripting.FileSystemObject")
        fName = Request.ServerVariables("APPL_PHYSICAL_PATH") & "/FOLDER_LOCATION/"
        Set folder = fs.GetFolder(fname)
        For each item in folder.Files
                Response.Write "<img src='/FOLDER_LOCATION/" & item.Name & "' height='20%' border='0'>"
        Next