เอาโค๊ดด้านล่างนี้ไปประยุกต์ใช้นะครับ มีปัญหาไรบอกอ่ะ...คิดว่าคงช่วยได้เยอะนะ
<%
daycount = 1
lastday = 30
Do While DayCount<=LastDay
For i=1 To 7
If DayCount<=LastDay Then
Response.Write daycount & " "
DayCount=DayCount+1
End If
Next
Response.Write "<br>"
Loop
%>