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 :e
Och tro det eller ej, jag har ingen aning om hur man ska lösa det :e
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]

