<code>
<%
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 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 i funktion2.asp kör jag följande kod.
<code>
<%
Function Userconsol
Set Rst = Con("Select * from User Where Id='" & Request.QueryString("Userid") & "'")
If not Rst.eof Then
Else
'kod
End if
End function
%>
</code>
Men får att det är problem med Rst i sidan som funktion2.asp hämtar sin information ifrån. Hur kan man lösa det?

Jag förstår inte vad all kod i första listningen har att göra med koden i "funktion2.asp". Men två saker i funktion2.asp ser skumma ut tycker jag:

Set Rst =Con(...

Borde det inte vara:

Set Rst = Conn.Execute(...

...eller liknande?
Och sen brukar Id vanligen vara ett tal och inte en sträng som det verkar vara här eftersom du använder enkelfnuttarna men du kanske inte gjort på det sättet.

Ska kolla det igen.
fölr det jag vill är att rätt id för rätt användare ska komma in. (den som skrev)
Och även lista användaren har fått om det är t.ex jag som skriver i din gästbok och du sen ser dina gästbok ska du kunna klicka på en länk där det står ditt användarnamn och sen när du klickar på länken ska den ta och köra med id nummer i querystring.
Och det har jag inte fått fungera.
När jag kör en kontroll så slutar den köra kod och hela sidan blir tom.


[Problem med pagin och Where sats.],