' ^^ Skapar variabler : ^^

Dim IntSida, Conn, RST, SQL



' ^^ Kollar vilken sida som skall visas, om tomt visas sida 1 : ^^

IntSida = Trim(Request.QueryString("Sida"))

If IntSida = "" Then 'rad 17

IntSida = 1

Else

IntSida = Cint(IntSida) ' ^^ Gör om det till ett tal ^^

End If


set con = server.createobject("adodb.connection")
con.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../../db/plugget.mdb") & ";"
set rst = con.execute("select * from guestbook where ToUserId =" & request.querystring("AnvId") & " order by datum desc, tid desc")
'rad 31
'^^ Om tabellen är tom : ^^

If RST.EOF = True Then

Response.Write("Inga poster hittades i databasen!<BR>")

Else

' ^^ Bestämmer hur många inlägg det ska vara per sida : ^^

RST.PageSize = 10

' ^^ Visar önskad sida : ^^
'rad 45
RST.AbsolutePage = IntSida

End If

'rad 50

' ^^ Visar inläggen tills antalet per sida uppfylls eller inläggen tar slut : ^^

Do until RST.EOF Or IntAntal >= RST.PageSize

' ^^ Räknare : ^^

IntAntal = IntAntal + 1

%>

Namn : <% = RST("Namn") %><BR>

Datum : <% = RST("Datum") %><BR>
'rad 65
Meddelande : <BR>

<% = RST("Kommentar") %><P>

<%

RST.MoveNext

Loop



' ^^ Visa sidlänkar : ^^
'rad 79
If RST.PageCount > 1 Then ' ^^ Kollar så det finns fler sidor ^^

For I = 1 To RST.PageCount ' ^^ Startar en loop som ska fixa alla sidnummer ^^

If I <> IntSida Then ' ^^ Kollar så att vi ej länkar aktuellt sidnummer ^^

Response.Write("" & I & " ")

Else ' ^^ Om det är sidan som är aktiv, gör ingen länk.

Response.Write(I & " ")

End If

Next

End If



RST.Close

Conn.Close

Koden är hämtad från aspwebb.com
Där jag har ändrat lite
från rs till rst.
Jag har även ändrat
rs.open con,sql,1,2

och från
con.open "DNS" till
con.open "Driver ......"
Det är det ända jag har ändrat på den här koden.
Men får följande felmedelande:
<code>
Feltyp:
ADODB.Recordset (0x800A0CB3)
Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen.
/user/guest/gbok.asp, line 46
</code>

har sätt att det var lite fel på koden.
t.ex
IfIntsida ändrades till If Intsida (alltså ett mellanslag mellan If och IntSida)
Men inget annat.
Någon som kan förstå vardför jag får det här felmedleandet då?

Min databas är gjorde i Access200 (Office2000)

Du måste skapa ett recordset enligt denna metod, ej genom den du använt!

sql = "select * from guestbook where ToUserId =" & request.querystring("AnvId") & " order by datum desc, tid desc"
Set RST = Server.CreateObject("Adodb.RecordSet")
RST.Open sql, con, 3, 3


DU kan ej använda dig av:
Set rst = con.Execute("sql-satsen")
om du skall använda dig av recordsetets attribut som:
AbsolutePage
PageSize

t.ex.


om du ändrar de jag nämnt bör de funka! :)