fra paging med Access til paging med mySQL

Jeg har følgende script der tidligere har været brugt med Access, men nu er jeg gået over til mySQL. Hvad skal jeg ændre for at det kommer til at virke med mySQL?

<%
intId = Request("Fid")
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

If CInt(intId) > 0 Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT FileName,id FROM Pictures WHERE FolderId = "& intId &";"
    'strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/db/db.mdb")
    strDSN = "DSN=mySQL" 'DSN Connection
    rs.Open strSQL, strDSN, 1
    If Not (rs.BOF Or rs.EOF) Then
      antalPrRow = 6
      antal=0
      rs.PageSize = 18
      rs.AbsolutePage = intPage
      intRecCount = rs.PageSize
      intPageCount = rs.PageCount
      Response.write("Klik på billedet for at slette det")
      response.write "<table width=""400"" border=""0"">"
      Do While Not rs.EOF And intRecCount > 0
        if antal = 0 then Response.Write "<tr>"%>
                    <td align="left"><a href="java script:areUsure('GalleryAdministration.asp?mode=delete_picture&id=<%=Rs("id")%>&Fid=<%=intId%>');"><img src="/images/Pictures/thumbnails/<%=rs("FileName")%>" height="60" width="60" border="0"></a</td>
        <%antal = antal + 1
        if antal = antalPrRow then
          Response.Write "</tr>"
          antal = 0
        end if
        intRecCount = intRecCount - 1
        rs.MoveNext
      Loop
      if antal > 0 then Response.Write "</tr>"
      Response.Write "</table>"
        rs.Close
        Set rs = Nothing
       
        Response.Write "<p>Gå til side "
        For intNum = 1 To intPageCount
          Response.Write "<a href=GalleryAdministration.asp?Mode=del_pic&Fid="& intId &"&page=" & intNum & ">" & intNum & "</a> "
        Next
       
        Response.Write "<p>"
        If Clng(intPage) > 1 Then
          Response.Write "<a href=GalleryAdministration.asp?Mode=del_pic&Fid="& intId &"&page=" & intPage - 1 & ">&lt;&lt;</a>"
        Else
          Response.Write "&lt;&lt;"
        End If
       
        Response.Write "&nbsp;"
       
        If Clng(intPage) < Clng(intPageCount) Then
          Response.Write "<a href=GalleryAdministration.asp?Mode=del_pic&Fid="& intId &"&page=" & intPage + 1 & ">&gt;&gt;</a> "
        Else
          Response.Write "&gt;&gt;"
        End If
    Else
        Response.write ("Der er ingen billeder i galleriet")
    End If
End if
%>