Dim strFileName As String
Dim strFilePath As String
Dim objStream As Object
 
' Ermitteln des Dateipfades
strFilePath = ladeAnlagePfadPerID(Request.QueryString.Item("file"))
 
' Wenn Datei gefunden wurde, dann Dateiname extrahieren
If Not IsNothing(strFilePath) AndAlso System.IO.File.Exists(strFilePath) Then
            strFileName = System.IO.Path.GetFileName(strFilePath)
Else
            ' Fehlerbehandlung ...
            Exit Sub
End If
 
' ContentType per Funktion ermitteln (bei Tif -> "image/tiff")
Response.ContentType = getContentType(strFilePath)
 
Const adTypeBinary As Integer = 1
 
' --- Erzeugen des Streamobjekts
objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open()
 
' --- Auslesen des Dateinhalts. Hier wird ein absoluter Pfad verlangt.
objStream.LoadFromFile(strFilePath)
 
' --- Ausgabe per Response.BinaryWrite
Response.BinaryWrite(objStream.Read(objStream.Size))
 
' --- Schliessen des Stream-Objekts
objStream.Close()
objStream = Nothing
 
Response.Flush()