dim adoConnection
dim adoRecordset
set adoConnection=Server.CreateObject("ADODB.Connection")
adoConnection.Open "Data Provider=MSDASQL.1;driver=MySQL;host=localhost;database=YourDataBaseName"
set adoRecordset=Server.CreateObject("ADODB.Recordset")
adoRecordset.Open "SELECT * FROM YourTableName",adoConnection,1