Problem med databas

Jag har lite problem med min databas jag har.. jag kan komma in på sidan och öppna den, databasen öppnas, sidan körs. men vill jag sedan uppdatera sidan så funkar det inte. troligtvis för att databasen fortfarande är öppen. För om jag väntar några sekunder så funkar det igen. MEN jag stänger ju databasen med kommandot Connect.Close... ta en titt på koden och se om ni kan hjälpa mej.. tack!

<%
Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb"))
%>
 <%
		SQL = "SELECT * FROM adminadd"
			Set RecSet = Connect.Execute(SQL)
%>

tjafs

	<%
			Do until RecSet.EOF
					If tempcat = RecSet("Category") then
					else
						tempcat = RecSet("Category")
						%>
						<OPTION><%=RecSet("Category")%></OPTION>
						<%
					End If
					RecSet.MoveNext
			Loop
			Connect.Close
	%>

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

löste det, hade glömt att stänga RecSet..
men jag har ett annat problem iaf

<%

	short 		= Request.Form("short")
	expl 		= Request.Form("exp")
	category 	= Request.Form("category")
	newcat		= Request.Form("newcat")

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb"))

	If not newcat = "" then
		category = newcat
	End If
	SQL = "INSERT INTO adminadd ([Shortening], [Explanation], [Category]) VALUES ('"& short &"','"& expl &"','"& category &"')"
	Set RecSet = Connect.Execute(SQL)
	RecSet.Close
	Connect.Close
	Response.Redirect("admin.asp")
%>

felmeddelande:

Feltyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access] Operationen måste använda en fråga som kan uppdateras.
/adminadd.asp, line 15

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

Kolla in hur rättigheterna på mappen där .mdb filen ligger ... kolla oxå att det är rätt rättigheter på filen oxå.

cya,

------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function

Prova att göra så här istället:

SQL = "INSERT INTO adminadd ([Shortening], [Explanation], [Category]) VALUES ('"& short &"','"& expl &"','"& category &"')"
Connect.Execute(SQL)
Connect.Close
Response.Redirect("admin.asp")

Du behöver inte skapa ett recordset om du bara ska uppdatera eller lägga till data i databasen.

mvh André

jag tror det har nåt med rättigheterna att göra som sagt, jag kör IIS och vet inte riktigt hur man ska ändra rättigheterna för mappen, tycker jag har valt alla rättigheter ändå så funkar det inte... :/

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

Nu hittade jag felet.. Tack för hjälpen! blev tvungen att ändra rättigheterna på databasfilen..

Tack så mycket!
/Patrik

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

vars'god .....

------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function