Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFilename) Then
Set objFile = objFSO.GetFile(strFilename)
Response.Clear
dim imgStream
On Error Resume Next
set imgStream = server.createobject("ADODB.Stream")
imgStream.Type = 1
imgStream.Open
imgStream.LoadFromFile strFilename
Response.Charset = "UTF-8"
Response.ContentType = setcontentType
Response.AddHeader "Content-Length", objFile.Size
Response.BinaryWrite imgStream.Read()