---

Hej eksperter, kan jeg mon endnu engang trække på jeres ekspertise ?.

Får denne meddelse.

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing
operator) in query expression 'Link Titel LIKE '%Sample Link%''

Her er kodestumpen.

SQL = "Select * From Links Where " & request.form("txtSearchIn") & "
LIKE '%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
set RS=Server.CreateObject("adodb.Recordset")
'response.write SQL
RS.Open SQL, dbc, adopenstatic

Hvor er fejlen og hvad er løsningen, for jeg ser mig blind på det lige
nu.

Mvh
Søren

---

S. larsen skrev:

> [Microsoft][ODBC Microsoft Access Driver] Syntax error
> (missing
> operator) in query expression 'Link Titel LIKE '%Sample
> Link%''

Standardsvar ved fejl i sql-forespørgsler: Udskriv din sql-variabel
så man kan se præcis hvilken forespørgsel du kører.

Se metoden her: <http://asp-faq.dk/article/?id=41>.


> SQL = "Select * From Links Where " &
> request.form("txtSearchIn") & "
> LIKE '%" & request.form("txtKeywords") & "%' ORDER BY

Generelt er det en dårlig ide at sende formdata direkte videre til
en sql-sætning uden at validere først. Se forklaring på siden her:
<http://asp-faq.dk/article/?id=95>


> 'response.write SQL

Hov - du har allerede en udskriftslinje liggende parat. Hvad får du
hvis du fjerner udkommenteringen her?
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

S. larsen wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej eksperter, kan jeg mon endnu engang trække på jeres ekspertise ?.
>
> Får denne meddelse.
>
> Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
>
> [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing
> operator) in query expression 'Link Titel LIKE '%Sample Link%''
>
> Her er kodestumpen.
>
> SQL = "Select * From Links Where " & request.form("txtSearchIn") & "
> LIKE '%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
> set RS=Server.CreateObject("adodb.Recordset")
> 'response.write SQL
> RS.Open SQL, dbc, adopenstatic
>
> Hvor er fejlen og hvad er løsningen, for jeg ser mig blind på det lige
> nu.

Første tip er altid at udskrive sql-strengen, så du kan se hvordan den ser ud.
Jeg kan endda se du har koden (response.write SQL) klar, men hvad giver det..?

Jeg tror nu at fejlen ligger i at du har:
... WHERE link titel LIKE '...' <- din kode
Syntaksen for LIKE er
... WHERE felt LIKE '...' <- rigtigt
Men du har skrevet 2 felter, der hvor der kun skal stå 1 felt:
... WHERE felt1 felt2 LIKE '...' <- forkert
Måske er det dette du i virkeligheden mener:
... WHERE link LIKE '...' OR titel LIKE '...'

mvh Torben

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"S. larsen" <info@stass.dk> skrev i en meddelelse
news:4252f76d$0$43987$14726298@news.sunsite.dk...
> Hej eksperter, kan jeg mon endnu engang trække på jeres ekspertise ?.
>
> Får denne meddelse.
>
> Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
>
> [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing
> operator) in query expression 'Link Titel LIKE '%Sample Link%''
>
> Her er kodestumpen.
>
> SQL = "Select * From Links Where " & request.form("txtSearchIn") & "
> LIKE '%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
> set RS=Server.CreateObject("adodb.Recordset")
> 'response.write SQL
> RS.Open SQL, dbc, adopenstatic
>
> Hvor er fejlen og hvad er løsningen, for jeg ser mig blind på det
> lige nu.
>
> Mvh
> Søren
>
>
>
Nå, nu har jeg prøvet lidt frem og tilbage, efter jeres råd. har også
skrevet til dem der har lavet scriptet, dog uden resultat. Jeg er absolut
ingen ørn til asp, så jeg er meget på bar bund lige pt.

Når/hvis man søger kan man vælge at søge enten på titel eller i beskrivelsen
af et link.

Vælger jeg det første får jeg denne fejl.


Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in
query expression 'Link Titel Like '%link%''.

