<code>
<%
If Request.QueryString("Guest") = "True" Then
If Session("Userid") = Request.QUeryString("Userid") Then
Response.write "<Table border=""0"">"
'## -- skapa connection object och öppna databasen --
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../Dbq/community.mdb") & ";"

'## -- hur många poster ska visas per sida --
intPageSize = 10 '## -- byt ut till hur många poster du vill ska visas per sida --

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")
'rad 15
'*## -- kontrollera så att inte intPage variabeln är tom --
If intPage = "" Then intPage = 1 '## -- visa första sidan som default --

'## -- sql-fråga för att hämta data från databasen --
strSQL = "SELECT * FROM Guestbook WHERE ToUser = ' " & Request.QueryString("Userid") & "' ORDER BY Datum desc, Tid desc"

'## -- skapa och öppna recordsetet --
Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.ActiveConnection = objConn
.Source = strSQL

'## -- bestämmer hur många poster som varje sida ska bestå av i recordsetet --
.PageSize = intPageSize
.CursorType = 3 'rad 30
.LockType = 1
.Open
End With

'## -- kontrollera om några poster har returnerats eller inte --
If Not objRS.EOF Then
'## -- poster har returnerats --

'## -- visa rätt sida i recordsetet --
objRS.AbsolutePage = intPage

'## -- hur många sidor består recordsetet av --
intTotalPages = objRS.PageCount

'## -- visa sidnavigeringen -- 'rad 45
Call PageNavigation(intPage, intTotalPages)

'## -- loopa igenom recordsetet och visa posterna för besökaren/användaren --
Do Until objRS.EOF OR intCounter >= intPageSize
intCounter = intCounter + 1
Response.write "<Tr>"
Response.write "</Tr>"
Response.write "<Tr>"
Response.write "<Td>Datum & tid " & ObjRs("Datum") & "&nbsp;" & ObjRs("Tid") & "</Td>"
Response.write "</Tr>" 'rad 55
Response.write "<Tr>"
Response.write "<Td>" & ObjRs("FromUser") & "</Td>"
Response.write "</Tr>"
Response.write "<Tr>"
Response.write "<Td>" & ObjRs("Messages") & "</Td>"
Response.write "</Tr>"
'## -- printa ut informationen till besökare/användaren --

objRS.MoveNext
Loop
Else
'## -- inga poster returnerades --
'## -- visa meddelande att inga poster hittades för användaren --
End If

'## -- rensa up --
objRS.Close
Set objRS = Nothing

objConn.Close
Set objconn = Nothing

'## -- visa sidnavigeringen --
' Call PageNavigation(intPage, intTotalPages)

'## -- include filen nedan innehåller själva subrutinen för sidnavigeringen --
Response.write "</Table>"
%>
<!--#INCLUDE FILE="pagin.asp"-->
<%
Else
Response.Write "Du kan bara läsa gästboks inläggen och inte radera eller besvara dom OBS!"
End if
Else
Response.write "Du kommer från en annan sida därför kan du inget göra ljust nu!"
end if
%>
</code>
Och vi får inte koden att fungera som det ska.
Någon tänkbar som har lösning på problemet?
Det är ljust när jag kör
<code>
Where ToUser ='" & Request.QueryString("Userid") & "'"
</code>
som problemet uppstår.
Då blir det vit ruta och inget händer.
Kör jag inte where satsenså listar den hela informationen vadför vill den inte accpetera where vilkoret?

ToUser innehåller id nummret till den användaren gästboks inlägget är till.
och
FromUser Innerhåller användarnamnet från den användaren som skrev gästboks inlägget.

Har pratat med SilvioF under dagen och blir väl fortsätta till problemet är löst.

Jag inte varför du använder en sträng som id i databasen. Är inte alls lika bra som en int eller en long.

Om det är det du har som id så är sql-satsen fel eftersom det inte ska vara enkelduttar runt Request.QueryString("userid").

Jag har inte läst igenom all kod, så om du har en sträng som userid så vet jag inte vad det är för fel.

/Jörgen

Att du har startat den här tråden, betyder det att dina tidigare trådar (med snarlika problem) är lösta? Snubblande nära dubbelpostning...
I så fall kan du ju sätta status Löst på dem och hänvisa till denna tråd. Klart jobbigt att försöka hjälpa någon och sen visar det sig att man gjort det i onödan.

[funktions strull.]
[problem l&#246;sning s&#246;kes.]
[Problem med pagin och Where sats.]

Hejsan Jörgden men när det är tal behöver man inte ' med men då det är id som är på följande sätt {AA99AA-9988CCC}
så måste jag ha med '
Och det är väl något som är fel där men jag vet inte vad.
För det ingår en pagin i koden och det är det som jag har hämtat från kurs och ariklar.
Därför vet jag inte så mycket om den.
Men det borde väl ändå gå med where
för att bara lista en enstaka gästboks inlägg så rätt användare får enbart sina egna gästboks inlägg och inte andras det är det som jag inte kan lösa då inte where funkar.

för mer information.
[Problem med pagin och Where sats.],