Hellopp!
Tänkte återanvända ett pagingscript, fast denna gång tillsammans med mySQL istället för Access.
Men banne mig, självklart fungerar det inte
Och tro det eller ej, jag har ingen aning om hur man ska lösa det
ADODB.Recordset fel '800a0cb3'
Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen./status/guestbook.asp, rad 71
Jag har klippt lite i koden, för att förminska den, men bibehållt ASP koden (konstigt eller hur?)
blå + bold = rad 71
[red]
<%
strSQL="SELECT * FROM tblGuestbook WHERE too = '"& strUsername &"' ORDER BY skickat DESC"
Set RSgb = Server.CreateObject("ADODB.Recordset")
RSgb.Open strSQL, Conn, 1, 3
%>
<%IF RSgb.bof AND RSgb.eof THEN%>
<%
else
RSgb.PageSize = 10
X=0
If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
intPage = 1
Else
intPage = CInt(Request.QueryString("page"))
End If
[b][blue]RSgb.AbsolutePage = intPage[/blue][/b]
DO UNTIL RSgb.EOF OR X = RSgb.PageSize
strSQL = "SELECT online_status FROM tblUser WHERE username = '"& RSgb("from") &"'"
SET RSuser = Conn.execute(strSQL)
nummer = nummer + 1
If nummer Mod 2 = 0 Then
farg = "#E6E7DD"
Else
farg = "#F4F5EB"
End IF
%>
<%
X=X+1
RSgb.MOVENEXT
LOOP
end if
%>
[/red]

