Imports System.Data.SqlClient
Imports System.Web.Configuration

Partial Class selectall
    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim connection As SqlConnection
        Dim command As SqlCommand
        Dim reader As SqlDataReader

        ' Set the content type
        Response.ContentType = "text/plain"
        Response.ContentEncoding = Encoding.UTF8

        Try
            connection = New SqlConnection(WebConfigurationManager.ConnectionStrings("StudentConnectionString").ConnectionString)
            command = New SqlCommand("SELECT * FROM StudentTable", connection)

            Using connection
                connection.Open()
                reader = command.ExecuteReader()

                If reader.HasRows Then
                    Do While reader.Read()
                        Response.Write(CType(reader("Name"), String) & "<br/>")
                        Response.Write(CType(reader("Age"), Integer) & "<br/>")
                        Response.Write(CType(reader("Course"), String) & "<br/>")
                    Loop
                Else
                    Response.Write("No matching row found")
                End If

                connection.Close()
            End Using
        Catch
            Response.Write("An error occurred")
        End Try

    End Sub
End Class