Function Result (i)
IF weekday (date) = 1 THEN
Daynum = 7
Else
Daynum = weekday (date)
END IF
BDATE = DateAdd ("D", I-daynum, date)
Document.write (BDATE)
END FUNCTION
script>
hEAD>
For i = 1 to 7
Result (i)
Document.write ("<")
NEXT
p>
div>
form>
body>
html>