Hent data fra MySQL

Hejsa

Jeg har koverteret en ACCESS db til MySQL og ville nu høre hvilke ændringer jeg skal foretage mig for at få dette ASP til at køre:

function fnOpenDB
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/newsdb.mdb")
end function

function fnNews
   
    <!-- Listing Latest 10 Telegraph News -->
    strNews = strNews & "<table border='0' width='415' cellpadding='0' height='23' cellspacing='0' style='position:absolute;left:88;top:126;'><tr><td>"
    strNews = strNews & "<img src='Images/telegraphbanner.png'></td></tr></table>"
   
    strNews = strNews & "<div id=ContentDiv name=ContentDiv style='position:Absolute;left:93px;top:153px;overflow:auto;height:100%px;width:409px;'><table>"
   
    Set rs = Server.CreateObject("ADODB.Recordset")
    SQL = "Select * From News ORDER BY DatePublished DESC"
    rs.Open SQL, Conn, 1
   
    i = 0
           
    do while not rs.EOF
        i = i + 1

        if i < 11 then
            strNewsText = rs("Newstext")
            strNewsShort = Left(strNewsText, 250)
           
            strDate = rs("DatePublished")
            strDateUpdated = Left(strDate, 10)
           
            strNews = strNews & "<table border='0' cellpading='0' width='99%' cellspacing='1' class='NEWSTABLE'><td>&nbsp;&nbsp;<font color='850000'><b><a href='index.asp' class='tournamentlink'>" & rs("Header") & "</a></b></font></td><td align='right'>&nbsp;&nbsp;<font color='850000'>" & strDateUpdated & "&nbsp;&nbsp;</font><br></td></tr></table>"
            strNews = strNews & "<table border='0' cellpading='0' bordercolor='#669966' width='99%' cellspacing='1'><tr><td bgcolor='FFFFFF' ><table><tr><td><font color='000000'>" & strNewsShort & "...</font><br><img src='transparent.jpg' width='1' height='4'></td></tr></table></td></tr></table>"       
        else
            exit do
        end if
       
    rs.MoveNext
    loop
           
    rs.Close
    set rs=Nothing
   
    strNews = strNews & "</table></div>"
   
    Response.write strNews
   
end function

function fnCloseDB
    Conn.Close
    set Conn = Nothing
end function