Dim fs As System.IO.FileStream = Nothing

                    fs = System.IO.File.Open(Server.MapPath("FileQuestura/" + sFileName + ".txt"), System.IO.FileMode.Open)
                    Dim btFile(fs.Length) As Byte
                    fs.Read(btFile, 0, fs.Length)
                    fs.Close()
                    With Response
                        .Clear()
                        .AddHeader("Content-disposition", "attachment;filename=" & sgetname)
                        .ContentType = "application/octet-stream"
                        .BinaryWrite(btFile)
                        .End()
                    End With