Ocurrio una excepcion

[GusGreen]

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

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

%>
<table border="1" cellpadding="0" >
<tr>
<th align="left"><font size="2">Datos de Historia Clínica</font></th>
</tr>
<%

if rstmp.RecordCount > 0 then
rstmp.MoveFirst
end if

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
%>