---
title: "OLE fel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11694-ole-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "dekt"
published: "2001-09-20T06:48:00.000Z"
updated: "2001-09-20T06:54:00.000Z"
replies: 1
views: 308
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/11694-ole-fel"
---

# OLE fel

## #1 — dekt, 2001-09-20T06:48Z

Hej... Vad har jag egentligen gjort för fel när jag får detta meddelande?

\================================
Microsoft OLE DB Provider for ODBC Drivers error '80040e21' 

Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. 

/oskar/1office/nyhet_store.asp, line 22 
\==================================

Koden ser ut så här:
\==================================
\<%

If Session("nivo") =\> 1 Then
	'Använadren har behörighet
Else
	Response.Redirect("login.asp")
End If
	
	Set Connect=server.CreateObject("adodb.connection")
	Set RS = Server.CreateObject("ADODB.Recordset")
	Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)}; DBQ=" & server.mappath("hemligdatabas.mdb")

	If Session("id") = "" Then
		Kolla = "SELECT \* FROM Nyheter"
		RS.Open Kolla, Connect, 3, 3
		RS.AddNew
		Titel = Session("titel")
 	        Ingress = Cstr(Replace(Session("ingress"), vbCrLf, "\<br\>"))
		Nyhet = Cstr(Replace(Session("nyhet"), vbCrLf, "\<br\>"))
		Forfattare = Session("forfattare")
		RS("Titel") = Titel
		RS("Ingress") = Ingress ' RAD 22
		RS("Nyhet") = Nyhet
		RS("Forfattare") = Forfattare
		RS("Datum") = Date
		RS.Update
		URL = "controls.asp?mess=1_1"
	Else
		Kolla = "SELECT \* FROM Nyheter WHERE ID = " & Session("id")
		RS.Open Kolla, Connect, 3, 3
		RS("Titel") = Session("titel")
		RS("Ingress") = Replace(Session("ingress"), vbCrLf, "\<br\>")
		RS("Nyhet") = Replace(Session("nyhet"), vbCrLf, "\<br\>")
		RS("Forfattare") = Session("forfattare")
		RS.Update
		URL = "controls.asp?mess=2_2"
	End If

	RS.Close	
	Connect.Close

	Session("titel") = ""
	Session("ingress") = ""
	Session("nyhet") = ""
	Session("forfattare") = ""
	Session("id") = ""

	Set Connect = Nothing
	Set RS = Nothing

	Response.Redirect(URL)
%\>
\==========================

\[Redigerat av dekt den 20 sep 2001\]

\[Redigerat av dekt den 20 sep 2001\]

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

## #2 — @nders, 2001-09-20T06:54Z

Se LarsGs svar i denna tråd:
 <http://cgi.webforum.nu/wf/Forum11/HTML/004294.html> 

Kan det hjälpa?

Annars, har du sökt här på wF på *operation generated errors*? Det kanske kan ge dig en del tips.

Sökfunktionen har du uppe till höger.

Mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11694-ole-fel