V.basic.Net İle TXT dosyanın oluşturulup Kaydedilmesi

rotected Sub Buttontextaktar_Click(ByVal sender As
Object, ByVal e As EventArgs)
Dim cn As New SqlConnection(ConnectionString)
cn.Open()
cn1 = New SqlConnection(ConnectionString)
cn1.Open()
Dim ds As New DataSet()
Dim ad As New SqlDataAdapter("select * from [authors]",
cn)

ad.Fill(ds)

Dim str As New StringBuilder()

Dim i As Integer
For i = 0 To ds.Tables(0).Rows.Count - 1
Dim j As Integer
For j = 0 To ds.Tables(0).Columns.Count - 1
str.Append(ds.Tables(0).Rows(i)(j).ToString())
Next j

str.Append("<BR>")
Next i

Response.Clear()
Response.AddHeader("content-disposition",
"attachment;filename=FileName.txt")
Response.Charset = "türkçe için(Win_1254"
Response.Cache.SetCacheability(HttpCacheability.No Cache)
Response.ContentType = "application/vnd.text"

Dim stringWrite As New System.IO.StringWriter()
Dim htmlWrite = New HtmlTextWriter(stringWrite)

Response.Write(str.ToString())
Response.End()
cn.Close()
cn1.Close()
cn.Dispose()
cn1.Dispose()
End Sub