links1.asp, line 1335

Dette skulle være den sidste linie her.

Sub SearchExecute

SQL = "Select * From Links Where " & request.form("txtSearchIn") & " Like
'%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
set RS=Server.CreateObject("adodb.Recordset")
'response.write SQL
RS. Open SQL, dbc, adopenstatic



Søger jeg i beskrivelse får jeg denne fejl.



Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

links1.asp, line 1335

Altså samme linie.

Jeg har prøvet at fjerne og tilføje som forslået, men det bliver det ikke
bedre af.



Søren

---

S. larsen skrev:

> Jeg har prøvet at fjerne og tilføje som forslået, men det bliver det ikke
> bedre af.

Hvad har du præcist prøvet? Både Torben og jeg har bedt dig om at
udskrive din sql-streng. Prøv det, og vis os så hvad udskriften giver.

NB: Du må gerne klippe lidt i dine citater. Se evt. min signatur.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:ny7kwbqg99oi$.dlg@jcdmfdk.invalid...
> S. larsen skrev:
>
>> Jeg har prøvet at fjerne og tilføje som forslået, men det bliver det ikke
>> bedre af.
>
> Hvad har du præcist prøvet? Både Torben og jeg har bedt dig om at
> udskrive din sql-streng. Prøv det, og vis os så hvad udskriften giver.
>
> NB: Du må gerne klippe lidt i dine citater. Se evt. min signatur.
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

Jens, hvis jeg har forstået det ret, skal jeg sætte lidt ekstra kode ind,
for at udskrive strengen.

Men hvor, det ved jeg ikke, vil du venligst fortælle det.

Søren

---

S. larsen skrev:

> Jens, hvis jeg har forstået det ret, skal jeg sætte lidt ekstra kode ind,
> for at udskrive strengen.

Netop. Du kan bare fjerne udkommateringen af Reponse.write.

> Men hvor, det ved jeg ikke, vil du venligst fortælle det.

Du har en linje der ser således ud:

'response.write SQL

Ret den til:

response.write SQL

- og tilføj evt. følgende efter linjen:

   Reponse.End

Metoden er også beskrevet her: <http://asp-faq.dk/article/?id=41>

--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:j9o6gb0spsjp.dlg@jcdmfdk.invalid...
> S. larsen skrev:
>
>> Jens, hvis jeg har forstået det ret, skal jeg sætte lidt ekstra kode ind,
>> for at udskrive strengen.
>
> Netop. Du kan bare fjerne udkommateringen af Reponse.write.
>
>> Men hvor, det ved jeg ikke, vil du venligst fortælle det.
>
> Du har en linje der ser således ud:
>
> 'response.write SQL
>
> Ret den til:
>
> response.write SQL
>
> - og tilføj evt. følgende efter linjen:
>
> Reponse.End
>
> Metoden er også beskrevet her: <http://asp-faq.dk/article/?id=41>
>
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

Tak

Så skulle det sige sådan her ved søgning

Select * From Links Where Beskrivelse Like '%link%' ORDER BY LinkTitle;
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/links1.asp, line 1335

Koden endnu engang

SQL = "Select * From Links Where " & request.form("txtSearchIn") & "
LIKE '%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
set RS=Server.CreateObject("adodb.Recordset")
'response.write SQL
RS.Open SQL, dbc, adopenstatic <----1335

Håber dette så er måden.

Søren

---

S. larsen skrev:

> Select * From Links Where Beskrivelse Like '%link%' ORDER BY LinkTitle;

O.k. - nu kan man se noget. Det ser nu umiddelbart fint ud - men prøv at
fjerne det afsluttende semikolon. Det er i hvert fald ikke nødvendigt -
måske er det dét der volder problemer.


> Koden endnu engang
>
> SQL = "Select * From Links Where " & request.form("txtSearchIn") & "
> LIKE '%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
> set RS=Server.CreateObject("adodb.Recordset")
> 'response.write SQL

