Problem med databas.. igen

GeinMedlem sedan sep. 20005 700 inlägg

14 feb. 2001 18:00#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

------------------
"When there's no more room in hell,
the dead will walk the earth."

puzzeMedlem sedan sep. 20005 700 inlägg

14 feb. 2001 18:22#2

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..

------------------
"When there's no more room in hell,
the dead will walk the earth."