Microsoft OLE DB Provider for ODBC Drivers error '80040e09'
Microsoft OLE DB Provider for ODBC Drivers error '80040e09'[TCX][MyODBC]You have an error in your SQL syntax near '' at line 1
/fotoarkiv.asp, line 215
Denne fejl får jeg og jeg er træt og jeg kan ikke se klart mere - help needed!
Linje 215 er denne:
SQL = "select * from diasliste where kategori_dansk or underkat_dansk = "& strkat
Set rs = objConn.Execute(SQL)
Der er meget kode og og jeg regner ikke med du kan overskue det hele - jeg tror det har noget med mine recordsets at gøre - jeg synes jeg har gjort alt - men jeg er som sagt træt.
Plz hjælp mig.
Koden er her:
<form name="sog" method="post" action="fotoarkiv.asp">
<input type="text" name="sogefelt" value="Søgeord" onFocus="if (this.value == 'Søgeord') this.value = '';" onBlur="if (this.value == '') this.value = 'Søgeord';">
<br><br>
<select name="sog_kat" size="1">
<option selected value="alle">Søg i alle kategorier</option>
<%
strSQL = "SELECT planter_dansk FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
%>
<option value="planter"> -- planter -- </option>
<%
Do While Not objrs.EOF
If NOT objrs("planter_dansk")="" OR objrs("planter_dansk")=NULL Then
%>
<option value="<%= objrs("planter_dansk")%>"><%= objRs("planter_dansk") %></option>
<%
else
end if
objrs.MoveNext
loop
strSQL = "SELECT svampe_dansk FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
%>
<option value="svampe"> -- svampe -- </option>
<%
Do While Not objrs.EOF
If NOT objrs("svampe_dansk")="" OR objrs("svampe_dansk")=NULL Then
%>
<option value="<%= objrs("svampe_dansk")%>"><%= objRs("svampe_dansk") %></option>
<%
else
end if
objrs.MoveNext
loop
strSQL = "SELECT laver_dansk FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
%>
<option value="laver"> -- laver -- </option>
<%
Do While Not objrs.EOF
If NOT objrs("laver_dansk")="" OR objrs("laver_dansk")=NULL Then
%>
<option value="<%= objrs("laver_dansk")%>"><%= objRs("laver_dansk") %></option>
<%
else
end if
objrs.MoveNext
loop
strSQL = "SELECT dyr_dansk FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
%>
<option value="dyr"> -- dyr -- </option>
<%
Do While Not objrs.EOF
If NOT objrs("dyr_dansk")="" OR objrs("dyr_dansk")=NULL Then
%>
<option value="<%= objrs("dyr_dansk")%>"><%= objRs("dyr_dansk") %></option>
<%
else
end if
objrs.MoveNext
loop
strSQL = "SELECT landskab_dansk FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
%>
<option value="landskaber"> -- landskaber -- </option>
<%
Do While Not objrs.EOF
If NOT objrs("landskab_dansk")="" OR objrs("landskab_dansk")=NULL Then
%>
<option value="<%= objrs("landskab_dansk")%>"><%= objRs("landskab_dansk") %></option>
<%
else
end if
objrs.MoveNext
loop
strSQL = "SELECT energi_dansk FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
%>
<option value="energi og miljø"> -- energi og miljø -- </option>
<%
Do While Not objrs.EOF
If NOT objrs("energi_dansk")="" OR objrs("energi_dansk")=NULL Then
%>
<option value="<%= objrs("energi_dansk")%>"><%= objRs("energi_dansk") %></option>
<%
else
end if
objrs.MoveNext
loop
strSQL = "SELECT mennesker_dansk FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
%>
<option value="mennesker og natur"> -- mennesker og natur -- </option>
<%
Do While Not objrs.EOF
If NOT objrs("mennesker_dansk")="" OR objrs("mennesker_dansk")=NULL Then
%>
<option value="<%= objrs("mennesker_dansk")%>"><%= objRs("mennesker_dansk") %></option>
<%
else
end if
objrs.MoveNext
loop
strSQL = "SELECT andre_dansk FROM dropdown ORDER By id"
Set objRS = objconn.Execute(strSQL)
%>
<option value="andre billeder"> -- andre billeder -- </option>
<%
Do While Not objrs.EOF
If NOT objrs("andre_dansk")="" OR objrs("andre_dansk")=NULL Then
%>
<option value="<%= objrs("andre_dansk")%>"><%= objRs("andre_dansk") %></option>
<%
else
end if
objrs.MoveNext
loop
%>
</select>
<br><br>
<input type="submit" name="submit" value="Søg" class="button">
</form>
<%
strquery = Trim(request.form("sogefelt"))
strquery = Replace(strquery,"'","''")
strkat = request.form("sog_kat")
response.write strquery
SQL = "select * from diasliste where kategori_dansk or underkat_dansk = "& strkat
Set rs = objConn.Execute(SQL)
strresult ="select thumbnail, dias, bestillingsnr, fotograf, beskrivelse, dansk_navn, videnskabeligt_navn, geografisk_lokalitet, land, teknisk_info from diasliste where "
strresult = strresult&" ( bestillingsnr LIKE '%" & strquery & "%')"
strresult = strresult&" or ( fotograf LIKE '%" & strquery & "%')"
strresult = strresult&" or ( billedformat LIKE '%" & strquery & "%')"
strresult = strresult&" or ( pictureformat LIKE '%" & strquery & "%')"
strresult = strresult&" or ( beskrivelse LIKE '%" & strquery & "%')"
strresult = strresult&" or ( description LIKE '%" & strquery & "%')"
strresult = strresult&" or ( emneord LIKE '%" & strquery & "%')"
strresult = strresult&" or ( captions LIKE '%" & strquery & "%')"
strresult = strresult&" or ( dansk_navn LIKE '%" & strquery & "%')"
strresult = strresult&" or ( roedliste_status LIKE '%" & strquery & "%')"
strresult = strresult&" or ( videnskabeligt_navn LIKE '%" & strquery & "%')"
strresult = strresult&" or ( engelsk_navn LIKE '%" & strquery & "%')"
strresult = strresult&" or ( familie_latin LIKE '%" & strquery & "%')"
strresult = strresult&" or ( familie_dansk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( familie_engelsk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( orden_latin LIKE '%" & strquery & "%')"
strresult = strresult&" or ( orden_dansk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( orden_engelsk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( geografisk_lokalitet LIKE '%" & strquery & "%')"
strresult = strresult&" or ( naturtype LIKE '%" & strquery & "%')"
strresult = strresult&" or ( naturetype LIKE '%" & strquery & "%')"
strresult = strresult&" or ( amt LIKE '%" & strquery & "%')"
strresult = strresult&" or ( land LIKE '%" & strquery & "%')"
strresult = strresult&" or ( country LIKE '%" & strquery & "%')"
strresult = strresult&" or ( aarstid LIKE '%" & strquery & "%')"
strresult = strresult&" or ( season LIKE '%" & strquery & "%')"
strresult = strresult&" or ( kategori_dansk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( kategori_engelsk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( underkat_dansk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( underkat_engelsk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( kommentar_dansk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( kommentar_engelsk LIKE '%" & strquery & "%')"
strresult = strresult&" or ( teknisk_info LIKE '%" & strquery & "%')"
strresult = strresult&" or ( teknisk_info_engelsk LIKE '%" & strquery & "%')"
set objres = objconn.execute(strresult)
If Not (objres.BOF Or objres.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<b>Søgeresultat</b><br><br>"
Do While Not objres.EOF
Response.Write "<tr><td colspan='6' valign='top'><a href=""#"" onclick=""java script:window.open('seresul.asp?Id=" & objReS("ID") & "','popup','height=150,width=270,menubar=no,scrollbars=no,toolbar=no,status=no,location=no');return false;""><img src='..\_thumb\" & thumbnail & "'><br><br></td>"
objres.MoveNext
Loop
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<b>Intet resultat</b>"
End If
objConn.Close
Set objConn = Nothing
%>
