Paging gennem mysql via asp

nu er jeg ikke helt sikker, men er det ikke muligt at lave et recordset fra en mySQL db, eller er det kun access der understøtter det??

ellers er der en fin gennemgang af paging af et recordset her http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Hmmm skide træls
det må da kunne lade sig gøre
nå men hvis ikke er der jo ikke noget at gøre ved det

nu sagde jeg at jeg ikke var sikker, så har du prøvet??

Har prøvet jeg kan sku ik få det til at funke :-(

http://zoidberg.dk/artikler.asp?mode=vis_artikel&id=5

zoidberg>> takker mange gange... det viser da at man GODT kan lave paging på et recordset i forbindelse med mySQL

Tik tak skal du ha mennnn det virkede hellere ikke
den skrev alle recordset i min browser i stedet *GG*
Den viste osse alle bilederne selv om jeg havde skrevet at den skulle vise 10
så de stod lige som vist neden for

1
2
3
4
5
osv
Fatter ikke en meter af det

må jeg se din kode efter at du har lavet paging på den!!

Her er den så der er sat \' ved de ting som jeg ikke skal bruge
<%
    strSQL = \"SELECT persons.*,((hits.vote1+hits.vote2+hits.vote3+hits.vote4+hits.vote5+hits.vote6+hits.vote7+hits.vote8+hits.vote9+hits.vote10) / hits.raters) AS score FROM persons INNER JOIN hits ON hits.pid=persons.id WHERE persons.gender=\" & strGender
    Select Case strType
        Case \"0\": strSQL = strSQL & \" ORDER BY persons.id DESC;\"
        Case \"1\": strSQL = strSQL & \" AND hits.raters>\" & RatersBeforeTop & \" ORDER BY score DESC;\": strSub = \"<span class=\'small\'>You must have \" & RatersBeforeTop & \" Votes before you can join the list!</span>\"
    End Select
%>
<br>
<center>
    <%=Page_Header%><br>
    <%=strSub%>
</center>
<%


    Set Rs = Conn.Execute(strSQL)
    If Rs.BOF Then
        Response.Write \"<hr>Sorry no persons too show :-(\"
    Else
        PIndex = 1
        Do Until Rs.EOF
            strName = Rs(\"name\")
            strCity =Rs(\"city\")
            strCountry = Rs(\"country\")
            strText = Rs(\"text\")

            If strName > \"\" Then
                strProfileHead = strName
                If strCity > \"\" Then strProfileHead = strProfileHead & \", \" & strCity
                If strCountry > \"\" Then strProfileHead = strProfileHead & \" (\" & strCountry & \")\"
            End If

            If strText > \"\" Then strProfileContent = strText Else strProfileContent = \"\"
            If Len(strProfileContent) > 100 Then strProfileContent = Left(strProfileContent, 100) & \"...\"
%>
<hr>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
    <tr>
<%            If strType = \"1\" Then %>
        <td align=\"center\" valign=\"top\" width=\"20\"><font size=\"2\"><b>Nr:<b><%=PIndex%>.</b></b></font></td>
<%            End If %>
        <td width=\"75\" valign=\"top\"><a href=\"default.asp?pid=<%=Rs(\"id\")%>\"><img src=\"out_img.asp?pid=<%=Rs(\"id\")%>\" border=\"0\" alt=\"<%=Rs(\"name\")%>\"></a></td>
        <td valign=\"top\">
            <%=strProfileHead%>
            <p>
            <%=strProfileContent%>
        </td>
<%            If Request.Cookies(\"votes\")(\"pid\" & Rs(\"id\")) > \"\" Then %>
        <td bgcolor=\"#2072BE\" width=\"52\" align=\"center\">
            <%=FormatNumber(Rs(\"score\"), 2, True)%><b><br>
</b></td>
<%            End If %>
    </tr>
</table>
<%


            Rs.MoveNext
            PIndex = PIndex + 1
        Loop
    End If
%>
<%
mypage = request.querystring(\"inc_list.asp\")
if mypage = \"\" then
mypage=\"1\"
end if


strDNS = \"driver={MySql};dsn=xxxx;Database=xxx;uid=xxxx;pwd=xxxx\"
strSQL = \"SELECT * FROM persons\"
set rs = Server.CreateObject(\"ADODB.Recordset\")

 
\'rs.cursorlocation=aduseclient
rs.cachesize=10
rs.open strSQL,strDNS
rs.movefirst
rs.pagesize=10 \' Her angives antal poster pr. side
maxpages=rs.pagecount
maxrecs=rs.pagesize
\'rs.absolutepage=mypage
howmanyrecs=0
%>


<table>
<tr>
<td colspan=\"3\">side <%=mypage%> af <%=maxpages%></td>
</tr>
<%
DO UNTIL rs.EOF OR howmanyrecs>=maxrecs
id = rs(\"id\")
\'navn = rs(\"navn\")
\'url = rs(\"url\")
%>
<tr>
<td><%=id%></td><td><%=navn%></td><td><%=url%></td>
</tr>
<%
rs.MoveNext
howmanyrecs=howmanyrecs+1
Loop
rs.Close
Set rs = Nothing
%>
</table>

<%
response.write \"<table><tr>\"
response.write \"<td>\"
if not mypage = \"1\" then
response.write \"<a href=\'inc_list.asp?side=\" & (mypage - 1) & \"\'>Forrige</a> \"
end if
Response.Write \"[\"
for counter=\"1\" to maxpages
If counter >= maxpages then
end if
response.write \"<a href=\'inc_list.asp?side=\" & counter & \"\'>\" & counter & \"</a>\"
if counter <> maxpages then response.write \" \"
next
Response.Write \"]\"
If clng(mypage) < clng(maxpages) then
response.write \" <a href=\'inc.list.asp?side=\" & mypage + 1 &\"\'>Næste</a>\"
end if
response.write \"</td>\"
response.write \"</tr></table>\"
%>

auch.. det er da blevet til noget værre rod... det bliver altså ikke i aften jeg kigger på da jeg skal ha\' læst nogle lektier

Jammen det er bare iorden gider ikke mere iaften
men hvis du kikker på det og får det til at funke så er det jo kanon godt

Funker nu
Den skulle lige ha nogle tæsk
*GGGGG*