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!