<%@ import namespace="System.Data" %>
<%@ import namespace="MySql.data.MySqlclient" %>
<%@ import namespace="MySql.data.MySqlclient.MySqlConnection" %>
<Script runat="server">
Sub page_load()
Dim dbconn As MySqlConnection
Dim dbCMD As MySqlCommand
Dim dtr As MySqldatareader
dbconn = New MySqlConnection("server=MySQL Server;database=MYSQL_database;user=DB Login;port=3306;password=DB password;")
dbconn.open()
dbCMD = New Mysqlcommand("select * from table_name", dbconn)
dtr = dbCMD.executereader()
While dtr.read()
Response.Write("<li>")
Response.Write(dtr(0) & "---" & dtr(1))
End While
dtr.close()
dbconn.close()
End Sub
</Script>
