Where dato LIKE 'Now() -7' virker ikke

SQL vil hvade doten overfør i UK format mm-dd-yyyy eææer yyyy-mm-dd:

dato = DateAdd("d", -7, date)
dato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)
SQL = ".... WHERE datoKolonne >= #" & dato & "#"

Hvad med Where dato > date()-7

eagleeye.. hvor skal jeg skrive hvad ??  Jeg er helt ny i dette..
Jeg får følgende fejl:
Error Type:
Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.

<%
'i asp koden skriver du:

dato = DateAdd("d", -7, date)
dato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)

'Denne WHERE del skal du havde ind i din SQL sætning:
WHERE datoKolonne >= #" & dato & "#"

Hvis jeg har forstået det rigtigt, så skal min kode se sådan he ud

<body>

dato = DateAdd("d", -7, date)
dato = Year(dato) & "-" & Month(dato) & "-" & Day(dato)
<%
Set album = Server.CreateObject ("ADODB.Recordset")
album.Open "SELECT * FROM tblPictures WHERE Oprettet_dato >= #" &dato& "#"  ORDER BY Kunstner ", database

While NOT album.EOF
Response.Write ("<BR>")
Response.Write album.Fields ("Kunstner")
Response.Write (" -- ")
Response.Write album.Fields ("Tittel")
Response.Write (" -- ")
Response.Write "<img src='" &album.fields("PicturePath") &"'>"
album.MoveNext
Wend
%>

</body>

Men så får jeg følgende fejl:
Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/musik/kunstner.asp, line 13, column 76

hvad er det jeg har glemt ??

Er der ikke en der vil hjælpe

<%
Set DB = Server.CreateObject ( "ADODB.Connection" )
DBPath = "DBQ=" & Server.Mappath("din_database.mdb")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Set Sql = Server.CreateObject("ADODB.Recordset")
SQL = "select * From tblPictures Where Oprettet_Dato > date()-8 Order By Kunstner"
Set rs = db.Execute (SQL)
%>
<html>

<head>
<title>Vis Kunstner</title>
</head>

<body>

<%
Do While Not rs.EOF

Response.Write "<br>" & rs("Kunstner") & " -- " & rs("Tittel") & " -- <img src='" & rs("PicturePath") & "'>"

rs.MoveNext
Loop
rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing
%>

</body>

</html>

Det var noget af en omskrivning af min kode, men jeg kan ikke få den til at virke.
Ville det i virkeligheden ikke være nemmere at ændre datoformatet i DB til UK, så er man vel ud over alle de problemer  ? og så bruge WHERE Oprettet_Dato > "Now()-7"  eller noget i den stil

Så fik jeg det til at virke.... Pyhaa.. Det var ikke nødvendigt at ændre dato formatet, men bare et par små rettelser i koden.
Jeg vælger at tildele poing til JERF da hans første foreslag var det jeg fik til at virke. Til alle andre vil jeg sige tak for at i ville bruge tid på det. Hvis nogle føler sig snydt, så skriv.
Min kode som virker kommer her, hvis der er andre der kan bruge den til noget.

<%
Set database = Server.CreateObject ("ADODB.Connection")
database.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\musik\db\db2.mdb")
%>

<html>
<body>

<%
Set album = Server.CreateObject ("ADODB.Recordset")
album.Open "SELECT * FROM tblPictures WHERE Oprettet_dato >= Date()-7 ORDER BY Kunstner, Tittel ", database

While NOT album.EOF
Response.Write ("<BR>")
Response.Write album.Fields ("Kunstner")
Response.Write (" -- ")
Response.Write album.Fields ("Tittel")
Response.Write (" -- ")
Response.Write "<img src='" &album.fields("PicturePath") &"'>"
album.MoveNext
Wend
%>

</body>
</html>