---
title: "Access-koppling med ASP"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43578-access-koppling-med-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Thorsander"
published: "2002-05-12T18:13:55.000Z"
updated: "2002-05-12T18:21:57.000Z"
replies: 2
views: 208
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/43578-access-koppling-med-asp"
---

# Access-koppling med ASP

## #1 — Thorsander, 2002-05-12T18:13Z

Får följande fel:

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

/lmsport/admin/main/about/setchange.asp, line 109
```

Med följande kod:

```
<%
		' Connection string
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=about.mdb;DefaultDir=d:\internet\domains\ngindesign.com\tmp;Uid=Admin;Pwd=;"
	Set rs = Server.CreateObject("ADODB.RecordSet")

	Uppdatera = "SELECT * FROM about WHERE aboutID=" & aboutIDInput & ""
	rs.Open Uppdatera, Connect, 1, 2
	
				rs("aboutID") = aboutIDInput
				rs("aboutText") = aboutTextInput
	
	rs.Update
	rs.Close
	Connect.Close
			
		If Err.number = 0 Then
			Response.Write "Transmission successful ...<br>"
			Else
			Response.Write "Transmission failed - try again or contact <a href=mailto:info@ngindesign.com>Simon Thorsander</a>.<br>"
		End If
	%>
```

Vad göra!?
Någon som kan ge mig en hint...  :i

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

## #2 — Thorsander, 2002-05-12T18:17Z

Nevermind

Jag hittade felet!!!
Kanske inte så konstigt att det inte funkade!!!

Ursäkta att jag upptog din dyrbara tid!

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

## #3 — LarsG, 2002-05-12T18:21Z

Problemet är nog relaterat till att aboutText är av typen PM/Memo skulle jag gissa. Dom måste ligga sist i select-listan och lite så där. 

I stället för att hålla på med recordset och gå över ån efter vatten så skulle rekommendera att du gör detta med sql direkt.

```
<%
' Connection string
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=about.mdb;DefaultDir=d:\internet\domains\ngindesign.com\tmp;Uid=Admin;Pwd=;"
	
Uppdatera = "update about set aboutText = '" & _
replace(aboutTextInput,"'","''") & "'" & _
" where aboutid = " & aboutIDInput
connect.execute uppdatera,,128
Connect.Close

If Err.number = 0 Then
	Response.Write "Transmission successful ...<br>"
Else
	Response.Write "Transmission failed - try again or contact <a href=mailto:info@ngindesign.com>Simon Thorsander</a>.<br>"
End If
%>
```

Det blir mindre och effektivare kod.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/43578-access-koppling-med-asp