paging
Følgende side er delt op i to - en del hvor der søges, og en hvor der skal vises 10 værdier af gangen...Jeg får følgende fejl:
ADODB.Recordset error \'800a0cb3\'
Object or provider is not capable of performing requested operation.
/adm/test1.asp, line 137
Koden:
<%
set upl = server.createobject(\"SoftArtisans.FileUp\")
com = Request.QueryString(\"com\")
soeg = Request.QueryString(\"soeg\")
%>
<html>
<HEAD>
<link rel=\"StyleSheet\" href=\"mstyl.css\" type=\"text/css\">
</HEAD>
<BODY>
<TABLE BORDER=\"0\" CELLSPACING=\"2\" CELLPADDING=\"2\">
<TR>
<TD>
<B>Vore brugte biler</B>
</TD>
</TR>
</TABLE>
<% if soeg <> \"\" then %>
<form enctype=\"multipart/form-data\" action=\"brugte.asp\" method=\"POST\" name=\"form1\">
<DIV align=\"center\">
<CENTER>
<TABLE width=\"80%\" BORDER=\"0\" CELLSPACING=\"2\" CELLPADDING=\"2\">
<TR>
<TD Colspan=\"7\">
<!--#include file=\"../include/soeg_display.asp\"-->
</TD>
</TR>
<TR>
<TD>
<B>Mærke</B>
</TD>
<TD>
<B>Model</B>
</TD>
<TD>
<B>Årgang</B>
</TD>
<TD>
<B>Km</B>
</TD>
<TD>
<B>Pris</B>
</TD>
<TD>
<B>Brændstof</B>
</TD>
<TD>
<B>Billede</B>
</TD>
</TR>
<!--#include file=\"../include/comsoeg_add.asp\"-->
<% do while not brugte.eof %>
<TR>
<TD>
<%=trim(brugte(\"tekst1\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst2\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst3\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst4\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst5\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst6\"))%>
</TD>
<td align=\"center\">
<% if brugte(\"billede1\") <> \"\" or brugte(\"billede2\") <> \"\" or brugte(\"billede3\") <> \"\" then %>
<a href=\"brugte_spec1.asp?id=<%=brugte(\"ID\")%>\"><img src=\"../images/foto.gif\" border=\"0\"></a>
<% else %>
<img src=\"../images/nofoto.gif\">
<% end if %>
</td>
</TR>
<% brugte.movenext %>
<% loop %>
</CENTER>
</DIV>
</TABLE>
</FORM>
<% end if %>
<% if soeg = \"\" then %>
<form enctype=\"multipart/form-data\" action=\"brugte_adm.asp\" method=\"POST\" name=\"form1\">
<DIV align=\"center\">
<CENTER>
<TABLE width=\"80%\" BORDER=\"0\" CELLSPACING=\"2\" CELLPADDING=\"2\">
<TR>
<TD Colspan=\"7\">
<!--#include file=\"../include/soeg_display.asp\"-->Sortér ved at klikke på <B>overskrifter</B>
</TD>
</TR>
<TR>
<TD>
<a href=\"brugte.asp?com=maerke\"><B>Mærke</B></a>
</TD>
<TD>
<a href=\"brugte.asp?com=model\"><B>Model</B></a>
</TD>
<TD>
<a href=\"brugte.asp?com=aargang\"><B>Årgang</B></a>
</TD>
<TD>
<a href=\"brugte.asp?com=km\"><B>Km</B></a>
</TD>
<TD>
<a href=\"brugte.asp?com=pris\"><B>Pris</B></a>
</TD>
<TD>
<a href=\"brugte.asp?com=fuel\"><B>Brændstof</B></a>
</TD>
<TD>
<B>Billede</B>
</TD>
</TR>
<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
%>
<!--#include file=\"../include/com_add.asp\"-->
<% If Not (brugte.BOF Or brugte.EOF) Then
brugte.PageSize = 10
brugte.AbsolutePage = intPage
intRecCount = brugte.PageSize
intPageCount = brugte.PageCount
Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
Do While Not brugte.EOF And intRecCount > 0
%>
<TR>
<TD>
<%=trim(brugte(\"tekst1\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst2\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst3\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst4\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst5\"))%>
</TD>
<TD>
<%=trim(brugte(\"tekst6\"))%>
</TD>
<td align=\"center\">
<% if brugte(\"billede1\") <> \"\" or brugte(\"billede2\") <> \"\" or brugte(\"billede3\") <> \"\" then %>
<a href=\"brugte_spec1.asp?id=<%=brugte(\"ID\")%>\"><img src=\"../images/foto.gif\" border=\"0\"></a>
<% else %>
<a href=\"brugte_spec1.asp?id=<%=brugte(\"ID\")%>\"><img src=\"../images/nofoto.gif\" border=\"0\"></a>
<% end if %>
</td>
</TR>
<% intRecCount = intRecCount - 1 %>
<% brugte.movenext %>
<% loop %>
</CENTER>
</DIV>
</TABLE>
</FORM>
<% end if %>
<% end if %>
<br>
<div align=\"right\">
<table BORDER=\"0\" CELLSPACING=\"2\" CELLPADDING=\"2\">
<tr>
<td><a href=\"brugte_adm.asp\"><strong>Aministration</strong></td>
</tr>
</table>
</div>
</BODY>
</HTML>
Det fatter jeg ikke...
