ADODB.Recordset - En svær een
Jeg er ved at lave en søge funktion på min side, hvor man kun for vist 2 emner afgangen,hvis der er flere end 2 fundet søgekriterier, men jeg får følgende fejl:
ADODB.Recordset (0x800A0CB3)
Den ønskede handling understøttes ikke af objektet eller provideren.
/search_items.asp, line 69
Jeg har siddet og kæmpet med dette problem, og jeg kan ikke lige se fejlen.
Håber at der er en der kan komme med en løsning på problemet.
_____________
search_items.asp
<% id = Request.Querystring(\"id\")
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
IF id = \"\" Then %>
<div align=\"center\">
<br>
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"100%\" align=\"center\">
<form method=\"POST\" action=\"index.asp?valg=soeg&id=1\">
<p><input type=\"text\" name=\"Query\" size=\"25\"> <input type=\"submit\" value=\"Søg\" name=\"Soeg\" class=flatbutton>
<input type=\"reset\" value=\"Slet\" name=\"slet\" class=flatbutton></p>
</form>
</td>
</tr>
</table>
</center>
</div>
<% Else
Query = Request.Form(\"Query\")
If Query = \"\" AND id = 1 THEN %>
<div align=\"center\">
<br>
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"100%\" align=\"center\">
<form method=\"POST\" action=\"index.asp?valg=soeg&id=1\">
<p><input type=\"text\" name=\"Query\" size=\"25\"> <input type=\"submit\" value=\"Søg\" name=\"Soeg\" class=flatbutton>
<input type=\"reset\" value=\"Slet\" name=\"slet\" class=flatbutton></p>
</form>
</td>
</tr>
<tr>
<td width=\"100%\" align=\"center\"><% Response.Write(\"<font color=\'#FFFFFF\' size=\'2\'>Indtast først et søgeord</font><br>\")%></td>
</tr>
</table>
</center>
</div>
<%
Else
%>
<div align=\"center\">
<br>
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"100%\" align=\"center\">
<form method=\"POST\" action=\"index.asp?valg=soeg&id=1\">
<p><input type=\"text\" name=\"Query\" size=\"25\"> <input type=\"submit\" value=\"Søg\" name=\"Soeg\" class=flatbutton>
<input type=\"reset\" value=\"Slet\" name=\"slet\" class=flatbutton></p>
</form>
</td>
</tr>
<tr>
<td width=\"100%\" align=\"center\">
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set Rs = Server.CreateObject(\"ADODB.Recordset\")
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/db/items.mdb\")
SQL = \"SELECT ProductNum, Name, Price, ImageURL, Description, Category, Status FROM Items WHERE Name LIKE \'%\" & Query & \"%\'\"
rs.Open SQL, strDSN
rs.PageSize = 2
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
If NOT rs.eof and rs.bof then
%>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"76%\" valign=\"middle\"><font color=\"#FFFFFF\"> Produktgruppe : <% response.Write(\"Søgningsresultat\") %></font></td>
<td width=\"24%\" valign=\"middle\" align=\"right\"><% Response.Write \"<font color=\'#FFFFFF\' size=\'2\'> Side \" & intPage & \" Af \" & intPageCount & \"</font> \" %></td>
</tr>
<tr>
<td width=\"100%\" colspan=\"2\">
<hr>
</td>
</tr>
</table>
<%
Do While Not rs.EOF And intRecCount > 0
ImageURL = rs(\"ImageURL\")
ImageURL = \"<img src=\'\" & ImageURL & \"\'>\"
%>
</font>
<table width=\"90%\" border=\"0\" cellspacing=\"1\" cellpadding=\"0\" bgcolor=\"#000000\">
<tr>
<td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
<div align=\"left\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">
Vare Nr.</font></div>
</td>
<td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<% =rs(\"ProductNum\")%>
</font></td>
</tr>
<tr>
<td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
<div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> Varenavn </font></div>
</td>
<td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<% =rs(\"Name\")%>
</font></td>
</tr>
<tr>
<td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
<div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> Beskrivelse </font></div>
</td>
<td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<% =rs(\"Description\")%>
</font></td>
</tr>
<tr>
<td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
<div align=\"left\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> Pris </font></div>
</td>
<td width=\"448\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<% =rs(\"Price\")%>
</font></td>
</tr>
<tr>
<td width=\"152\" align=\"right\" valign=\"middle\" bgcolor=\"#FFFFFF\">
<p align=\"left\">
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> Lagerstatus</font>
</p>
</td>
<td width=\"448\" bgcolor=\"#FFFFFF\"><% If rs(\"Status\") = True Then %><img border=\"0\" src=\"Images/lager_ok.gif\"><% Else %><img border=\"0\" src=\"Images/lager_tom.gif\"><%End If%></td>
</tr>
<tr>
<td width=\"152\" align=\"right\" valign=\"bottom\" bgcolor=\"#FFFFFF\"><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\"><a href=\"index.asp?valg=viskurv&action=add&item=<% =rs(\"ProductNum\")%>&count=1\"><img src=\"Images/ikurven.gif\" border=\"0\" alt=\"Læg i kurven\"></a></font></td>
<td width=\"448\" align=\"left\" valign=\"bottom\" bgcolor=\"#FFFFFF\"> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<% =ImageURL %>
</font></td>
</tr>
</table>
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"> </font>
<hr color=\"#CCCCCC\" size=\"1\" noshade>
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
<%
intRecCount = intRecCount - 1
rs.MoveNext
loop
Else
Response.Write \"<font color=\'#FFFFFF\'>Søgningen gav intet resultat</font><BR>\"
end if
Response.write\"<center>\"
Response.Write \"<font color=\'#FFFFFF\' size=\'2\'> Gå til side \"
If Clng(intPage) > 1 Then
Response.Write \"<a href=index.asp?valg=soeg&page=\" & intPage - 1 & \"> << </a>\"
Else
Response.Write \" << \"
End If
For intNum = 1 To intPageCount
Response.Write \"<a href=index.asp?valg=soeg&page=\" & intNum & \">\" & intNum & \"</a> \"
Next
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=index.asp?valg=soeg&page=\" & intPage + 1 & \">>> </a></font>\"
Else
Response.Write \">> </font>\"
End If
Response.write\"</center><br><br>\"
%>
</font> </td>
</tr>
</table>
</center>
</div>
<%
rs.Close
Set rs = Nothing
End IF
End If %>
