<%@ Language=VBScript %>
<% Response.Buffer = true%>
City Agreements
<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("/coslintranet/agreements/uploads"))
'response.write MyFiles & "
"
'==========
For each filefound in MyFiles.files
thisfile=filefound.Name
Filenameheader = thisfile
if instr(thisfile, ".pdf")>1 and instr(thisfile, "Insur")=0 and instr(thisfile, "INSUR")=0 then
Response.Write "" & thisfile & "
"
end if
Next
Set TextStreamout = nothing
Set FSO = nothing
%>