Problem med paging

Använd kod-taggar när du postar kod, tack.

Felet beror på att det inte räcker att kontrollera "Do until sebnet.EOF", du måste även ha en räknare som håller reda på hur många loopvarv du gjort.

intPostCounter=1
Do until sebnet.EOF [b]OR intPostCounter>10[/b]
   'Gör allt annat här
   intPostCounter=intPostCounter+1
Loop

Får detta felmeddelande efter att jag lagt in det du sa:
Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/gastbok.asp, line 152

loop
^

Hur ser koden ut nu då? :)

/Henrik

Nu ser koden ut såhär:

<% If Request.QueryString("get") = "" Then %>

<br>
<%
'DATABASEN TILL GÄSTBOKEN
'--------------------------------------------------------------------------------------------------------
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")

Set sebnet = Server.CreateObject("ADODB.Recordset")

Addera = "SELECT * From gb ORDER BY datum DESC"

sebnet.Open Addera, Connect, 3, 3
'--------------------------------------------------------------------------------------------------------
%>
<% If sebnet.BOF Then %>
<i>Gästboken är tom!</i>
<% else %>
<% intPostCounter=1
Do until sebnet.EOF AND intPostCounter<=10
'Gör allt annat här
intPostCounter=intPostCounter+1
Loop %>
<% If sebnet("accepterad") = "nej" Then %>
<TABLE width="100%" cellspacing="0" cellpadding="5" border="0"><TR><td width="55%" valign="top"><%=kantfarg%>
<tr>
<td scope="col"></td></tr>
<tr>
<td scope="col"><b>Namn:</b> <%=sebnet("namn")%> <%=sebnet("enamn")%><br>
<b>E-postadress:</b> <%=sebnet("email")%><br>
<b>Sänt:</b> <%=sebnet("datum")%>
<br><br>
<%=sebtext(sebnet("inlagg"))%></td>

</p>
</center></td>
</tr></table>
<table width="100%"><tr><hr size="1">

<% else %>

<TABLE width="500" cellspacing="0" cellpadding="5" border="0"><TR><td width="55%" valign="top">

<strong>Namn:</strong> <%=sebnet("namn")%> <%=sebnet("enamn")%><br>
<b>E-postadress:</b> 
<%=sebnet("email")%><br>
<b>Sänt:</b> <%=sebnet("datum")%><br><br>
<%=sebtext(sebnet("inlagg"))%></td>

</td><td width="10"></td><td valign="top" width="45%" BGCOLOR="#f4f0e0">
<% If sebnet("svar") = "nej" Then %>
<% else %>

<%=sebtext(sebnet("svar"))%>
<% end if %>
</td>
</tr></table>
<table width="100%"><tr><hr size="1"></tr></table>
<% end if %>
<%
sebnet.MoveNext
loop
sebnet.Close
Connect.Close
End if
End if
%>
<%
If Request.QueryString("get") = "admin" Then
If Session("admin") = "ok" Then
Response.Redirect("admin.asp")
else
End if
%>
<br>Admin Login<br>
<br>
<form name="admin" method="post" action="gastbok.asp?get=check">
<table border="0" cellspacing="0" cellpadding="2">
<tr>
<td scope="col"><div align="right"><strong>Anvnamn:</strong></div></td>
<td scope="col"><input name="anvnamn" type="text" size="20">
</td>
</tr>
<tr>
<td><div align="right"><strong>Lösenord:</strong></div></td>
<td><input name="password" type="password" size="20">
</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="loggain" value="Logga in"> </td>
</tr>
</table>
</form><br>
<%
'MEDDELANDE OM UPPGIFTERNA ÄR FEL
If Session("meddelande") <> "" Then
Response.Write Session("meddelande")
Session("meddelande") = ""
End If
%>
<% end if %>
<%
'Kollar så anvnamn och lösenord stämmer!
If Request.QueryString("get") = "check" Then
If Request.Form("anvnamn") = admin1 AND Request.Form("password") = admin2 Then
Session("admin") = "ok"
Session.Timeout = 30
Response.Redirect("admin.asp")
else
'Om inte, skicka tillbaks användaren
Session("meddelande") = "Fel användarnamn eller lösenord, försök igen!"
Response.Redirect("index.asp?get=admin")
End if
End if
%>

emission skrev:

Använd kod-taggar när du postar kod, tack.

Om du inte gör det börjar vi grina - och det är inte bra.

I övrigt kan du ju läsa det emission postade - och se om du kan förstå det på ett annat sätt. Två saker: Lägg till det andra villkoret på "Do"-raden, samt se till att räkna inne i loopen. Loopen hade du ju redan - emissions kommentar som börjar med ' borde inte kunna missförstås.

@nders skrev:

I övrigt kan du ju läsa det emission postade

I ärlighetens namn hade jag ju skrivit helt fel. Har redigerat inlägget.

Då är det bara att passa på och läsa en gång till. :)