error '80020009' Exception occurred...error message

[golyg]

Hello all,
I am going through a recordset and displaying secondary codes depending on a primary codes...and for some reason I keep getting this error:
error '80020009' Exception occurred. on this line:
do while suppNumb = rs.fields("supp_numb")

here is a little code....

set rs = conn.Execute(tsql)

<table cellpadding=2 cellspacing=0 border=0 width=85%>
		<%rs.movefirst
		Do While Not rs.EOF
		If (rs.EOF or rs.BOF) Then 
			suppNumb =  -1
		Else 
			suppNumb = rs.fields("supp_numb")
		End if
		'suppNumb = rs.fields("supp_numb")%>
				<tr bgcolor=#E2E3D0>
					<td valign=top colspan=2 nowrap><b><%=rs.fields("primary_num") & " - " & "(" & rs.fields("SR_CG") & "/" & rs.fields("PR_EX") & ")" &  "-"  & rs.fields("primary_location")%></td><td colspan=2><%=rs.fields("citystate")%></b></td>
				</tr>
				<%do while suppNumb = rs.fields("supp_numb")%>
				<tr>
				<%Response.Write  rs.fields("supp_numb")
				Response.Write "<br>"
				Response.Write  rs.fields("extra_num")%>
					<td>&nbsp;</td><td><%=rs.fields("extra_num") & " - " & "(" & rs.fields("extra_srcg") & "/" & rs.fields("extra_prex") & ")" & "-" & rs.fields("extra_location")%></td><td><%=rs.fields("extra_citystate")%></td><td>&nbsp;</td>
				</tr>					
				<%			
				Response.Write "Here1"
				rs.movenext			
				If (rs.EOF or rs.BOF) Then 
					suppNumb =  -1
				End if
				loop%>
		  <%Loop		'Do while not rs.eof
	end if
  end if%>
		</table>

 

[golyg]

sorry I meant to format the text a little more but hit the wrong button....


TIA,

 

[golyg]

took of care of this...