Classic ASP - BOF

Question

I am trying to run two WHILE NOT loops for a recordset. One of the loops counts the number of items whilst the other prints the results. I cannot alter the SQL query, so this is the counting method I'm left with.

setPeopleCount = 0
While NOT rsSetContents.EOF
    setPeopleCount = setPeopleCount + 1
rsSetContents.MoveNext
Wend

While NOT rsSetContents.EOF
    Response.Write rs.Fields("exampleItem")&"<br>"
rsSetContents.MoveNext
Wend

My problem is running the two loops. After the first loop has finished the count, the record cursor is at the end of the file, so when the next loop needs to run - it doesn't because EOF is true.

How can I reset the cursor back to the beginning of the file so the second loop can run?

Why don't you get the count in a seperate statement like SELECT COUNT ? Or Even use GetRows() and use UBound(GetRowsArray,2) to get the count of records. — Control Freak, Dec 22 '11 at 09:22

score 4 · Accepted Answer · answered Dec 20 '11 at 22:45

4

You can use MoveFirst.

http://msdn.microsoft.com/en-us/library/windows/desktop/ms677527(v=vs.85).aspx

answered Dec 20 '11 at 22:45

Jonathan Allen

68,373
70
259
447

Thanks, consider yourself a tick (when 7 minutes is up) – TheCarver Dec 20 '11 at 22:49

score 1 · Answer 2 · answered Dec 20 '11 at 22:48

1

Could you not count on the bottom loop? Or perhaps read the records into an object array then you are free to iterate over it as many times as u want

answered Dec 20 '11 at 22:48

RockThunder

146
4

Unfortunately not, I need to use the count before the second loop starts. I've just used rs.MoveFirst and it worked. Thanks anyway – TheCarver Dec 20 '11 at 22:50

score 0 · Answer 3 · answered Dec 21 '11 at 13:05

The MoveFirst requires proper cursor on the recordset - if for example you'll change to different database the default cursor might change and the code might fail.

I would suggest you to store the values while counting, thus save the second loop:

setPeopleCount = 0
Dim exampleItems()
ReDim exampleItems(-1)
While NOT rsSetContents.EOF
    setPeopleCount = setPeopleCount + 1
    ReDim Preserve exampleItems(UBound(exampleItems) + 1)
    exampleItems(UBound(exampleItems)) = rs("exampleItem")
    rsSetContents.MoveNext
Wend

'instead of a loop, just this:
Response.Write(Join(exampleItems, "<br />"))

Classic ASP - BOF

3 Answers3