<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 mnga poster ska visas per sida --
intPageSize = 10 '## -- byt ut till hur mnga poster du vill ska visas per sida --

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

'## -- sql-frga fr att hmta data frn databasen --
strSQL = "SELECT * FROM Guestbook"

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

'## -- bestmmer hur mnga poster som varje sida ska best av i recordsetet --
.PageSize = intPageSize 'rad 28
.CursorType = 3 'rad 30
.LockType = 1
.Open
End With

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

'## -- visa rtt sida i recordsetet --
objRS.AbsolutePage = intPage

'## -- hur mnga sidor bestr recordsetet av --
intTotalPages = objRS.PageCount 'rad 42

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

'## -- loopa igenom recordsetet och visa posterna fr beskaren/anvndaren --
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>"
Response.write "<Tr>"
Sql="Select * From User Where ToUser ='" & Request.QueryString("Userid") & "'" 'rad 56
Set Rst = objconn.execute(Sql)
'Response.write SQL
'Response.end
If not rst.eof Then
Response.write "<Td>" & ObjRs("FromUser") & "</Td>"
else
Response.write "<Td>" & OBjRs("FromUser") & "</Td>"
End if
Response.write "</Tr>"
Response.write "<Tr>"
Response.write "<Td>" & ObjRs("Messages") & "</Td>"
Response.write "</Tr>"
'## -- printa ut informationen till beskare/anvndaren --

objRS.MoveNext
Loop
Else
'## -- inga poster returnerades --
'## -- visa meddelande att inga poster hittades fr anvndaren --
End If

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

objConn.Close
Set objconn = Nothing

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

'## -- include filen nedan innehller sjlva subrutinen fr sidnavigeringen --
Response.write "</Table>"
%>
<!--#INCLUDE FILE="pagin.asp"-->
<%
Else
Response.Write "Du kan bara lsa gstboks inlggen och inte radera eller besvara dom OBS!"
End if
Else
Response.write "Du kommer frn en annan sida drfr kan du inget gra ljust nu!"
end if
%>
</code>
hur jag än kör följande kod så funkar det inte som jag vill
<code>
strSQL = "SELECT * FROM Guestbook orderby tid desc, datum desc, Where ToUser ='" & Request.Querystring("Userid") & "'"
</code>
Eller hur ska jag ändra den för köra en recordset för lista? För hämta koden från pellesoft.se och modifierade lite. Men vet inte hur jag ska göra kontroll för vissa enbart rätt användares inlägg då strsql redan kör en recordset. Efter som den kan se hur många inlägg där är. Men när man kör med id så tar den ut rätt gästboks inlägg till rätt användare. Det är där som problemet kommer. Ska jag bara köra en
<code>
Set Rst1 = Con.execute(StrSQL)
if No´t Rst1.Eof then
koden
else
koden
</code>
Eller är jag ute och reser?
Det jag vill åsta komma med koden är.
Att den ska hämta id nummret från den som skrev det och kör det som en Querystring för att ha mylighet att klicka på användaren så man kommer in till dennes pressentation.
Eller ska man köra 1 tabell till för id från den som skrev när man kör FromUser
som har användarnamnet.
Eller räcker det?
för hur jag ljust nu än gör så vill den inte riktigt som jag någon som har tips?
för mer info titta gärna också på följande inlägg.
[Problem med pagin och Where sats.],