For at følge op på "hvad er der galt" poster jeg her list mere uddybende
omkring enmet.
Jeg er ved at lave en søgeside i asp. Jeg har fundet den på
www.activeserverpages.dk
jeg får denne fejlmeddelelse:
SELECT ID, navn, format, label, katalognummer, land, aarstal, beskrivelse
FROM names WHERE (navn LIKE '%anders%') OR (format LIKE '%anders%') OR
(label LIKE '%anders%') OR (katalognummer LIKE '%anders%') OR (land LIKE
'%anders%') OR (aarstal LIKE '%anders%') OR (beskrivelse LIKE '%anders%')
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e10'
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var
ventet 1.
/search.asp, linje 36
Sådan ser min kode ud (på search.asp der findes også en search.htm men jeg
går ikke
ud fra at den behøves):
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>
<%
' Henter værdien fra search.htm
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("search.htm")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, navn, format, label, katalognummer, land, aarstal,
beskrivelse FROM names WHERE"
strSQL = strSQL & " (navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (format LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (label LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (katalognummer LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (land LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (aarstal LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (beskrivelse LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver
(*.mdb)};DBQ="&Server.MapPath("odbc_exmp.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Response.Write( strSQL )
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table border=1>"
Response.Write
"<tr><th>Navn</th><th>format</th><th>label</th><th>katalognummer</th><th>lan
d</th><th>aarstal</th><th>Beskrivelse</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("navn") & "</td>"
Response.Write "<td>" & rs("format") & "</td>"
Response.Write "<td>" & rs("label") & "</td>"
Response.Write "<td>" & rs("katalognummer") & "</td>"
Response.Write "<td>" & rs("land") & "</td>"
Response.Write "<td>" & rs("aarstal") & "</td>"
Response.Write "<td>" & rs("Beskrivelse") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</body></html>