Downloading binary file out of SQL Server

<%@ Page Language="VB" %>


<%@ import Namespace="System.Data" %>


<%@ import Namespace="System.Data.SqlClient" %>


<script runat="server">





Sub Page_Load(sender as Object, e as EventArgs)





Dim conSql as New SqlConnection(ConfigurationSettings.AppSettings("strCon"))


Dim strSql As String = "SELECT * FROM tblFileUpload WHERE idFileUpload = 10;"


Dim oCmd As New SqlCommand(strSql, conSql)





conSql.Open()


Dim dr As SqlDataReader = oCmd.ExecuteReader()





    dr.Read()





    Response.ContentType = dr.Item("strContentType")


    Response.BinaryWrite(dr.Item("binAttachment"))





    conSql.Close()





End Sub





</script>

Or

Response.ContentType = "application/octet-stream"

Dim br As New BinaryReader(File.OpenRead("C:\whatever.txt"))

Dim bytes As Byte() = br.ReadBytes(br.BaseStream.Length)

br.Close

Response.BinaryWrite(bytes)

Well im really having no luck :( everything I do just results in the data being shown in the web browser as lots of '%hjg&456&*@76g' and it doesnt actually give you the option to download the word file.

I have tried both ways as u will see by the commented bit in my code as well, I was going to try what Diep suggested as a short term solution. But does anyone know how you save the binary file out of the database ie dr.Item("binAttachment") in my case as a file on the server file system??

My code at the moment is like this:

<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.IO" %>
<script runat="server">

Sub Page_Load(sender as Object, e as EventArgs)
 Dim conSql as New SqlConnection(ConfigurationSettings.AppSettings("strCon"))
 Dim strSql As String = "SELECT * FROM tblFileUpload WHERE idFileUpload = 10;"
 Dim oCmd As New SqlCommand(strSql, conSql)
 conSql.Open()
 Dim dr As SqlDataReader = oCmd.ExecuteReader()
 dr.Read()
 Response.Buffer = True
 Response.Clear
 Response.AddHeader("Content-Disposition", "attachment; filename=test.doc")
 Response.AddHeader("Content-Length", dr.Item("intSize"))
 Response.ContentType = dr.Item("strContentType")
 Response.BinaryWrite(dr.Item("binAttachment"))
 
 'Response.ContentType = "application/octet-stream"
 'Dim br As New BinaryReader(dr.Item("binAttachment"))
 'Dim bytes As Byte() = br.ReadBytes(br.BaseStream.Length)
 'br.Close
 'Response.BinaryWrite(bytes)
 
 conSql.Close()
   
End Sub
</script>

Thanks

Carl S