loop som inte fungerar som den ska!

Denna koden skriver bara en av de dagar som det finns en inbokad händelse.... knasigt ?

For iRaderLoop = 1 to iRader
response.write "<tr class=td2>"
For iKolumnerLoop = 1 to iKolumner
If aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) > 0 Then
Response.Write "<td valign=top>"
Response.Write "<table cellspacing=0 cellpadding=0 border=0 width=""100%"">"
If Not rs.EOF then							
If rs("KalDd") = aKalenderDagar((iRaderLoop - 1) * 7 + iKolumnerLoop) Then
Response.Write "<tr><td>"						
Response.Write "<a href=kalender_visa.asp?ar=" & rs("KalYy") & "&manad=" & rs("KalMm") & "dag=" & rs("KalDd") & ">" & aKalenderDagar((iRaderLoop -1) * 7 + iKolumnerLoop) & "</a>"
Response.Write "</tr></td>"
rs.MoveNext
iAntalBokningar = iAntalBokningar +1						
Else
Response.Write "<tr><td>"
Response.Write aKalenderDagar((iRaderLoop -1) * 7 + iKolumnerLoop)
Response.Write "</td></tr>"
End If
End If
Response.Write "</td></tr>"
Response.Write "</table>"
Response.Write "</td>"
Else
Response.Write "<td class=td1>&nbsp;</td>"
end If
Next
Response.Write "</tr>"
Next

Är det inte för att du har din rs.MoveNext inne i if-satsen, den triggas ju bara om villkoret är uppfyllt.

det har du nog tusan rätt i, dessutom skulle jag ju spara en del kod om jag la den utanför just den if satsen :) tack solbulle ska testa det sedan