Ocurrio una excepcion

[GusGreen]

Alguien sabe por que puede producirse el error 80020009 (Ocurrio una excepcion)
en el sgte codigo?

while not rstmp.EOF
flag_fec = rstmp.Fields("FEC")
Response.Write "Fecha:" & flag_fec
while flag_fec = rstmp.Fields("FEC") and (not rstmp.eof)
flag_flag = rstmp.Fields("FLAG")
while flag_flag = rstmp.Fields("FLAG") and (flag_fec = rstmp.Fields("FEC") and (not rstmp.eof))
flag_ana = rstmp.Fields("ANA")
while flag_ana = rstmp.Fields("ANA") and (flag_flag = rstmp.Fields("FLAG") and (flag_fec = rstmp.Fields("FEC") and (not rstmp.eof)))
rstmp.MoveNext
wend
wend
wend
wend

Este codigo intenta hacer un corte de control al barrer el recordset rstmp
Tampoco se lo que este error significa
Gracias a quien responda....

[urjose]

Qué mas dice el error?
En que línea?
Cual es la línea en el código?

Más info...

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[GusGreen]

te paso el codigo mas completo
El error lo da en el while mas interno
Simplemente dice &quot;ha ocurrido una excepcion&quot;

strTmp = &quot;SELECT * FROM HISCLIN WHERE ID_LOGIN='&quot; &amp; Application(&quot;G_UserID&quot;) &amp; &quot;' ORDER BY FEC,FLAG,ANA,ORD&quot;
rstmp.Open strTmp,dbtmp

%&gt;
&lt;table border=&quot;1&quot; cellpadding=&quot;0&quot; &gt;
&lt;tr&gt;
&lt;th align=&quot;left&quot;&gt;&lt;font size=&quot;2&quot;&gt;Datos de Historia Clínica&lt;/font&gt;&lt;/th&gt;
&lt;/tr&gt;
&lt;%

if rstmp.RecordCount &gt; 0 then
rstmp.MoveFirst
end if

while not rstmp.EOF
flag_fec = rstmp.Fields(&quot;FEC&quot;)
Response.Write &quot;Fecha:&quot; &amp; flag_fec
while flag_fec = rstmp.Fields(&quot;FEC&quot;) and not rstmp.eof
flag_flag = rstmp.Fields(&quot;FLAG&quot;)
while flag_flag = rstmp.Fields(&quot;FLAG&quot;) and flag_fec = rstmp.Fields(&quot;FEC&quot;) and not rstmp.eof
flag_ana = rstmp.Fields(&quot;ANA&quot;)
while flag_ana = rstmp.Fields(&quot;ANA&quot;) and flag_flag = rstmp.Fields(&quot;FLAG&quot;) and flag_fec = rstmp.Fields(&quot;FEC&quot;) and not rstmp.eof
rstmp.MoveNext
wend
wend
wend
wend
%&gt;