Dim dr As System.Data.SqlClient.SqlDataReader
cmdGetFile.Parameters("@Attachment_ID").Value = Request("AttachmentID").ToString
dbConn.Open()
dr = cmdGetFile.ExecuteReader
If dr.Read Then
        Response.ContentType = dr("ContentType").ToString
    Response.OutputStream.Write(CType(dr("FileData"), Byte()), 0, CInt(dr("FileSize")))
    Response.AddHeader("Content-Disposition", "attachment;filename=" + dr("FileName").ToString())
Else
    Response.Write("File Not Found.")
End If