First thing you do is make sure your sql includes an order by statement so that the record with the lowest date is the first record and make sure your sql selects from a sunday to a saturday.... then you make use of the weekday function and a nice wee loop like this....
Code:
<%
arTodo = objRs.GetRows()
objRs.Close
Set objRs = Nothing
conn.Close
Set conn = Nothing
Dim i
Dim dtDate, strHeader
Dim myDay
if uBound(arTodo,2) = 0 then i = 8 else i = 0
For myDay = 1 to 7 ' Days of the week, starting sunday, finishing Saturday
dtDate = arTodo(0,i) 'This is the date stored in my database
if weekday(dtDate) = myDay then
strHeader = arTodo(1,i) 'This is the headline of topic for dtDate
i = i +1
if i > uBound(arTodo,2) then i = 8 ' passed end of array, no more records
else
strHeader = "No records for this day"
end if
Response.Write("<p>" & WeekdayName(myDay) & " " & dtDate & " " & strHeader & "</p>" & vbNewLine )
Next
Erase arTodo
%>
that should be pretty close I think