Dim FilePath,FileName
Set ObjFileStream = Server.CreateObject("ADODB.Stream")
ObjFileStream.Type = 1
ObjFileStream.Mode = 3
ObjFileStream.open
ObjFileStream.LoadFromFile FilePath&"/"&FileName&".doc"
ObjFileStream.Position = 0
response.binarywrite ObjFileStream.Read