Loopa ut

Jag vill loopa ut datum i en selectruta i detta formatet:
2004-10-21 - v.43 - Torsdag

Hur skriver jag då?

Vad vill du loopa ut? Ett år? En månad? En vecka? Var vill du börja?

Jag tror jag vill ha 1 månad den ska loopa ut. Fram till dagens datum.

Otestat:

<%
for i = 1 to day(date)
	dteDate = Cdate(year(date) & right("0" & month(date), 2) & right("0" & i, 2))
	response.write "<option>" & dteDate & " - v." & datepart("ww", dteDate) & " - " & WeekDayName(Weekday(dteDate)) & "</option>"
next
%>

Felmess på raden som börjar så här: dteDate

Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'Cdate'
/applikationer/fotodagbok/test.asp, line 3

Som sagt, otestat. Jag hade glömt ett par bindestreck. ;)

Prova detta istället:

<%
for i = 1 to day(date)
	dteDate = Cdate(year(date) & "-" & right("0" & month(date), 2) & "-" & right("0" & i, 2))
	response.write "<option>" & dteDate & " - v." & datepart("ww", dteDate) & " - " & WeekDayName(Weekday(dteDate)) & "</option>"
next
%>

Tackar så mycket! Funkar fint :)

Men om jag vill visa ex 3 månader bak i tiden då? TIll dagens datum?

Det borde ju gå att göra så här:

dteStartDate = dateAdd("m", -3, date)
for dteDate = dteStartDate to Date
	response.write "<option>" & dteDate & " - v." & datepart("ww", dteDate) & " - " & WeekDayName(Weekday(dteDate)) & "</option>"
next

Funkade fint det med. Tack återigen!

Hur skriver man om man vill skriva ut tiden i en select-lista? Formatet 00:00 till 23:59

Hittade denna kod:

          <select name="tid" style="width:100%">
            <%For i = 0 To 23
              If i < 10 Then 
                i = "0" & i
              End If   
              For x = 0 To 59
                If x < 10 Then 
                  x = "0" & x
                End If%>
                <option value="<%=i &":"& x%>" <%If i &":"& x = FormatDateTime(now,4) Then Response.Write " selected"%>><%=i &":"& x%><br>	   
              <%next
            next%>
          </select>