vis poster mindre 7 dage gamle

således:

sqlstr = \"SELECT * FROM news where DATEDIFF(day, date, getdate()) <= 7 ORDER BY id desc\" 

Så får jeg følgende fejl:

Microsoft JET Database Engine error \'80040e14\'

Undefined function \'getdate\' in expression.

getdate() er en indbygget funktion i sql-serveren!

men nu kan jeg se du bruger access....
kan dette bruges:
sqlstr = \"SELECT * FROM news where DATEDIFF(day, date, #\"&date()&\"# ) <= 7 ORDER BY id desc\" 

jeg har ikke den fjerneste idé om det virker, idet det er > 2 år siden jeg knoklede med access

Nu siger den:
Microsoft JET Database Engine error \'80040e10\'

No value given for one or more required parameters.

Kan det give problemer at datofeltet i min db hedder \"date\"??

sqlstr = \"SELECT * FROM news where date > #\" & DateAdd(\"d\", Date(), -7) & \"# ORDER BY id desc\" 

Skal d ikke have en værdi??

DateAdd funktionen fungerer således:
DateAdd(Interval, nummer, Dato)

Det gør jo egentlig at det jeg lige sendte er forkert. Her er det rigtige:
sqlstr = \"SELECT * FROM news where date > #\" & DateAdd(\"d\", -7, Date()) & \"# ORDER BY id desc\".

Interval kan være:
yyyy år
q Kvartal
m Måned
y Dag i året
d Dag
w Ugedag
ww Ugenr
h Time
n Minut
s Sekund

Det kan godt tænkes at nummeret skal i \", men så ser det jo bare således ud:
sqlstr = \"SELECT * FROM news where date > #\" & DateAdd(\"d\", \"-7\", Date()) & \"# ORDER BY id desc\"

Ok nu får jeg ingen fejlmeddelse, når jeg bruger denne sql
sqlstr = \"SELECT * FROM news where date > #\" & DateAdd(\"d\", -7, Date()) & \"# ORDER BY id desc\"

Men....

Min db indeholder 2 poster, 1 som er oprettet d. 8. juni og en idag d. 12. juni.
Når jeg indsætter -7 og -6 vises begge poster, men hvis jeg skriver -5 eller -4 osv. så bliver der ikke vist nogen af dem??

kan du ikke lige sende noget mere af koden

Undskyld, men jeg blev lige optaget af noget andet.
Her har du lidt kode at kigge på :-)

<%language=\"VBScript\"


\' sqlstr = \"SELECT  TOP \" & numItems & \" * FROM news ORDER BY date DESC, time DESC\"
sqlstr = \"SELECT * FROM news where date > #\" & DateAdd(\"d\", \"-7\", Date()) & \"# ORDER BY id desc\"
\' sqlstr = \"SELECT * FROM news where date > #\" & DateAdd(\"d\", -5, Date()) & \"# ORDER BY id desc\"


Set rsnews = news.Execute(sqlstr)
If Err.Number <> 0 Then
  response.write \"Couldn\'t exec SQL query\"
  response.end
End If
If rsnews.EOF Then
  response.write \"Der er ingen nyheder i databasen\"
  response.end
End If
Function to_html(s_string)
to_html = Replace(s_string, vbcrlf, \"<br>\")
to_html = Replace(to_html, \"\"\"\", \"&quot;\")
End Function
rsnews.moveFirst
Dim db
While Not rsnews.EOF
s_message=rsnews.fields(\"news\")
s_message2=to_html(s_message)
s_message3=to_html(s_message)
If rsnews.fields(\"urls\") = \"1\" THEN
s_message3 = edit_hrefs(s_message2)
End if
currdate = FormatDateTime(rsnews.fields(\"date\"), 1)
if db <> currdate then
%><%
    db = currdate
  end if
%><a href=\'news.asp#<%=rsnews.fields(\"title\")%>\' target=\"bbo_middleframe\">- <%=rsnews.fields(\"title\")%></a><br>
<img height=\"3\" border=\"0\" width=\"1\" src=\"http://www.brandebladet-online.dk/gfx/spacer.gif\"><br>
<%
  rsnews.moveNext
Wend
Set rsnews = news.Execute(\"SELECT TOP 1 * FROM news ORDER BY date DESC;\")
%><br>Nyhederne er sidst opdateret d. <%=rsnews(\"date\")%>    </font><br>
<% rsnews.close
set rsnews = nothing
%>