descargar archivos servidor

[baditxuk]

Hola.

Tengo una pagina desde donde me puedo descargar documentos(word,pdf) del servidor.
El codigo que utilizo es el siguiente:

<%
Response.Buffer = True

' Cadena de conexion

Dim connStr
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={MySQL};SERVER=lldd216.servidoresdns.net;P ort=3306;Database=xx;Uid=xx;Pwd=xx;"

' Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

' abrimos la conexion
sql= "select * from prueba"
Set rs = con.Execute(sql)

If Not rs.EOF Then
strFileName = rs("triptico")

ContentType = "text/plain,application/msword, application/pdf"
Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.ContentType = ContentType

Response.BinaryWrite rs("triptico")

End If

rs.Close
Set rs = Nothing

%>

Me lo descarga supuestamente bien. El problema me da a la hora de abrir ese documento. Me da el siguiente error:

Adobe Reader no pudo abrir dicho documento debido a que no es un archivo admitido o esta dañado.

A alguien le ha ocurrido algo parecido?

Gracias.