Ja det var sjovt. Jeg tror nu det er fordi du i din db ikke har et af de
felter du bruger i din SQL. Har du alle tre "Kunstner", "Titel" og "Kunster"
elles kan jeg ikke se noget der skulle være galt.
held og lykke
Bo Overgaard
"Møller" <moller1@mail1.stofanet.dk> wrote in message
news:9eeelt$mt9$1@sunsite.dk...
> - Ja, nu virkede det sku... og dog...
> - Nu modtager jeg følgende:
>
> SELECT * FROM Tabel1 WHERE Kunstner LIKE '%s%' AND Titel LIKE
> '%s%' ORDER BY Kunster
> Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
>
> [Microsoft][ODBC Microsoft Access Driver] Too few parameters.
> Expected 1.
>
> - ved følgende kode (jeg ved godt at det er meget, men jeg er
> virkelig på den!!)
>
> <body>
> <%
> ' 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 ("\moller06\db\db1.mdb")
> Conn.Open DSN
>
> dim str_field,strSQL
> str_field = Trim(request.querystring("textfield"))
>
> ' SQL forespørgsel
> strSQL = "SELECT * FROM Tabel1 WHERE "
> strSQL = strSQL & "Kunstner LIKE '%" & str_field & "%' AND "
> strSQL = strSQL & "Titel LIKE '%" & str_field & "%' "
> strSQL = strSQL & "ORDER BY Kunster"
> Response.Write strSQL
>
> ' Udfør forespørgsel (rs indeholder nu resultatet)
> Set rs = Conn.Execute(strSQL)
>
> ' Gennemløb Recordset (rs) med en løkke
> Do
>
> ' Udskriv værdien af kolonnen Fornavn
> Response.Write rs("Kunstner") & "<br>"
>
> ' Gå til næste Record i rs
> rs.MoveNext
>
> ' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
> Loop While Not rs.EOF
>
> ' Luk databaseforbindelse
> Conn.Close
> Set Conn = Nothing
> %>
> </body>
>
>
> --
> Dette indlæg er sendt fra
http://www.html.dk
> * Søg og læs i de danske nyhedsgrupper om webdesign
> * Tutorials og artikler om webdesign på dansk