<%@ Language=VBScript %> <% Response.Buffer = true%> <% passlocation=request.querystring("uselocation") passlocation="./" response.write "BACK

" response.write passlocation & "

" 'response.end Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject") Set MyFiles=MyDirectory.GetFolder(Server.MapPath(passlocation)) response.write "
" & MyFiles & "
" response.end '========== '========== For each filefound in MyFiles.files thisfile=filefound.Name Filenameheader = thisfile thisfile=Replace(thisfile, "'", "'") if instr(thisfile, ".pdf")>1 then thisfiletext=left(thisfile, instr(thisfile,".pdf")-1) Response.Write "" & thisfiletext & "

" end if Next Set TextStreamout = nothing Set FSO = nothing response.write "BACK

" %>