Find 5 fejl!
Eller bare en enkelt.Jeg har to sider der udvælger data fra hver sin tabwel i den samme db. Den ene virker upåklageligt den anden melder fejl.
Her er den med fejlen:
<FORM ACTION=\"<%= Request.ServerVariables(\"SCRIPT_NAME\") %>\" METHOD=\"POST\">
<%
Response.Write \"<SELECT NAME=\'Type\'>\"
Response.Write \" <Option value=\'%\'>Alle typer\"
Response.Write \" <Option value=\'Adapter\'>Adaptere\"
Response.Write \" <Option value=\'Brændere\'>Brændere\"
Response.Write \" <Option value=\'Blækpatroner\'>Blækpatroner\"
Response.Write \" <Option value=\'Bundkort\'>Bundkort\"
Response.Write \" <Option value=\'CD-rom drev\'>CD-rom drev\"
Response.Write \" <Option value=\'CPU\'>CPU\"
Response.Write \" <Option value=\'Diskettedrev\'>Diskettedrev\"
Response.Write \" <Option value=\'Diverse\'>Diverse\"
Response.Write \" <Option value=\'DVD\'>DVD\"
Response.Write \" <Option value=\'Grafikkort\'>Grafikkort\"
Response.Write \" <Option value=\'Harddiske\'>Harddiske\"
Response.Write \" <Option value=\'\'>\"
Response.Write \"</SELECT>\"
%>
Søg:
<INPUT TYPE=\"text\" VALUE=\"\" NAME=\"Search\" Title=\"Søg på dele af titler\">
Forbogstav:
<INPUT TYPE=\"text\" SIZE=\"1\" MAXLENGTH=\"1\" NAME=\"Alfa\" Title=\"Skriv forbogstav\">
<INPUT TYPE=\"submit\" VALUE=\"Vis\" NAME=\"Vis\">
<%
Response.Write \"</FORM>\"
strType = Trim(Request.Form(\"Type\"))
strSearch = Trim(Request.Form(\"Search\"))
strAlfa = Trim(Request.Form(\"Alfa\"))
klaus=\"WHERE hwtype LIKE \'\" & strType & \"\' AND hardware Like \'%\" & strSearch & \"%\' ORDER By Titel\"
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"ts.mdb\")
Conn.Open DSN
\' SQL forespørgsel
strSQL = \"Select * from tbhardware \" & klaus
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
Fejlmelding lyder:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/sa/hardware.asp, line 57
Linie 57 er: Set rs = Conn.Execute(strSQL)
