Problema: Bucles y Recordset´s

[meru-kun]

Bien, tengo, más o menos, el siguiente código:
Cojo la ID del usuario.

Código:

strSQL1 = "SELECT MEMBER_ID, M_NAME, M_ZA FROM FORUM_MEMBERS"
 Set MR2 = my_conn.execute(strSQL1)
  Do While Not MR2.EOF or MR2.BOF
   intUserID = cInt(MR2("MEMBER_ID"))
   txtName = MR2("M_NAME")

Ahora, recorro otra DB, haciendo un COUNT de los campos que tenga esa ID. Hasta ahí ningún problema

Código:

strSQL = "SELECT M_POSTS FROM FORUM_MEMBERS WHERE MEMBER_ID=" & intUserID
  Set MRP = my_conn.execute(strSQL)
   intPosts = MRP("M_POSTS")
    intZAPosts = cInt(cInt(intPosts)) ' ** Modificador del valor de los posts..
     MRP.Close

[ ... ]

El problema viene aquí. Esta vez no tengo que hacer un COUNT, si no que lo que hago es un bucle dentro de ese bucle, que me recorra la DB, y si el REPORT es TIPO 1, entonces sume 200, si es TIPO 0, entonces sume 75

Código:

 strSQL6 = "SELECT CAT FROM REPORTS_REPORTS WHERE AUTOR_ID=" & intUserID
   Set MD = Server.CreateObject("ADODB.Recordset")
    Set MD = MyMensConn.Execute(strSQL6)
	If Not MD.EOF or MD.BOF Then
     Do while not MD.EOF or MD.BOF
      If MD("CAT") = cByte(0) Then
       intPeque = intPeque + 75
      Else
       intGrande = intGrande + 200
      End If
     MD.movenext
     loop
     intZAReports = intGrande + intPeque
	Else
	 intZAReports = 0
	End If
       MD.Close

Sin embargo, esto ya no funciona. Me dice que ocurrio una excepción en la linea que está en negrita. No es por la conversio´n cByte(que la quito y sigue igual), y no se por que es.
¿Alguna idea?

P.D: Al final, cierro todas las conexiones:

Código:

    MR2.MoveNext
   Loop
    MR2.Close

GRACIAS!

[PMP]

Hola, prueba poniendo donde dice

Do while not MD.EOF or MD.BOF

remplazalo por:

Do while ((NOT MD.EOF) AND (NOT MD.BOF))


Saludos!!!