<% 'Set the content type to the specific type that you are sending. Response.ContentType = "application/unknown" Response.AddHeader "Content-Disposition","attachment; filename=1349.txt" Const adTypeBinary = 1 Dim strFilePath strFilePath = server.mapPath("/test/1349.txt") Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile strFilePath Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing %>