Liste med tal fra 1 til fx 31

Har dette
<% dato2 = date()
sidste = DateSerial(Year(dato2),Month(dato2)+1,0)
dag = "1"
Do while dag <= 31
if dag <= 9 then
dag = "0" & dag
end if
response.write dag & "<br>"
dag = dag +1
loop  %>

Alt virker som det skal..

Når jeg så skifter de 31 ud med den string jeg har lavet (sidste)

<% dato2 = date()
sidste = DateSerial(Year(dato2),Month(dato2)+1,0)
dag = "1"
Do while dag <= sidste
if dag <= 9 then
dag = "0" & dag
end if
response.write dag & "<br>"
dag = dag +1
loop  %>

Er der intet der virker mere... Hvorfor?