WO ist bei der 2. Abfrage der Fehler? Tabellen texte und menu sind im Aufbau
und Struktur v�llig unterschiedlich.
Fehlermeldung im Browser:
-------------------------
Microsoft OLE DB Provider for ODBC Drivers- Fehler '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntaxfehler (fehlender Operator)
in Abfrageausdruck 'id='.
/cgi-bin/website.asp, line 492
Code (function)
---------------
function suchen()
gHeadline="Suchergebnis"
dim lRs
dim lRs2
lSuchbegriff=TRIM(Request.Form("Suchbegriff"))
'--- nichts eingegeben, dann zur�ck zur Suchmaske
if len(lSuchbegriff)=0 then
Response.clear
Response.Redirect(gExe&"?fkt=suchmaske&menu="&gMenuId)
end if
'---Abfrage 1 auf DB, Tabelle Texte
Set lRs=gDb.Execute("SELECT * FROM texte WHERE text LIKE '%" &lSuchbegriff
&"%' ")
'Set lRs=gDb.Execute("SELECT menu.id, menu.display FROM menu WHERE
EXISTS(SELECT * FROM texte WHERE menu.id=texte.such AND texte.text LIKE '%"
&lSuchbegriff & "%')")
if lRs.eof then '--nichts gefunden
lContent="<br><table border=0 cellpadding=0 cellspacing=0><tr><td
valign=top><img src=""/pic/kreuz.gif"" width=10 height=10> </td><td
valign=top><font class=hervorhebung> Der eingegebene Suchbegriff konnte
nicht gefunden werden. Versuchen Sie es evtl. mit einem anderen Suchbegriff
erneut.</font></td></table>" _
& "<br><br><font color=#E17A2E><a href=""javascript:history.back()""
STYLE=""color: #E17A2E;"">zur�ck zur Suchmaske</a></font>"
else '--Suchergebnisse aufbereiten
lMenuID=lRs("such")
lContent="<br><font class=text>Suchergebnisse f�r den Begriff
'</font><font class=hervorhebung>"&lSuchbegriff&"'</font><br><br>"
lContent=lContent&"<table>"
do until lRs.eof
lMenu=lRs("such")
lText=lRs("text")
'---Abfrage 2 auf Tabelle Menu
dim SQL
SQL = "SELECT * FROM menu WHERE id=" & lMenu &" ORDER BY id"
Set lRs2=gDb.Execute(SQL)
do until lRs2.eof
if not lRs2.eof then
lBemerkung=lRs2("bemerkung")
lFkt=lRs2("fkt")
end if
if lMenuID=lRs2("id") then
'--LINK erstellen
lContent=lContent&"<tr><td><img
src=""/pic/quadrat.gif"">
"&Makelink(lRs("bemerkung"),gExe&"?menu="&lMenu&"&fkt="&lFkt,"link","")&"</t
d></tr>"
end if
'--einen Datensatz weiter gehen
lRs2.movenext
loop
'---TEST
'gHaupttext=gHaupttext&"<b> "&lRs.PageCount
'--einen Datensatz weiter gehen
lRs.movenext
loop
end if
gHaupttext=gHaupttext&lContent&"</table>"
end function
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
