---
title: "Problem med databas.. igen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8149-problem-med-databas-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gein"
published: "2001-02-14T18:00:00.000Z"
updated: "2001-02-14T18:22:00.000Z"
replies: 1
views: 112
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/8149-problem-med-databas-igen"
---

# Problem med databas.. igen

## #1 — Gein, 2001-02-14T18:00Z

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

Permalänk: https://www.webforum.nu/p/8149

## #2 — puzze, 2001-02-14T18:22Z

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

Permalänk: https://www.webforum.nu/p/259220

---

Tråden på webben: https://www.webforum.nu/amne/asp/8149-problem-med-databas-igen
