mysql >
adodb.connection

Connect to MySQL DB from ASP VB script pages.

<%
Dim Conn, oRs
Dim qry, connectstr
Dim db_name, db_username, db_userpassword
Dim db_server, fieldname, tablename
db_server="----your server-----"	
    'sometimes IP, domain, or a designed server, (Data Source) localhost
db_name="--dbname--"    'sometimes your db username : sometimes title of description, (Initial Catalog)
db_username="--username--"	'your db username (User Id)
db_userpassword="PW"		'your db password (Password)
fieldname="c1"
tablename="tb1"

connectstr="Driver={MySQL ODBC 3.51 Driver};SERVER="&db_server&";UID="& db_username &";PWD="& db_userpassword &";DATABASE="& db_name &";OPTION=3;"


set conn=Server.CreateObject("ADODB.Connection")
	conn.open connectstr
%>

<%
qry="select * from " & tablename

set oRs=conn.Execute(qry)
Do until oRs.EOF
response.write ucase(fieldname) & ": "& oRs.fields(fieldname) &"<br/>"
oRs.movenext
loop

oRs.close
set ors=nothing
conn.close
set conn=nothing

%>

For MyODBC 2.50
connectstr = "DRIVER={MySQL};
                   SERVER=localhost server;
                   DATABASE=-----;
                   USER=-----;
                   PASSWORD=-----;
                   OPTION=3;"
For Connector/ODBC 3.51
connectstr = "DRIVER={MySQL ODBC 3.51 Driver};
                   SERVER=localhost server;
                   DATABASE=-----;
                   USER=-----;
                   PASSWORD=-----;
                   OPTION=3;"

PS:  localhost server: can be designed by your host MOTHER
can be "localhost" , or a server name, or a IP set