Div. problemer med asp og db
Jeg har nogle problemer som jeg håber der er nogle af jer der kan hjælpe med:1. Jeg har en db med nogle vargruppe i som jeg har sat en asp side til at hente. Derefter skal den så oprette en liste med alle varegrupperne. Det gør den også fint nok men den sorter dem ikke i alfabetisk rækkefølge. Hvordan gør jeg det? Her er den kode jeg bruger:
SQL = "SELECT Varegruppe FROM Varegruppe"
rs.Open SQL, Conn
x = 0
For x = 1 to 9999
If rs.eof then
Exit For
Else
'URL Convert
Varegruppe = rs("Varegruppe")
Varegruppe = "<a href='items.asp?" & Varegruppe & "'>" & Varegruppe & "</a>"
'End URL Convert
%>
</font></b>
<font face="Arial" size="2">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">
<% =Varegruppe %>
<%
rs.MoveNext
End If
Next
%>
2. Mit andet problem er at jeg har oprette en søge side hvor når jeg søger så får jeg følgende fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 2.
Den skriver der er fejl i linje 101. Denne linje ser ud som følgende:
SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Name like '%" & Query & "%'"
rs.Open SQL, Conn
Her er hele min kode. Håber der er nogle der kan hjælpe!
<% Query = request.Form("txtQuery")%>
<% If Query = "" then %>
<br>
<form method="post" action="search_items.asp" name="submit_search">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Søg vare:
<input type="text" name="txtQuery">
<input type="submit" name="Submit" value="Søg">
</font></td>
</tr>
</table>
</form>
<%
If Request.Form("Submit") = "Submit" Then
Response.Write "Du har ikke søgt på noget!<BR>"
End If
%>
<% Else %>
<%
If Query = "" then
Response.Write("Søgningen gav intet resultat")
end if
%>
<br>
<form method="post" action="search_items.asp" name="submit_search">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> Søg vare:
<input type="text" name="txtQuery">
<input type="submit" name="Submit" value="Søg">
</font></td>
</tr>
</table>
</form>
<br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=varer.mdb"
Conn.Open "DBQ=" & Server.Mappath("varer.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT Varenummer, Produkt, Udsalgspris, Bemærkning, Varegruppe FROM Produkter WHERE Name like '%" & Query & "%'"
rs.Open SQL, Conn
x = 0
For x = 1 to 9999
If rs.eof then
If x = 1 Then
Response.Write "Søgningen gav intet resultat.<BR>"
End If
Exit For
Else
ImageURL = rs("ImageURL")
ImageURL = "<img src='" & ImageURL & "'>"
%>
</font>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Vare Nr.</font></div>
</td>
<td width="448"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("Varenummer")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Varenavn </font></div>
</td>
<td width="448"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("Produkt")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Beskrivelse </font></div>
</td>
<td width="448"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("Bemærkning")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle">
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> Pris </font></div>
</td>
<td width="448"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =rs("Udsalgspris")%>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="default.asp?action=add&item=<% =rs("Varenummer")%>&count=1"><img src="images/koeb.jpg" width="34" height="20" border="0" alt="Køb vare"></a> </font></td>
<td width="448" rowspan="2" align="left" valign="bottom"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =ImageURL %>
</font></td>
</tr>
<tr>
<td width="152" align="right" valign="middle"> </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">
<%
rs.MoveNext
End If
Next
End If
%>
</font> </td>
</tr>
</table>
