---
title: "radera från databas ett visst datum"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/124476-radera-från-databas-ett-visst-datum/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jake"
published: "2005-03-16T13:39:02.000Z"
updated: "2005-03-18T09:14:08.000Z"
replies: 29
views: 839
page: 2
pages: 2
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/124476-radera-från-databas-ett-visst-datum"
---

# radera från databas ett visst datum

_Sida 2 av 2._

## #21 — jake, 2005-03-17T21:09Z

ok,
men när jag ändrar det får jag istället ett runtime error

Microsoft VBScript runtime  error '800a01c2'

Wrong number of arguments or invalid property assignment: 'DeleteSiten' 
på raden som kör funktionen...

```
<%
'''This function deletes a site the day after slutdatum
Function DeleteSiten(varID)

	Set oConnect = Server.CreateObject("ADODB.Connection")
	oConnect.Open strConn
	oConnect.Execute("DELETE FROM " & vinsttips & " where slutdatum < '" & dateadd("d", -1, date) & "'")	
	
	oConnect.Close
	Set oConnect = Nothing

	

End Function
%>

<% deleteSiten %>
```

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

## #22 — Jesper T, 2005-03-17T21:22Z

Vad är : varID?
Du skickar inte in någon parameter.
\<% deleteSiten %\>

Varför en funktion och inte en sub?

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

## #23 — jake, 2005-03-17T22:22Z

vilken parameter ska skickas med  när funktionen körs då?

(hade som sagt tidigare antagligen varit minst lika bra med en sub...)

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

## #24 — Jesper T, 2005-03-17T23:36Z

Du behöver väl inte ha någon parameter med alls.
Varför har du kolumnnamnet dynamiskt?

```
Sub DeleteSiten

	Set oConnect = Server.CreateObject("ADODB.Connection")
	oConnect.Open strConn
	oConnect.Execute("DELETE FROM tabellen where slutdatum  < SUBDATE(NOW(),INTERVAL 1 DAY")

oConnect.Close : Set oConnect = Nothing

End sub
```

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

## #25 — @nders, 2005-03-18T04:20Z

> **jake skrev:**
>
> ok,
> men när jag ändrar det får jag istället ett runtime error
> 
> Microsoft VBScript runtime  error '800a01c2'
> 
> Wrong number of arguments or invalid property assignment: 'DeleteSiten' 
> på raden som kör funktionen...

Det jag menade var att du skulle ändra just dateadd-delen i villkoret i SQL-frågan. Inte ändra onödigt mycket...

JesperTs senaste kod ser fin ut.

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

## #26 — jake, 2005-03-18T08:33Z

ok, ursäkta att jag krånglar till det.

nu använder jag följande kod

```
<%
sub DeleteSite()
	Set oConnect = Server.CreateObject("ADODB.Connection")
	oConnect.Open strConn
	oConnect.Execute("DELETE FROM vinsttips WHERE slutdatum <= dateadd('d', -1, date())"),,128
	oConnect.Close
	Set oConnect = Nothing
End Sub

' Kör!

DeleteSite
%>
```

och får felmeddelandet

\[TCX\]\[MyODBC\]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '('d', -1, date())' at line 1

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

## #27 — @nders, 2005-03-18T08:38Z

> **@nders skrev:**
>
> Dateadd() fungerar inte i MySQL, utan då får man göra på annat sätt

> **JesperT skrev:**
>
> oConnect.Execute("DELETE FROM tabellen where slutdatum  \< SUBDATE(NOW(),INTERVAL 1 DAY")

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

## #28 — jake, 2005-03-18T09:09Z

oups, sorry, tittade på fel inlägg du hänvisade till.
dock verkar det inte stämma riktigt...

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

\[TCX\]\[MyODBC\]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1 

```
<%
Sub DeleteSiten

	Set oConnect = Server.CreateObject("ADODB.Connection")
	oConnect.Open strConn
	oConnect.Execute("DELETE FROM vinsttips WHERE slutdatum  < SUBDATE(NOW(),INTERVAL 1 DAY")

oConnect.Close
Set oConnect = Nothing

End sub

' Kör!

DeleteSiten
%>
```

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

## #29 — @nders, 2005-03-18T09:10Z

Det ser ut som att det saknas en slutparentes till Subdate.

```
oConnect.Execute("DELETE FROM vinsttips WHERE slutdatum  < SUBDATE(NOW(),INTERVAL 1 DAY[b])[/b]")
```

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

## #30 — jake, 2005-03-18T09:14Z

ah med en extra parantes gick det bättre.
Tack för all hjälp.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/124476-radera-från-databas-ett-visst-datum/page2  
Föregående sida: https://www.webforum.nu/amne/asp/124476-radera-från-databas-ett-visst-datum.md