Imports System.Data
Imports System.Data.SqlClient
Imports HashLibrary

Partial Class admin_users
    Inherits System.Web.UI.Page

    Private Sub btnExport_ServerClick(sender As Object, e As EventArgs) Handles btnExport.ServerClick
        Try
            Using con As SqlConnection = New SqlConnection(functions.GetConnectionString)
                Using cmd As SqlCommand = New SqlCommand("EXPORT_CSV", con)
                    cmd.CommandType = CommandType.StoredProcedure
                    If con.State = ConnectionState.Closed Then con.Open()
                    Dim dt As New DataTable
                    Using da As SqlDataAdapter = New SqlDataAdapter(cmd)
                        da.Fill(dt)
                        Response.Clear()
                        Response.Buffer = True
                        Response.AddHeader("content-disposition", "attachment;filename=UsersExport.csv")
                        Response.Charset = ""
                        Response.ContentType = "application/text"

                        Dim sb As New StringBuilder
                        For iColumn As Integer = 0 To dt.Columns.Count - 1
                            sb.Append(dt.Columns(iColumn).ColumnName & ",")
                        Next

                        sb.Append(Environment.NewLine)

                        For iRow As Integer = 0 To dt.Rows.Count - 1
                            For iColumn As Integer = 0 To dt.Columns.Count - 1
                                sb.Append(dt.Rows(iRow)(iColumn).ToString().Replace(",", ";") + ",")
                            Next
                            sb.Append(Environment.NewLine)
                        Next

                        Response.Output.Write(sb.ToString())
                        Response.Flush()
                        Response.End()
                    End Using
                End Using
            End Using
        Catch ex As Exception
            Dim s As String
            s = ex.Message
        End Try
    End Sub

End Class