Har fått problem med ett paging script som inte vill funka numera då jag använder mysql istället för access.
<%
sida = TRIM( Request( "sida" ) )
If sida = "" Then sida = 1
RecSet.PageSize = 10
RecSet.AbsolutePage = sida
Do until RecSet.EOF OR rowCount = RecSet.PageSize
rowCount = rowCount + 1
color = color+1
If color mod 2 = 0 then
bgcolor="#ffffff"
Else
bgcolor="#cccccc"
End If
%>
och sedan för sidnumreringen:
<%
If RecSet.PageCount > 1 Then
For a = 1 to RecSet.PageCount
If a <> cINT( sida ) Then
Response.Write "<a href='medlemmar.asp?sida="& a &"'>"& a &"</a>"
Else
Response.Write "<b>"&a&"</b>"
End If
Next
End If
Jag tror problemmet ligger vid RecSet.AbsolutePage = sida
Hur kan jag lösa detta?
Hmmm men alltså problemmet kvarstår ju vid:
RecSet.AbsolutePage = sida
Där den får problem.
Objektet eller providern kan inte utföra den begärda åtgärden.
postPerSida = 10
if not Isnumeric(request.querystring("page")) Or request.querystring("page") = "" Then
sida = 1
else
sida = cInt(request.querystring("page"))
end if
set connect = server.createObject("ADODB.Connection")
connect.open "Driver=MySql;server=***;user=***;pwd=***;database=***"
Query = "Select * From tbl limit " & (sida - 1) * postpersida & ", " & postpersida
set rs = connect.execute(query)
while not rs.eof
response.write rs("fld") & "<br>"
rs.movenext
wend
set rs = connect.execute("Select Count(*) from tbl")
antalposter = rs(0)
rs.close : set rs = nothing
response.write "<br>"
For i = 1 to cint(antalposter-posterpersida) step posterpersida
if not i = sida Then
response.write "<a href=""?page=" & i & """>" & i & "</a> "
else
response.write " [" & i & "] "
end if
next
