---
title: "Forum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/48934-forum"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "insu"
published: "2002-07-28T18:15:53.000Z"
updated: "2002-07-28T19:44:41.000Z"
replies: 12
views: 247
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/48934-forum"
---

# Forum

## #1 — insu, 2002-07-28T18:15Z

Tja!

Har ett litet forum, man måste logga in för att använda forumet, nu är det så att jag har även en liten funkton som sparar alla användare som läser inlägg, så den som har skrivit inlägget vet vem som har läst det.

Jag vill skapa ett script som raderar den 15 läsaren bakifrån, så att det alltid är max 15st från ett inlägg i databasen. 

Hur gör jag då?

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

## #2 — LAMP, 2002-07-28T18:29Z

kanske något sådant här:

```
DELETE FROM tabellen WHERE messId = " & request.querystring("messId") & " 
AND messId NOT IN (SELECT TOP 15 messId FROM tabellen
WHERE messId = " & request.querystring("messId") & " 
ORDER BY messId ASC)
```

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

## #3 — insu, 2002-07-28T18:32Z

Ska testa

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

## #4 — LAMP, 2002-07-28T18:33Z

OBS! Gjorde en liten redigering, se ovan.

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

## #5 — insu, 2002-07-28T18:51Z

Hmmmm....

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

\[Microsoft\]\[ODBC Microsoft Access Driver\] Missing ), \], or Item in query expression 'usr = 245 AND usr NOT IN (SELECT TOP 15 usr FROM besokare WHERE usr = 245 ORDER BY id ASC'.

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

## #6 — insu, 2002-07-28T18:53Z

Nu förstår jag....

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

## #7 — insu, 2002-07-28T19:15Z

Tyvärr raderar den nada...

\<%	

	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open("DRIVER={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.MapPath("../db/usr_statistik2.mdb"))

	
	Uppdatera = "DELETE FROM besokare WHERE usr = " & request("id") & " AND usr NOT IN (SELECT TOP 15 usr FROM besokare WHERE usr = " & request("Id") & " ORDER BY id ASC)"
    Connect.Execute(Uppdatera) 

	
	Connect.Close 
	Set Connect = Nothing
	

%\>

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

## #8 — LarsG, 2002-07-28T19:22Z

Hur är din tabell definerad?

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

## #9 — insu, 2002-07-28T19:29Z

usr = forum id

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

## #10 — LarsG, 2002-07-28T19:30Z

Jag vill veta alla kolumner. Det där säger ingenting.

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

## #11 — insu, 2002-07-28T19:33Z

("id") = id
("usr") = Inlägg id
("besokare") = användar id som besöker inlägget
("Dag") = Date
("Klocka") = Time

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

## #12 — LarsG, 2002-07-28T19:42Z

```
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/usr_statistik2.mdb")) 

Uppdatera = "DELETE FROM besokare WHERE usr = " & request("id") & " AND id NOT IN (SELECT TOP 15 id FROM besokare WHERE usr = " & request("Id") & " ORDER BY id desc)" 
Connect.Execute Uppdatera
```

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

## #13 — insu, 2002-07-28T19:44Z

Hade jag glömd de där lilla raden heh...

Thnx LarsG & Lamp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/48934-forum