Vis 10 indlæg pr. side?

Har det samme på min side. Du kan få lov at se hele koden hvis du vil.

Kontakt mig over msn: Morten-b@rudekuvert.dk

Nu har jeg så fået den her kode, men jeg kan ikek få den til at virke.. er der nogen der kan hjælpe mig med at sætte den op ? der er her:

<%
'**Paging part start
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If
'**Paging part end
  
Set besked = Server.CreateObject("ADODB.RecordSet") 
str_sql2 = "SELECT * FROM skymann_gb WHERE brugertil=" & brugertil & " ORDER BY id DESC"
besked.Open str_sql2, MM_db_STRING, 1, 2
 

'** Paging part start
  besked.PageSize = 5
  besked.AbsolutePage = intPage
  intRecCount = besked.PageSize
  intPageCount = besked.PageCount
'** Paging part end
If NOT besked.EOF Then
%>
<table width="65%" border="0">
<tr>
<td width="92%" class="gbog-top">
Fra: <a href="profiltekst.asp?id=<% = besked.Fields.Item("brugerfra").Value %>">
<% Response.Write(besked.Fields.Item("brugerfrabrugernavn").Value) %></a>
</td>
<td width="8%" align="right" class="gbog-top">
<% If (Session("MM_Username")) <> ("") Then 'script %>
<% 
If aktivbruger.Fields.Item("id") = personer.fields.item("id") OR aktivbruger.Fields.Item("id") = "1" OR aktivbruger.Fields.Item("id") = "2" Then
%>
<a href="slet_gb.asp?slet=<% = besked.Fields.Item("id").Value %>&id=<% = personer.Fields.Item("id").Value %>">Slet</a>
<%
End if
End If '(Session("MM_Username")) <> ("") Then 'script %>
</td>
</tr>
<tr>
<td>
<% Response.Write(besked.Fields.Item("besked").Value) %>
</td>
</tr>
</table>
<br>
<%
'**Paging part start
intRecCount = intRecCount - 1
'**Paging part end
besked.MoveNext
Do Loop Until besked.PageSize = 5
End If
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
              <tr>
                <td width="33%" align="left"> 
                <%
If Clng(intPage) > 1 Then 
Response.Write "<a href=gaestebog.asp?id=" & personer.Fields.Item("id").value & "&s=Tavle&page=" & intPage - 1 & ">Forrige</a> "
end if %>
</td>
                <td width="33%" align="center"><% Response.Write "Side " & intPage & " af " & intPageCount & "" %></td>
                <td width="34%" align="right">
                <%
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=gaestebog.asp?id=" & personer.Fields.Item("id").value & "&s=Tavle&page=" & intPage + 1 & ">Næste</a> "
end if
%>
</td>
</tr>
</table>

Håber der er nogen der kan hjælpe..

Jeg får denne fejlmeddelelse:

Error Type:
Sun ONE ASP VBScript compilation (0x800A040E)
Unexpected 'Loop' without 'do'
/profile-system/brugere/gaestebog.asp, line 107, column 1

Kan det have noget at gøre med at jeg kører på en MySql database og ikke en .mdb ?? jeg har ændret ovenstående kode til mine sql indstillinger for da jeg fik den stod den til mdb.

Håber da at der er nogen der kan og vil hjælpe mig..

Nå, nu har jeg fået fat i en anden kode til at lave det her paging, og jeg syntes lige at jeg havde fået det til at virke, men nu kan den ikke udskrive nogle af de ting jeg beder den om. koden er her:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")

forbindelse = "SELECT * FROM skymann_gb WHERE brugertil=" & brugertil & " ORDER BY id desc"

rs.Open forbindelse, MM_db_STRING, 1

If Not (rs.BOF Or rs.EOF) Then
  'No of Records on each Page
  rs.PageSize = 5
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
  
  Response.Write "<center><h5><b>Side " & intPage & " af " & intPageCount & "</b></h5></center>"
  Else
  Response.Write("<center><font color=#006600><h5>Der er ingen beskeder i gæstebogen.</h5></font></center>")
  Do While Not rs.EOF And intRecCount > 0
%>
<table width="80%">
<tr>
<td width="90%">
Fra: 
  <% response.Write("<a href=profiltekst.asp?id=" & rs.fields.item("brugerfra").Value & " target=HOVED>" & rs.fields.item("brugerfrabrugernavn").value & "</a>")%>
</td>
<td width="10%" align="right">
<% If (Session("MM_Username")) <> ("") Then 'script %>
<% 
If aktivbruger.Fields.Item("id") = personer.fields.item("id") OR aktivbruger.Fields.Item("id") = "1" OR aktivbruger.Fields.Item("id") = "2" Then
%>
<a href="slet_gb.asp?slet=<% = rs.Fields.Item("id").Value %>&id=<% = personer.Fields.Item("id").Value %>">Slet</a>
<%
End if
End If '(Session("MM_Username")) <> ("") Then 'script %>
</td>
</tr>
<tr>
<td>
<% Response.Write(rs.Fields.Item("besked")) %>
</td>
</tr>
</table>
<p>
<%
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing
%>
<table width="100%">
<tr>
<td align="left" width="33%">
<%
If Clng(intPage) > 1 Then
  Response.Write "<h5><a href=gaestebog.asp?page=" & intPage - 1 & "&id=" & personer.Fields.Item("id").value & "><< Forige</a></h5>"
Else
  Response.Write "<h5><font color=#CCCCCC><<</font></h5>"
End If
%>
</td>
<td align="center" width="34%">
<%
If Clng(intPage) > 1 Then
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
  Response.Write "<a href=gaestebog.asp?page=" & intNum & "&id=" & personer.Fields.Item("id").value & ">" & intNum & "</a> "
Next
End If
%>
</td>
<td align="right" width="33%">
<%

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<h5><a href=gaestebog.asp?page=" & intPage + 1 & "&id=" & personer.Fields.Item("id").value & ">Næste >></a></h5> "
Else
  Response.Write "<h5><font color=#CCCCCC>>></font></h5>"
End If
%>
</td>
</tr>
</table>

Aner simpelt hen ikke hvad der er galt, har prøvet at tjekke for skrive-felj men fandt ingen.

Håber at der er nogen der vil hjælpe.

jeg har selv løst problemet med lidt hjælp fra forskælige scripts, så 25 point til Morten B. Olsen, tak for hjælpen..