Como identificar el tipo de archivo que esta en la base de datos

[roly0476]

Lamentablemente no he dado con un buen resultado, no encuentro los valores para cada encabezado para poder cotejar con el archivo y así poder asignarle el tipo de dato.

intente con esto:

Dim extension As String
Dim tipo As String

extension = dt.Rows(0)(10)(Request("ContentType"))

Select Case extension
Case "jpg"
tipo = "image/pjpeg"
Case "txt"
tipo = "text/html"
Case "doc"
tipo = "application/msword"
Case "xls"
tipo = "application/msexcel"
Case "pdf"
tipo = "application/pdf"'
Case "avi"
tipo = "video/avi"
End Select

Response.Clear()
Response.Buffer = True
Response.ContentType = tipo
Response.BinaryWrite(CType(dt.Rows(0)(10), Byte()))