---
title: "Delete"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/71216-delete"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2003-03-16T12:01:17.000Z"
updated: "2003-03-16T15:54:23.000Z"
replies: 14
views: 338
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/71216-delete"
---

# Delete

## #1 — Asa, 2003-03-16T12:01Z

Jag har frågat om detta förrut men hittar ej frågan bland alla inlägg jag postat så jag postar igen.

Jag har en databas där jag ska spara max 5 poster/medlem. När medlemmen lägger till en post ska det kollas i databasen. Om det redan finns 5 poster ska den gamlaste raderas å den nya sparas.

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

## #2 — Sebbe, 2003-03-16T13:36Z

```
strSQL = "SELECT COUNT(poster) AS postcount FROM tblpost WHERE uid = " & Request.QueryString("user") & " ORDER BY postid ASC"
objRS.Open strSQL, objCon

If objRS("postcount") => 5 Then
  i = 0
  Do Until objRS.EOF OR i = 6
    arrPost(i) = objRS("postid")
    i = i + 1
  Loop
  strSQL = "DELETE FROM tblpost WHERE uid = " & Request.QueryString("user") & " AND postid = " & LBound(arrPost)
  objCon.Execute(strSQL)

  strSQL = "INSERT INTO tblpost (post) VALUES ('" & Request.Form("post") & "')"
Else
  strSQL = "INSERT INTO tblpost (post) VALUES ('" & Request.Form("post") & "')"
End If

objCon.Execute(strSQL)
Response.Write("Posten är inlagd")
```

Det finns säkert många fel i koden eftersom jag inte kunnat testa :)

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

## #3 — Asa, 2003-03-16T13:39Z

Tackar!

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

## #4 — Asa, 2003-03-16T13:51Z

Skrivit såhär. FÖr man måste ju få med idnumret på nå sätt men då hittas inte pollId när man kör denna:

```
  Set RS=MemPoll.Execute("Select pollId,Count(*) As postcount From fraga Where userId=" & Session("sex_id"))
  If RS("postcount") => 5 Then
    i = 0
    Do Until RS.EOF OR i = 6
      arrPost(i) = RS("pollId")
    i = i + 1
    Loop
    MemPoll.Execute("Delete From fraga Where userId=" & Session("sex_id") & " And pollId=" & LBound(arrPost))
    MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  Else
    MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  End If
  Response.Redirect "minsida.asp?id=" & Request.QueryString("id")
```

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

## #5 — Sebbe, 2003-03-16T13:55Z

Får du något felmeddelande?

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

## #6 — Asa, 2003-03-16T14:06Z

Microsoft JET Database Engine error '80040e21' 
You tried to execute a query that does not include the specified expression 'pollId' as part of an aggregate function. 

/johnny/minsida.asp, line 286

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

## #7 — Asa, 2003-03-16T14:26Z

Jag la till Group By i sql strängen å då funkade det.

```
  Set RS=MemPoll.Execute("Select pollId,Count(*) As postcount From fraga Where userId=" & Session("sex_id") & " GROUP BY pollId")
  If RS("postcount") => 5 Then
    i = 0
    Do Until RS.EOF OR i = 6
      arrPost(i) = RS("pollId")
    i = i + 1
    Loop
    MemPoll.Execute("Delete From fraga Where userId=" & Session("sex_id") & " And pollId=" & LBound(arrPost))
    MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  Else
    MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  End If
  Response.Redirect "minsida.asp?id=" & Request.QueryString("id")
```

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

## #8 — Sebbe, 2003-03-16T14:51Z

Vad gör Group By då? Är inte så haj på SQL :)

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

## #9 — Asa, 2003-03-16T15:00Z

Ingen aning men det funkade. Sökte å såg att man använder det ibland när man använder Count.

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

## #10 — LarsG, 2003-03-16T15:13Z

Det där kan inte fungera

```
 MemPoll.Execute("Delete From fraga Where userId=" & Session("sex_id") & " And pollId=" & LBound(arrPost))
```

LBound(arrPost) är alltid 0.

```
mempoll.execute "delete from fraga " & _
" where userid = " & session("sex_id") & _
" and pollId not in (select top 5 pollId from fraga " & _
" where userId = " & session("sex_id") & _
" order by pollid desc,userid) "
```

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

## #11 — Asa, 2003-03-16T15:17Z

Jag såg att den inte radera nå. SÅ ditt funkar nog!

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

## #12 — Sebbe, 2003-03-16T15:27Z

Ojdå! Glömde det :r arrPost(LBound(arrPost)) skulle det NOG vara :p

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

## #13 — Asa, 2003-03-16T15:27Z

Skulle det bara vara detta kvar om jag använder ditt exempel Lars?

```
  MemPoll.Execute("Delete From fraga Where userid = " & session("sex_id") & " and pollId Not In (Select Top 5 pollId From fraga Where userId = " & session("sex_id") & " Order By pollid desc,userid)")
  MemPoll.Execute("Insert Into fraga(fraga,userId) Values('" & Request.Form("fraga") & "'," & Session("sex_id") & ")")
  Response.Redirect "minsida.asp?id=" & Request.QueryString("id")
```

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

## #14 — LarsG, 2003-03-16T15:50Z

Jo.

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

## #15 — Asa, 2003-03-16T15:54Z

Fick skriva Top 4 för annars så sparades 6 st i databasen. Vet du varför?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/71216-delete