Datoer for de seneste 30 dage

uden at være sikker,
mon ikke det er noget now(date -1), now(date -2) osv. ?!!..
ANER ikke om det virker...


* MoRoax...

Sådan :

<%
Response.Write  \"<select size=\'1\' name=\'datoer\'>\"

For i = 0 to 30
Response.Write \"<option value=\'\" & DateAdd(\"d\",- i ,Date) & \"\'>\" &  DateAdd(\"d\",- i ,Date) & \"</option>\"
Next

Response.Write \"</select>\"
%>

hyde

Jeg mengler lige en ting:

Jeg har en dato, i en tabel, fx. rs(\"oprettet\") .

Der vil jeg gerne udskrive alle dagene fra rs(\"oprettet\") til dags dato - hvordan gjr jeg det?

dageimellem = DateDiff(\"d\",rs(\"oprettet\"),Date)
Response.Write \"<select name=\'datoting\'>\"
do while dageimellem >= 0
Response.Write \"<option value=\'\" & DateAdd(\"d\",-dageimellem, Date) & \"\'>\" & DateAdd(\"d\",-dageimellem, Date) & \"</option>\"
dageimellem = dageimellem - 1
loop
Response.Write \"</select>\"

Således:

<%
    nToDay = clng(now())

    Response.Write \"<select name=\'cboDates\'>\" & vbCrlf
   
    For i = nToDay to (nToDay -30) step -1
        Response.Write \"<option value=\'\" & cDate(i) & \"\'>\" & cDate(i) & \"</option>\"
    Next

    Response.Write \"</select>\"   
%>