---
title: ":( Kan ej radera"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/62838-kan-ej-radera"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "datam"
published: "2002-12-21T18:06:08.000Z"
updated: "2002-12-22T11:06:16.000Z"
replies: 3
views: 211
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/62838-kan-ej-radera"
---

# :( Kan ej radera

## #1 — datam, 2002-12-21T18:06Z

Jag har problem koden

```
<!-- #include file="adovbs.inc" -->

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("messages.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From message Where ID=" &Request.QueryString("delID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.Delete

	RecSet.Update
	RecSet.Close
	Set RecSet = nothing
	Set Connect = nothing

Connect.close

Response.Redirect "read_mess.asp"

%>
```

Får följand felmeddelande:

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: 'Connect' 

/izig/do_delete.asp, rad 19 

 :(  :(  Får de inte att funka

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

## #2 — sudden, 2002-12-21T18:11Z

Pröva med det här:

```
	RecSet.Delete

	RecSet.Update
	RecSet.Close
	Set RecSet = Nothing
                
                Connect.Close
	Set Connect = Nothing

Response.Redirect "read_mess.asp"

%>
```

Är inte säker men du kan pröva iallafall :)

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

## #3 — sudden, 2002-12-21T18:14Z

Sen tycker jag att du borde köra delete satsen i din SQL sträng istället! Det är mycket mer effektivare :)

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

## #4 — OveRRidE, 2002-12-22T11:06Z

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("messages.mdb")

SQL = "DELETE FROM message WHERE id=" & Request.QueryString("delID") & ""
Connect.execute(SQL),,128
set connect = nothing

Response.Redirect "read_mess.asp"
%>
```

På det här sättet ökar du prestandan på många sätt, plus att det kommer fungera. :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/62838-kan-ej-radera