<% Server.ScriptTimeout = 10000%> <% Dim fso, f, f1, fc 'Used in gathering file names Set fso = CreateObject("Scripting.FileSystemObject") 'Get unambiguous path to Forms folder Set f = fso.GetFolder("d:\inetpub\www.sanfordha.org\Downloads") 'Get collection of files in that folder Set fc = f.Files 'connect to the files table and get the records Dim rs,sql set rs = server.CreateObject("ADODB.recordset") sql = "Select * from Files order by Title" set rs = conn.execute(sql) %>

Requests for Proposals

To save a file to your computer, right click your mouse and select 'Save Target As...'. Then select the drive on your computer.

If you just want to see the file (.jpg,.gif,.asp,etc.) click on the file.
<% If rs.EOF then%> <% Else dim bgColor bgColor = "#ffffff" Do while not rs.EOF%> <% If bgColor = "#ffffff" then bgColor = "#cccccc" Else bgColor = "#ffffff" End IF rs.MoveNext loop End IF%>
There are currently no requests for proposal. Please check back soon.
<% select case right(rs("FileName"),3) case "jpg" response.write "" case "gif" response.write "" case "pdf" response.write "" case "doc" response.write "" case "ocx" response.write "" case "xls" response.write "" case "lsx" response.write "" case else response.write "" end select %> " target="_blank"><%=rs("Title")%>
<%=rs("description")%>