Herover er udkommateringen jo ikke fjernet. Er du helt sikker på at din
udskrift af sql-variablen ligger lige før RS.Open-linjen?

--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:1st3vqykg03cx.dlg@jcdmfdk.invalid...
> S. larsen skrev:
>
>> Select * From Links Where Beskrivelse Like '%link%' ORDER BY LinkTitle;
>
> O.k. - nu kan man se noget. Det ser nu umiddelbart fint ud - men prøv at
> fjerne det afsluttende semikolon. Det er i hvert fald ikke nødvendigt -
> måske er det dét der volder problemer.
>
>
>> Koden endnu engang
>>
>> SQL = "Select * From Links Where " & request.form("txtSearchIn") & "
>> LIKE '%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
>> set RS=Server.CreateObject("adodb.Recordset")
>> 'response.write SQL
>
> Herover er udkommateringen jo ikke fjernet. Er du helt sikker på at din
> udskrift af sql-variablen ligger lige før RS.Open-linjen?
>
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

Jens

Det sidste først. Jeg gjorde som du skrev og fjernede bare ' og tilføjede
Reponse.End

Nu har jeg fjernet semikolon, Ingen forskel.
Så har jeg fjernet: 'response.write SQL Ingen forskel, udover at den
rykker fejllinien.

Igår prøvede jeg Torbens ide, den gav heller ikke noget.

Søren

---

S. larsen wrote in dk.edb.internet.webdesign.serverside.asp:
> Så skulle det sige sådan her ved søgning
>
> Select * From Links Where Beskrivelse Like '%link%' ORDER BY LinkTitle;
> Microsoft VBScript runtime error '800a01a8'
>
> Object required: ''
>
> /links1.asp, line 1335
>
> Koden endnu engang
>
> SQL = "Select * From Links Where " & request.form("txtSearchIn") & "
> LIKE '%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
> set RS=Server.CreateObject("adodb.Recordset")
> 'response.write SQL
> RS.Open SQL, dbc, adopenstatic <----1335

Du må have rettet noget mere... Før fik du en fejl om at databasen ikke forstod
hvad du spurgte den om. Nu får du en fejl allerede idet databasen bliver
kontaktet...

/Torben

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

"Torben Brandt" <ukendt1000@hotmail.com> skrev i en meddelelse
news:4254483d$0$43985$14726298@news.sunsite.dk...
> S. larsen wrote in dk.edb.internet.webdesign.serverside.asp:
>> Så skulle det sige sådan her ved søgning
>>
>> Select * From Links Where Beskrivelse Like '%link%' ORDER BY LinkTitle;
>> Microsoft VBScript runtime error '800a01a8'
>>
>> Object required: ''
>>
>> /links1.asp, line 1335
>>
>> Koden endnu engang
>>
>> SQL = "Select * From Links Where " & request.form("txtSearchIn") & "
>> LIKE '%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle;"
>> set RS=Server.CreateObject("adodb.Recordset")
>> 'response.write SQL
>> RS.Open SQL, dbc, adopenstatic <----1335
>
> Du må have rettet noget mere... Før fik du en fejl om at databasen ikke
> forstod
> hvad du spurgte den om. Nu får du en fejl allerede idet databasen bliver
> kontaktet...
>
> /Torben
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! => http://www.html.dk/tutorials

Nej Torben

Jeg har kun gjort som i foreslog. Da dette ikke havde den ønskede effekt,
satte jeg tingen tilbage til nul igen. Rigtigt at den siger noget andet,
men jeg har ikke rørt noget.
Jeg tog en kopi af originalen, inden jeg forsøgte med jeres forslag. Da jeg
var færdig lagde jeg kopien ind.

Søren

---

S. larsen skrev:

> Det sidste først. Jeg gjorde som du skrev og fjernede bare '
> og tilføjede Reponse.End

Bruger du option explicit? Hvis nej, så sæt det på nu.

