---
title: "Tabort poster"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/79496-tabort-poster"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mr.Switch"
published: "2003-06-12T12:08:21.000Z"
updated: "2003-06-13T07:14:05.000Z"
replies: 2
views: 138
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/79496-tabort-poster"
---

# Tabort poster

## #1 — Mr.Switch, 2003-06-12T12:08Z

Det är något fel med loopen när jag ska ta bort poster ur tabellen.

Nån som har en idé???

```
If Request.QueryString("alt") = "delete_user" then

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT tblKommunikationSend.*, tblKommunikationRegister.* FROM tblKommunikationSend, tblKommunikationRegister"
	strSQL = strSQL & " WHERE tblKommunikationSend.sCounter = tblKommunikationRegister.sCounter "
	strSQL = strSQL & " AND tblKommunikationRegister.sAnvandarID = " & Request.Form("user") &" AND tblKommunikationRegister.sPrivat = '20'"
	RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic 

	If RecSet.EOF AND RecSet.BOF Then
		RecSet.Close
	Response.Write("Ej borttaget!<br>")
	Else
		Do Until RecSet.EOF 
			RecSet.Delete 
		Loop 
		RecSet.Close
		
		Response.Write("Borttaget!<br>")
	End If

End If
```

 

// Switch

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

## #2 — LeonL, 2003-06-12T12:18Z

Så här kanske?

```
If Request.QueryString("alt") = "delete_user" then

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT tblKommunikationSend.*, tblKommunikationRegister.* FROM tblKommunikationSend, tblKommunikationRegister"
	strSQL = strSQL & " WHERE tblKommunikationSend.sCounter = tblKommunikationRegister.sCounter "
	strSQL = strSQL & " AND tblKommunikationRegister.sAnvandarID = " & Request.Form("user") &" AND tblKommunikationRegister.sPrivat = '20'"
	RecSet.Open strSQL, Connect, adOpenStatic, adLockOptimistic 

	If RecSet.EOF AND RecSet.BOF Then
		RecSet.Close
	Response.Write("Ej borttaget!<br>")
	Else
		Do Until RecSet.EOF 
			RecSet.Delete
			[red]RecSet.MoveNext[/red]
		Loop 
		RecSet.Close
		
		Response.Write("Borttaget!<br>")
	End If

End If
```

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

## #3 — Mr.Switch, 2003-06-13T07:14Z

Har testat och kört det några gånger, men jag får ett elakt felmeddelande.

> Microsoft OLE DB Provider for ODBC Drivers (0x80040E23)
> Row handle referred to a deleted row or a row marked for deletion

På något vis så måste jag ur loopen, men hur???

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/79496-tabort-poster