Ok here is the deal, i have a page that our users can goto and it will list out all of the files that are contained in a set of folders. It works great and they all really like having access to the reports without having to have paper all over (paper bad). However as we have continued using it the page is getting VERY long and it takes a good deal of scrolling to get through the entire page. This has prompted my boss to ask if we can change it so that all of the reports that are in different folders will be listed in a drop down box so that a user would just have several drop down boxes in front of them, click the one for the report they want and then choose the report that they need. As i said the code below is working and does what it was intended to, however my efforts to modify it have not been at all successful so i was wondering if someone else has a take on it, i have italicized the part that i believe needs to be modified. Any suggestions are much appreciated.
Code:
<br><br><br>
<center><table class=middle_page>
<tr><td>
<center><span class=text>Welcome, To Reports Site.</span></center>
<br>
<br>
<center><span class=text>You currently have access to these reports...</span></center>
<%
RESPONSE.WRITE "<TABLE CLASS=LEFT_SIDE>"
'section for viewing only links for current user...
'session("location") = "1000"
dim filesys, f
Set filesys = CreateObject("Scripting.FileSystemObject")
Set f = filesys.GetFolder("c:\inetpub\wwwroot\reports\")
'Response.Write ("Your folder was created on " & f.DateCreated)
Set objfolders = f.subfolders
for each objfolder in objfolders
set objfolder1 = objfolders.item((objfolder.name))
'if len(session("group")) > 0 then
response.write "</table></center><center><table class=left_side><tr><td class=text>" & objfolder1.name & "</td><td class=text> Available Links</td></tr>"
for each objfile in objfolder1.files
if instr(1,ucase(objfile),".PDF") or instr(1,ucase(objfile),".DWF") or instr(1,ucase(objfile),".EXE") or instr(1,ucase(objfile),".HTM") or instr(1,ucase(objfile),".XLS") or instr(1,ucase(objfile),".ASP") or instr(1,ucase(objfile),".DOC") or instr(1,ucase(objfile),".XLS") then
response.write "<TR><TD> </TD><TD CLASS=INPUT> <a href='REPORTS/" & objfolder1.name & "/" & ucase(objfile.name) & "' target='notes'>" & ucase(objfile.name) & "</a></TD></TR>"
end if
next
response.write "<BR>"
'end if
'exit for
next
RESPONSE.WRITE "</TABLE></CENTER>"
%>
<br><br>
<br>
</td></tr></table></center>
Drop down Box
