<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
    Application("db") = 2
    Application("dbconnect") = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Option=0;Socket=;Stmt=;Uid=root;Pwd=root;CLIENT_MULTI_STATEMENTS=1;Database=appadmin;"
End Sub
</SCRIPT>

Session("configid") = 1
dbConnect = Application("dbconnect")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open (dbConnect)
sql = "select * from settings where configid = "&Session("configid")
Set RS = ExecuteRecordset(sql)
...

|11|80004005|[Microsoft][ODBC_Driver_Manager]_Data_source_name_not_found_and_no_default_driver_specified 80

ConnectionString="Driver={MySQL ODBC 3.51 Driver}; Server=127.0.0.1;Port=3306;
Database=MyDB;User=MyUser;Password=MyPassword;Option=3;"