classic asp วิธีการติดต่อฐานข้อมูล mysql ด้วย odbc

<%@ Language=VBScript %>
<%
    Option Explicit
    
    Const adModeRead = 1
    Const adCmdText = 1
    Const adParamInput = 1
    Const adEmpty = 0
    Const adInteger = 3
    Const adVarChar = 200

    Dim sqlsrv: sqlsrv = "Driver={SQL Server};Server=localhost\sqlexpress;Database=northwind;UID=;PWD=;"
    Dim mysql: mysql = "Driver={MySQL ODBC 5.2 Unicode Driver};Server=localhost;Port=3306;Database=northwind;User=root;Password=mysql56;Option=3;"

    Dim conn: Set conn = Server.CreateObject("ADODB.Connection")
    conn.ConnectionString = mysql
    conn.ConnectionTimeout = 30
    conn.Mode = adModeRead
    conn.Open 

    Dim cmd: Set cmd = Server.CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandText = "SELECT FirstName, LastName FROM Employees WHERE EmployeeID > ? ORDER BY EmployeeID"
    cmd.CommandType = adCmdText
    cmd.CommandTimeout = 900

    Dim param: Set param = Server.CreateObject("ADODB.Parameter")
    param.Name = "EmployeeID"
    param.Type = adInteger
    param.Direction = adParamInput
    param.Size = 4
    param.Value = 2
    cmd.Parameters.Append param

    Dim rs: set rs = cmd.Execute

    Do While Not rs.EOF
        Response.Write rs.Fields("FirstName").Value & " " & rs.Fields("LastName").Value & "<br />"
        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing

    Conn.Close
    Set Conn = Nothing
%>