ciclo do while dentro ciclo for

[oucharri]

ciao a tutti per cortesia ho un problema,
ho scritto il codice qui sotto per ottenere il risoltato in allegato ma non riesco proprio. se mi potete dire gentilmente dove sbaglio.

<%
For num = DateValue(dat) to DateValue(datt)
if not objrs.EOF then
if datevalue(objrs("data"))=num then
giorno=objrs("data")
giorno=""
objrs.MoveNext
else
giorno= "-"
objrs.MoveNext
end if
end if
response.write num&" | "&giorno&"
"
next
set objrs = Nothing
%>