Access ~MySql

Hejsa, hvordan omskrives følgende eksempel til en Mysql database:

Function RandomURL()
    ' Åbner databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/random.mdb")

    rs.Open "SELECT * FROM Links", strDSN, 1
    If Not (rs.BOF Or rs.EOF) Then
        Randomize
        intCount = Int(Rnd * rs.RecordCount) + 1
        rs.AbsolutePosition = intCount
        strLink = rs("LinkURL")
    End If