Nån som har en enkel lösning på man visar år-månad per rad istället för dag (datum).

Nedanstående loopar ut 365 dagar, jag vill visa det månadsvis framåt fr.o.m. variabel a.

Ungefär så här:
2008-02
2008-03 'osv...

<%
a = Date()
b = DateAdd("m",12,a)

For i = a To b
Response.Write(a & "<br>")
a = a +1
Next
%>

Löste det själv..


a = Date()
b = DateAdd("m",13,a)
xnoll = "0"

Do Until a = b
If Month(a) = "1" _
OR Month(a) = "2" _
OR Month(a) = "3" _
OR Month(a) = "4" _
OR Month(a) = "5" _
OR Month(a) = "6" _
OR Month(a) = "7" _
OR Month(a) = "8" _
OR Month(a) = "9" Then

Response.Write( Year(a) &"-"& xnoll& Month( a ) & "<br>" )

Else

Response.Write( Year(a) &"-"& Month( a ) & "<br>")

End If

a = DateAdd( "m", 1, a )

Loop

Eller lite enklare
<code>
Dim date = Date()
Dim i

For i = 0 To 12
Response.Write(Year(date) & "-" & Right("0" & Month(date), 2) & "<br />")
date = DateAdd("m", 1, date)
Loop
</code>

Jepp ser enklare ut

Den innehåller nån bugg som gör att det inte går att köra.

Har inte klurat ut vad än bara.



mvh
Torbjörn

Bytte namn på variabeln date till idate och ändrade loop till Next - så löste det sig.

Tack för tipset.

<%

Dim iDate, i

idate = Date()

For i = 0 To 12

Response.Write(Year(idate) & "-" & Right("0" & Month(idate),2)) & "<br>"
idate = DateAdd("m", 1, idate)

Next
%>



mvh
Torbjörn

Jo, gissade att den skulle gnälla på date variabeln men lösningen framgick dock.