read the bytes into datareader
If (drfile.Read()) Then
Dim fileSize As Integer
Dim contentType As String
Dim fileData() As Byte
fileSize = CInt(drfile(0))
contentType = drfile.GetString(2)
ReDim fileData(fileSize)
drfile.GetBytes(1, 0, fileData, 0, fileSize) 'Repeatedly reads until EOF
Response.Clear()
Response.AppendHeader("Content-Disposition", "attachment; filename=" & fname)
ReDim fileData(fileSize)
drfile.GetBytes(1, 0, fileData, 0, fileSize) 'Repeatedly reads until EOF
Response.Clear() 'clears resposne to nil
Response.ContentType = contentType
Response.OutputStream.Write(fileData, 0, fileData.Length)
If contentType = "text/plain" Or contentType = "application/vnd.ms-excel" Then
Response.End()
End If
Thanks
Pavan Kumar
Mark Answer if this fits the need
Naveenmanam, if this helps please login to Mark As Answer. | Alert Moderator