ot;attachment; filename="&f.name
Response.AddHeader "Content-Length",intFilelength
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
'''' output the file to the browser
Response.BinaryWrite s.Read
Response.Flush
'''' tidy up
s.Close
Set s = Nothing
End Function
end if
%>