error '80020009' en bucle while

deberia estar bien pero yo por si acaso usaria parentesis, aunque suene
tonto, pero para evitar que haga booleans entre las cosas (algo asi como
evitar que intente decir while i menor que "cinco and not...")

prueba con
while (i<5) and (not rs.EOF) and (not rs.bof) and (not
(rs("fh")=fecha_foto))

por otro lado el bucle puede dar problemas en los eof y bof, ya que estas
usando en la comparacion un campo del recordset que puede no existir,
creo que por ahi te dara el problema, asi que deberias "trocear" la
comparacion:


i=0
Bucle= ((not rs.EOF) and (not rs.bof))
While Bucle
Response.Write(rs("tipoinfo")& " - " & rs("titular") &"<br>")
i=i+1
rs.MoveNext
Bucle= ( (i<5) and (not rs.EOF) and (not rs.bof))
if Bucle then bucle=bucle and (not (rs("fh")=fecha_foto))
wend


____________________________
Daniel Castillo Martinez
Ajuntament d'Alaquàs. Societat de la Informació

____________________________
"Jordi" escribió en el mensaje
news:
Mostrar la cita

Hola a ,

No esta bien la expresion siguiente ?

while i<5 and not rs.EOF and not rs.bof and not rs("fh")=fecha_foto

ya que cuando le añado el rs("fh")=fecha_foto me da el error (si quito
dicho me va bien):

error '80020009'

El codigo que comprende es:

<%
'Ordenar fh por fecha descendente
sql="select * from ep where tipoinfo='" & info & "'
order by fh desc"
rs.open sql,oConn, 2,2
rs.MoveFirst
%>

<%
response.write("<br>")
i=0
while i<5 and not rs.EOF and not rs.bof and not rs("fh")
=fecha_foto
Response.Write(rs("tipoinfo")& " - " & rs("titular")
&"<br>")
i=i+1
rs.MoveNext
wend
rs.Close
%>



Donde fecha_foto lo saco de

<% fecha_foto=hora_stamp(rs("fh")) %>



Sabeis donde puede estar el error??


Gracias de antemano