Der er ikke angivet nogen kommandotekst for kommandoobjektet.
Hvad skyldes dette?Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'
Der er ikke angivet nogen kommandotekst for kommandoobjektet.
/wsite/index.asp, line 638
som er: Set recordSet = myConn.Execute(strSQL_search)
<%
' *** her kommer søgning
strKeyword = Trim(Request("Keyword"))
if strKeyword<>"" then
strSQL_search = "SELECT * FROM sider WHERE"
strSQL_search = strSQL_search & GetSQLSearchString(strKeyword, "tekst,menu")
html = html & "fritekst: " & Request("keyword") & "<br>"
end if
%>
<%
'Skaber DSNLess forbindelse til DBen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open MM_content2_STRING
' Skaber et recordset udfra SQL strengen
'response.write strSQL & "<P>"
Set recordSet = myConn.Execute(strSQL_search)
%>
<span class="tekst">Der blev søgt efter</span> <%=html%>
<%
If Not recordSet.EOF Then
' Hvis der er fundet poster på søgningen
Response.Write "<ol>"
Do until recordSet.EOF
Response.Write "<li class=tekst>"
response.write "<A HREF=" & Request.ServerVariables("SCRIPT_NAME") &"?"& "s=" & recordSet("side_id") & "&" & "e="& recordSet("emne_id") &">"& recordSet("menu") & "</A>"
if recordSet("side_id") <> "" then
Response.Write "<span class=tekst>, " &recordSet("menu")& "</span> "
end if
Response.Write "</li>"
recordSet.MoveNext
Loop
Response.Write "</ol>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