(se evt. her: <http://asp-faq.dk/article/?id=9>)

> Nu har jeg fjernet semikolon, Ingen forskel.
> Så har jeg fjernet: 'response.write SQL Ingen forskel,

Det lyder meget mærkeligt. Prøv evt. at give et link til en
tekstversion af din asp-side (bare gem den som .txt i stedet for
..asp og læg den op et sted - fjern om nødvendigt adgangskoder mv.,
men ret ikke yderligere i den)

NB: Du må gerne klippe lidt i dine citater. Se evt. min signatur.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns9631F30851034jcdmfdk@gyrosmod.cybercity.dk...
> S. larsen skrev:
>
>> Det sidste først. Jeg gjorde som du skrev og fjernede bare '
>> og tilføjede Reponse.End
>
> Bruger du option explicit? Hvis nej, så sæt det på nu.
>
> (se evt. her: <http://asp-faq.dk/article/?id=9>)
>
>> Nu har jeg fjernet semikolon, Ingen forskel.
>> Så har jeg fjernet: 'response.write SQL Ingen forskel,
>
> Det lyder meget mærkeligt. Prøv evt. at give et link til en
> tekstversion af din asp-side (bare gem den som .txt i stedet for
> .asp og læg den op et sted - fjern om nødvendigt adgangskoder mv.,
> men ret ikke yderligere i den)
>
> NB: Du må gerne klippe lidt i dine citater. Se evt. min signatur.
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på http://usenet.dk/netikette/citatteknik.html

Hej Jens

Jeg må ærligt indrømme, at jeg var ved at opgive scriptet. Det begyndte at
melde en anden fejl også. Nå men så prøvede jeg at gå op og hente det engang
mere, og ikke om jeg fatter det. Nu virker alt. Nu giver jeg det lige
weekenden over. Tester det, kigger koden igennem, for at sammenligne. Så
skal jeg vende tilbage.

God weekend

Søren

---

Ved ikke om det er til hjælp, ellers se bort herfra, men her er den del af
scriptet der indeholder søgedelen. Det originale, blot tilrettet lidt med
danske ord.

Søren

'**************************************************************************
'******** Søg
'**************************************************************************

Sub Search

response.write "<html><head><title>Søg</title></head><body>"
response.write "<div align='center'><center>"
response.write "<table " & AdminTableTag & "><tr>"
response.write "<td width='100%' bgcolor='" & AdminHeaderBackColor &
"'><font " & AdminHeaderFontTag & "><b>Søg</b></font></td>"
response.write "</tr><tr><td width='100%'>"
response.write "<form method='POST'
action='links.asp?action=searchexecute'>"
response.write "<table border='0' width='100%' cellspacing='0'
cellpadding='3'>"
response.write "<tr><td width='30%' align='right' valign='top'><font " &
AdminFontTag & "><b>Søg:</b></font></td>"
response.write "<td width='70%'><input type='text' name='txtKeywords'
size='43'></td></tr><tr>"
response.write "<td width='30%' align='right' valign='top'><font " &
AdminFontTag & "><b>Søg i:</b></font></td>"
response.write "<td width='70%'><input type='radio' name='txtSearchIn'
value='Link Titel'><font face='Tahoma' size='2'>Title <input type='radio'
name='txtSearchIn' value='Beskrivelse'>Beskrivelse</font></td></tr><tr>"
response.write "<td width='30%' align='right' valign='top'><font " &
AdminFontTag & "><b></b></font></td>"
response.write "<td width='70%'><input type='submit' value='Søg'
name='B1'></td></tr>"
response.write
"</table></form></td></tr></table></center></div></body></html>"

End Sub

'--------------------------------------------------------------------------
'-------- Søge script
'--------------------------------------------------------------------------

Sub SearchExecute

SQL = "Select * From Links Where " & request.form("txtSearchIn") & " Like
'%" & request.form("txtKeywords") & "%' ORDER BY LinkTitle"
set RS=Server.CreateObject("adodb.Recordset")
'response.write SQL
RS. Open SQL, dbc, adopenstatic

If NeedApproval = "YES" then
RS.Filter = "Live = '1'"
End If

If RS.RecordCount = 0 then
response.write "Der er ingen links i denne kategori!"
exit sub
End if

FirstLink = ((Page * RecordsPerPage) - RecordsPerPage) + 1
LastLink = ((Page * RecordsPerPage) - RecordsPerPage) + RecordsPerPage
TotalLinks = RS.RecordCount
If LastLink > TotalLinks then
LastLink = TotalLinks
End if

n = 0

RS.PageSize = RecordsPerPage

Call DrawTopNavigation

Do until RS.EOF

response.write "<table " & LinkTableTag & ">"
response.write "<tr>"
response.write "<td width='50%' bgcolor=" & LinkHeaderBackColor & "><b><a
href=javascript:Start('links.asp?gotolink=" & RS("LinkID") & "')><font " &
LinkHeaderFontTag & ">" & RS("LinkTitle") & "</a>"
DaysNew = DateDiff("d", RS("LinkDateAdded"), Now)
Hot = RS("LinkVisits")

if DaysNew <= NumberOfDaysNew Then
response.write "<img border=0 src='links/default_newicon.jpg'>"
end if

if Hot > HotRating Then
response.write "<img border=0 src='links/default_hoticon.jpg'>"
end if

If Session("LoggedIn") = "YES" then
response.write "<font face=tahoma size=1 color=red> <a
href='links.asp?action=deletelink&link=" & RS("LinkID") & "&cat=" &
request.querystring("cat") & "'>Slet</a></font> - "
response.write "<font face=tahoma size=1 color=red> <a
href='links.asp?action=editlink&link=" & RS("LinkID") & "&cat=" &
request.querystring("cat") & "'>Rediger</a></font>"
End If

response.write "</font></b></td>"
response.write "<td width='50%' bgcolor=" & LinkHeaderBackColor & ">"

SQLx = "Select AVG(Rating) From Ratings Where LinkID=" & RS("LinkID") &
";"
set RSx=Server.CreateObject("adodb.Recordset")
RSx.Open SQLx, dbc, adopenstatic


If RSx.EOF then
RatingAverage = "Not Rated"
Else
RatingAverage = RSx(0)
End If

RSx.Close
Set RSx=nothing

response.write "<p align='right'><b><a
href='links.asp?action=ratelink&linkID=" & RS("LinkID") & "'><font " &
LinkHeaderButtonsFontTag & ">Stem på linket</a> | Snit: "
If RatingAverage <> "Not Rated" then
For Z = 1 to RatingAverage
response.write "<img src='links/default_rating.jpg'>"
Next
Else
response.write "Not Rated"
End If
RatingAverage = 0
response.write "</font></b></td>"
response.write "</tr><tr>"
response.write "<td width='100%' colspan='2'>"
response.write "<table " & DescriptionTableTag & ">"
response.write "<tr>"
response.write "<td width='100%' colspan='2'><font " & DescriptionFontTag
& "><b>Beskrivelse: </b>"
response.write RS("LinkDescription")
response.write "</font></td></tr>"
response.write "<tr>"
response.write "<td width='50%' bgcolor=" & LinkFooterBackColor & "><a
href=javascript:Start('links.asp?gotolink=" & RS("LinkID") & "')><font " &
LinkFooterFontTag & ">" & RS("LinkURL")
response.write "</font></a></td>"
response.write "<td width='50%' bgcolor=" & LinkFooterBackColor & ">"
response.write "<p align='right'><font " & LinkFooterFontTag &
"><b>Tilføjet d: </b>" & RS("LinkDateAdded") & " | <b>Hits: " &
RS("LinkVisits") & "</b>"
response.write "</font></td>"
response.write "</tr></table></td></tr></table>"
response.write "<br>"

RS.MoveNext
n=n+1
loop

'Call DrawNavigation

RS.Close
Set RS=Nothing

End Sub