Har kollat lite på denna Getrows kod (http://www.dileno.hel.nu/asp/default.asp?id=3) och den funkar fint med Access men när jag vill koppla det till MySQL funkar det inte alls. Nån som kan ändra koden så den funkar?
<%
Dim Cn, Rs, page, rowcount, pagecounter, arrRecs, i, Antal, pagecount, Pz
dInitTime = Timer()
page = Request.Querystring("page")
If page="" Then page=1
rowcount=0
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")
Set Rs = Cn.Execute("Select id,falt1,falt2,falt3 From tbl_ Order By Id")
If Rs.EOF Then
Rs.Close : Set Rs = Nothing
Cn.Close : Set Cn = Nothing
Response.Write "Inga poster i databasen än.."
Else
Rs.Close
Rs.Cursortype=3
Rs.Open
Rs.Pagesize=200 'antalet poster per sida
Rs.Absolutepage=cInt(page)
Antal = Rs.Recordcount
Pz = Rs.Pagesize
pagecount = ((Antal-1) \ Pz) -- 1
arrRecs = Rs.GetRows(Pz)
Rs.Close : Set Rs = Nothing
Cn.Close : Set Cn = Nothing%>
<table border="1">
<%If IsArray(arrRecs) Then
For i = 0 To UBound(arrRecs,2) And rowcount < Pz
Response.Write "<tr><td>" & arrRecs(0,i) & "</td><td>" & arrRecs(1,i) & "</td><td>" & arrRecs(2,i) & "</td><td>" & arrRecs(3,i) & "</td></tr>"
Next
End If%>
</table>
<%If Antal > Pz Then
If Cint(page) > 1 Then
Response.Write "<A href=""?page=" & page - 1 & """>Bakåt</a> | "
End If
For pagecounter = 1 to Pagecount
If Cint(page) = pagecounter Then
Response.Write "<b>" & pagecounter & "</b> "
Else
Response.Write "<a href=""?page=" & pagecounter & """>" & pagecounter & "</a> "
End If
Next
If Cint(page) < Pagecount Then
Response.Write " | <A href=""?page=" & page + 1 & """>Framåt</a>"
End If
End If
End If
fPeriod = FormatNumber(Timer() - dInitTime, 3)
Response.Write "<br>Laddningstid: <b>" & fPeriod & "</b> s."
%>