radera från databas ett visst datum

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 %>

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

Varför en funktion och inte en sub?

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

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

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

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.

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

@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")

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
%>

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]")

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