Paging af dette nyheds script
Hej jeg har et nyheds script her, jeg har lidt problemer med at få paging til at virke, når jeg uploader melder den bare denne fejl:ADODB.Recordset (0x800A0CB3)
Object or provider is not capable of performing requested operation.
/RaiX/Nyheder/Nyheder.asp, line 25
KODE:
-----------------------------------------------------------------
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
%>
<HTML>
<!--#include file="../whobanned.asp"-->
<HEAD>
<TITLE>RaiX - Kreative nyheder!</TITLE>
</HEAD>
<BODY>
<b>Nyheder :.</b>
<br><br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("nyheder.mdb")
strSQL = "select * from Nyheder ORDER BY id DESC"
set rs = Conn.execute(strSQL)
if rs.EOF then
Response.write "<center><br>Der er ikke skrevet nogle Nyheder.</center>"
else
rs.PageSize = 6
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do Until rs.EOF And intRecCount > 0
%>
<table border="0" width="100%" bordercolor="#7B8495" cellpadding="2" bordercolorlight="#7B8495" bordercolordark="#7B8495" height="23" style="border-collapse: collapse">
<td width="998" bordercolor="#7B8495" colspan="2" height="12" bordercolorlight="#7B8495" bordercolordark="#7B8495">
<p><b><a href="nyhed.asp?id=<%= rs("id")%>"><%= rs("overskrift")%></a><% If Session("status") > 3 Then %> - <a href="RetArtikel.asp?id=<%= rs("id")%>">Ret</a> - <a href="SletArtikel.asp?id=<%= rs("id")%>">Slet</a> - <%= rs("ip")%><% end if %></b></td>
</tr>
<tr>
<td vAlign=top width="28" height="1" bordercolorlight="#7B8495" bordercolordark="#7B8495">
<a href="nyhed.asp?id=<%= rs("id")%>"><img border="0" src="<%= rs("billede")%>" height="70" width="70" style="border: 1px solid #7B8495"></a></font></td>
<td vAlign=top width="966" height="1" bordercolorlight="#7B8495" bordercolordark="#7B8495">
<a href="nyhed.asp?id=<%= rs("id")%>">
<%
Response.Write "" & left(rs("nyhed"),140) & ""
%>
</a>
<%
If Session("status") > "4" Then
%>
<%= rs("ip")%>
<% end if %>
</td>
</tr>
<tr>
<td width="998" bordercolor="#7B8495" colspan="2" height="12" bordercolorlight="#7B8495" bordercolordark="#7B8495">
<p>Skrevet af <a href="../Community/Profil.asp?id=<%= rs("brugerid")%>"><b><%= rs("brugernavn")%></b></a> - D. <%= rs("day")%>/<%= rs("month")%>-<%= rs("year")%> - <%= rs("hour")%>:<%= rs("minute")%>:<%= rs("second")%></td>
</tr>
</table>
<br>
<%
RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</BODY>
</HTML>
-----------------------------------------------------------------
Har prøvet at rette i det, men kan sQ ik...
PS. er ikke specielt god til ASP.
Den melder fejl ved dette
rs.AbsolutePage = intPage
På forhånd tak!
