---
title: "problem med att ta bort post"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14009-problem-med-att-ta-bort-post"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "i"
published: "2002-01-26T14:33:00.000Z"
updated: "2002-01-26T15:30:00.000Z"
replies: 3
views: 188
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/14009-problem-med-att-ta-bort-post"
---

# problem med att ta bort post

## #1 — i, 2002-01-26T14:33Z

Nån som kan hjälpa mig med det här?

Jag har en länk som om man klickar på den går den vidare till en sida som ska radera den posten i en tabell.

```
http://localhost/x/gb/admin_action.asp?action=deleteAdmin&ID=Håkan
```

När man sen skickas vidare till **admin_action.asp** får jag detta felet:

> Microsoft JET Database Engine (0x80040E10)
> No value given for one or more required parameters.
> /x/gb/admin_action.asp, line 82

Koden i admin_action.asp är följande:

```
<%
'---------------------
'TA BORT ADMIN
'---------------------
%>
<%ElseIf Request.Querystring("action") = "deleteAdmin" Then%>
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("dbases/db1.mdb")

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

Addera = "Select * From Admins Where adminUser=" & Request.QueryString("ID")

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.Delete

RecSet.Update
	
RecSet.Close
Set RecSet = nothing

Connect.Close
Set Connect = nothing

Response.Redirect "admin.asp"

%>
<%
'---------------------
'SLUT PÅ TA BORT ADMIN
'---------------------
%>
```

Rad 82 är den här kodsnutten:

```
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
```

Kan nån hjälpa mig lösa det här felet? Har slitit sönder håret...

*redigerat:*
filen adovbs.inc korrekt inkluderad också...

mvh,
i

\[Redigerat av i den 26 jan 2002\]

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

## #2 — cyprys, 2002-01-26T14:35Z

```
Addera = "Select * From Admins Where adminUser='" & Request.QueryString("ID")& "' "
```

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

## #3 — i, 2002-01-26T14:46Z

cyprys, **tack!** :D

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

## #4 — Mika3l, 2002-01-26T15:30Z

Det var en del kod du hade, varför inte köra med lite mindre kod? :q

```
<% ElseIf Request.Querystring("action") = "deleteAdmin" Then

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("dbases/db1.mdb")
SQL = "DELETE * FROM Admins WHERE adminUser = " & Request.QueryString("id") & ""
Connect.Execute(SQL)
Connect.Close
Set Connect = Nothing
Response.Redirect"admin.asp"
%>
```

Något mindre kod.
Sen ett litet tips:
Använd inte så många \<% och %\>. Det slöar ner laddningen.
Istället för att skriva

```
<%
'######TA BORT MEDLEM
%>
<% If Request.QueryString("bla") = "bla" Then %>
<%
Response.Redirect"bla.asp"
%>
<%
Else
Response.Redirect"bla2.asp"
End If
%>
```

kan du skriva

```
<%
'######TA BORT MEDLEM

If Request.QueryString("bla") = "bla" Then

Response.Redirect"bla.asp"

Else
Response.Redirect"bla2.asp"
End If
%>
```

Det går något snabbare att ladda då. Jag vet inte riktigt hur snabbt men ju snabbare desto bättre.

/Mika3l

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14009-problem-med-att-ta-bort-post