Vis X antal indlæg pr. side
Hej..Jeg har en kode, som skal gøre, at der bliver vist 10 bestemte indlæg og resten af indlæggene bliver så lagt på andre sider. En go' gammel paging. Men problemet er bare, at det ikke virker. Det er dette stykke kode, som den klager over:
strSQL = "Select * from Book limit " & start & "," & pagesize
Set rs = Conn.Execute(strSQL)
Resten af koden ser sådan ud:
<%
pagesize = "10"
this = Request.ServerVariables("SCRIPT_NAME")
page = Request.QueryString("page")
If page = "" Then
page = 1
End if
start = (page - 1) * pagesize
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN
strSQL = "Select count(*) as antal from Book"
Set rs = Conn.Execute(strSQL)
total = rs("antal")
Set rs = Nothing
totalpages = (total / pagesize)
If totalpages Mod 1 <> 0 Then
totalpages = Int(totalpages) + 1
End if
Response.Write "Side " & page & " af " & totalpages
strSQL = "Select * from Book limit " & start & "," & pagesize
Set rs = Conn.Execute(strSQL)
Do until rs.EOF
%>
<p>
<b>» Navn:</b>
<% If rs("Email") <> "" Then %>
<a href="mailto:<%=rs("Email")%>"><%=rs("Name")%></a>
<% Else %>
<%=rs("Name")%>
<% End If %>
<br>
<b>» Hjemmeside:</b>
<% If rs("HP") <> "" Then %>
<a href="
<%
If Not Left(rs("HP"),7) = "http://" Then
Response.Write "http://" & rs("HP")
Else
Response.Write rs("HP")
End If
%>
" target="_blank">
<%
If Not Left(rs("HP"),7) = "http://" Then
Response.Write "http://" & rs("HP")
Else
Response.Write rs("HP")
End If
%>
<% Else %>
Ikke oplyst
<% End If %>
</a><br>
<b>» Besked:</b><br>
<%=rs("Comment")%><br>
<font style="color: #C0C0C0;">» <%=rs("Date")%></font><br>
<% If Session("Admin") = "OK" Then %>
<b><a href="del.asp?id=<%=rs("ID")%>">Slet besked</a></b>
<% End If %>
</p>
<%
rs.MoveNext
Loop
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Response.Write "Gå til side:"
For i = 1 to totalpages
Response.Write " <a href=""" & this & "?page=" & i & """>" & i & "</a> "
Next
%>
Den mener der er fejl i FROM-delsætningen (på engelsk: FROM Clause).
Er der nogen, der kan hjælpe?
