Опять курсоры

Доброго времени суток, конечно этот вопрос уже не раз обсуждался, но все, что прочитал не помогло, итак
есть кусок asp

Set rs = Server.CreateObject("ADODB.RecordSet")
StrSql="SELECT * FROM data WHERE month(dr)=month(date()) and day(dr)=day(date())"
rs.Open StrSql,cString,adOpenDinamic
RecordCount=0
While Not rs.EOF
RecordCount=RecordCount+1
rs.MoveLast
RecordCount=rs.RecordCount
rs.MoveFirst
WEnd
<%While NOT rs.EOF%>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0
<tr class="<%If IsEvenOdd(numArticles) = "Odd" Then%>tblOdd<%Else%>tblEven<%End If%>
<td><%=rs("fio")%></td>
</tr>
<tr class="<%If IsEvenOdd(numArticles) = "Odd" Then%>tblOdd<%Else%>tblEven<%End If%>
<td><b>Должность</b>: <%=rs("dol")%></td>
</tr>
<tr class="<%If IsEvenOdd(numArticles) = "Odd" Then%>tblOdd<%Else%>tblEven<%End If%>
<td><b>Цех (отдел)</b>: <%=rs("ceh")%></td>
</tr>
<%
rs.MoveNext()
WEnd
If RecordCount >= 1 Then
Response.Write "<TR><TD> Поздравляем!!!</TD></TR>
"
Else
Response.Write "<TR><TD> Записей нет!</TD></TR>
"
End If
Когда записей нет, все номано, но если есть то проходит 90 сек и выдает сообщение об истечении time-limit
В чем проблема не подскажите...

vdm (30.05.2006) While Not rs.EOF RecordCount=RecordCount+1 rs.MoveLast RecordCount=rs.RecordCount rs.MoveFirst WEnd

Это вообще что? Бегаешь в цикле на последнюю, потом на первую запись, естественно EOF не наступает.</DIV>

0

Без комментариев:
While Not rs.EOF
........
rs.MoveFirst
WEnd