DETAILS
<%@ Page Language="VB" %>
<%@ import Namespace="System.Data.Odbc" %>
<script runat="server">
Public Sub Page_Load()
Dim mySelectQuery As String = "SELECT * FROM tblTest"
Dim myConnection As New OdbcConnection("DSN=<username>_mysqlConn")
Dim myCommand As New OdbcCommand(mySelectQuery, myConnection)
myConnection.Open()
Dim myReader As OdbcDataReader = myCommand.ExecuteReader()
Try
While myReader.Read()
response.write (myReader("name") & "<br>")
End While
Finally
' always call Close when done reading.
myReader.Close()
' always call Close when done with connection.
myConnection.Close()
End Try
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
</form>
</body>
</html>
