Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Der er en ugyldig SQL-sætning.
"DELETE", "INSERT", "PROCEDURE","SELECT" eller "UPDATE" var ventet.
/index/search.asp, line 33
"nhi" <nhiasy@stofanet.dk> skrev i en meddelelse
news:dKRp6.134$gp5.7177@news101.telia.com...
> Har dette script men virker ikke
> det melder fejl i line 33 ( markeret med stjerne)
>
> <% Response.Buffer = True %>
> <html><head>
> <title>Søgeresultat</title>
>
>
> </head><body bgcolor="#f2d5b3">
>
> <%
> strKeyword = Trim(Request.Form("Keyword"))
>
> If Len(strKeyword) = 0 Then
>
> Response.Clear
> Response.Redirect("fejl-soeg.htm")
> Else
>
> strKeyword = Replace(strKeyword,"'","''")
> End If
>
> ' Opbygger en dynamisk SQL streng
> strSQL = " * FROM k-vare WHERE"
> strSQL = strSQL & " (overskrift LIKE '%" & strKeyword & "%')"
> strSQL = strSQL & " OR (beskrivlese LIKE '%" & strKeyword & "%')"
> strSQL = strSQL & " OR (katagori LIKE '%" & strKeyword & "%')"
> strSQL = strSQL & " OR (pris LIKE '%" & strKeyword & "%')"
>
>
> strDSN = "DRIVER={Microsoft Access Driver
> (*.mdb)};DBQ="&Server.MapPath("databse.mdb")
> Set myConn = Server.CreateObject("ADODB.Connection")
> myConn.Open strDSN
>
>
> 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>Adresse</th><th>By</th><th>Beskrivelse</th></tr>"
> Do While Not rs.EOF
> Response.Write "<tr><td>" & rs("Navn") & "</td>"
> Response.Write "<td>" & rs("Adresse") & "</td>"
> Response.Write "<td>" & rs("Bynavn") & "</td>"
> Response.Write "<td>" & rs("Beskrivelse") & "</td></tr>"
> rs.MoveNext
> Loop
> Response.Write "</table>"
> Else
>
> Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
> End If
>
>
> myConn.Close
> Set myConn = Nothing
> %>
>
> </body></html>
>
>