Error In code - Do Loop

[JP SIngh]

I trying to print the name of all the lists and the members of those list.
The code below works perfectly but it gives an error on the last listname

error '80020009'
/addeditdependen tlists.asp, line 278

Can someone please help. The solution I have implemented is from the answer
provided by Phil W in my question "Basic Looping Question" on 3rd AUg 2005
at 11:59

thanks

<% strSQL = "SELECT DependentLists. id, DependentLists. ListName,
EMPProfile.Firs tname, EMPProfile.Last name "
strSQL = strSQL & " FROM (DependentLists LEFT JOIN
DependentListMe mbers ON DependentLists. Id=DependentLis tMembers.ListId ) LEFT
JOIN EMPProfile ON DependentListMe mbers.Empname=E MPProfile.EmpNa me "
strSQL = strSQL & " ORDER BY DependentLists. ListName,
EMPProfile.Firs tname; "

Set RSV = Server.CreateOb ject("ADODB.Rec ordset")
RSV.Open strSQL, conn, adOpenForwardOn ly, adLockReadOnly, adCmdText
Do While Not RSV.EOF
prlistname = rsv("listname")
%>

<tr>
<td><%=rsv("Lis tName")%></td>
<td>
<table>

<%do while not rsv.eof and rsv("listname") = prlistname%> ' ******** THIS
IS THE LINE (278)

<tr>
<td><font face="Arial" size="2"><%=rsv ("Lastname") & " " &
rsv("firstname" )%></font></td>
</tr>
<%
rsv.movenext
Loop

%>
</table>
</td>

</tr>
<%
RSV.MoveNext
Loop

%>
</tbody>
</table>
<%
RSV.Close
Set RSV = Nothing
%>

[Phill. W]

"JP SIngh" <no**@none.co m> wrote in message
news:e6******** ******@TK2MSFTN GP10.phx.gbl...

I trying to print the name of all the lists and the members of those list.
The code below works perfectly but it gives an error on the last listname

error '80020009'
/addeditdependen tlists.asp, line 278

Can someone please help.
The solution I have implemented is from the answer provided by Phil W

And I *apologise* for giving you Bad Code.

<excuse>I've been contaminated by .Net lately and forgot that
VBScript doesn't "short-circuit" If statements. </excuse>

You're problem is that when you hit the end of the recordset, you
/can't/ access any of the /items/ in the row, because there's no current
row any more!

This might work a little better :

Do While Not rsv.EOF
prlistname = rsv("listname")

Do While Not rsv.EOF
If prlistname <> rsv("listname") Then
' output List [heading] entry

prlistname = rsv("listname")
End If

' output member entry

. . .
rsv.MoveNext
Loop
Loop

HTH,
Phill W.