om jag öppnar en annan databas i slutet av koden, och stänger den, så löses problemet.. förstår inte riktigt vad som är fel... om jag väntar några sekunder, ungefär 30s, så funkar det oxå.. men sen får man vänta igen..
Trådstart#1
nu får jag sånt där dumt fel-meddelande igen..
jag smetar på med hela koden så man inte missar nåt.
<HTML>
<HEAD>
<TITLE>Results for search</TITLE>
<LINK REL="stylesheet" HREF="normal.css" TYPE="text/css">
</HEAD>
<BODY>
<%
Set searchstr = Request.Form("shortenings")
Response.Write searchstr
Response.Write Request.Form("searchtype")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb"))
If Request.Form("searchtype") = "contain" then
SQL = "SELECT * FROM maindb WHERE Shortening LIKE '%"& searchstr &"%' OR Explanation LIKE '%"& searchstr &"%'"
Set RecSet = Connect.Execute(SQL)
elseif Request.Form("searchtype") = "start with" then
SQL = "SELECT * FROM maindb WHERE Shortening LIKE '"& searchstr &"%' OR Explanation LIKE '"& searchstr &"%'"
Set RecSet = Connect.Execute(SQL)
elseif Request.Form("searchtype") = "end with" then
SQL = "SELECT * FROM maindb WHERE Shortening LIKE '%"& searchstr &"' OR Explanation LIKE '%"& searchstr &"'"
Set RecSet = Connect.Execute(SQL)
elseif Request.Form("searchtype") = "be" then
SQL = "SELECT * FROM maindb WHERE Shortening = '"& searchstr &" ' OR Explanation = '"& searchstr &" '"
Set RecSet = Connect.Execute(SQL)
end if
%>
<% If RecSet.EOF then
Response.Redirect "search.asp?none"
Else %>
<TABLE CELLSPACING="2">
<TR>
<TD WIDTH="80" BGCOLOR="#394A63">
<FONT FACE="Verdana" SIZE="1" COLOR="WHITE"> Shortening: </FONT>
</TD>
<TD WIDTH="150" BGCOLOR="#394A63">
<FONT FACE="Verdana" SIZE="1" COLOR="WHITE">Explanation:</FONT>
</TD>
<TD WIDTH="100" BGCOLOR="#394A63">
<FONT FACE="Verdana" SIZE="1" COLOR="WHITE">Category:</FONT>
</TD>
</TR>
<TR>
<% Do Until RecSet.EOF %>
<TD BGCOLOR="#536785" WIDTH="80">
<FONT FACE="Verdana" SIZE="1">
<%= RecSet("Shortening") %></A>
</TD>
<TD BGCOLOR="#536785" WIDTH="200">
<FONT FACE="Verdana" SIZE="1">
<%= RecSet("Explanation") %></A>
</TD>
<TD BGCOLOR="#536785" WIDTH="100">
<FONT FACE="Verdana" SIZE="1">
<%= RecSet("Category") %></A>
</TD>
</TR>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
End If
%>
</TABLE>
</BODY>
</HTML>
förra gången jag fick samma fel-meddelande trodde jag att det var för jag missat köra RecSet.Close, men jag gör ju det i denna kod så.. jag vet inte vart felet ligger..
felmeddelande:
Feltyp:
Provider (0x80004005)
Odefinierat fel
/searchresults.asp, line 15