¿Por que no realiza la funcion para todos los registros?

[sqa212]

Estoy intentando incorporar a un foro una funcion que le diga al usuario si ha participado en un tema o no,
la funcion hace bien su trabajo,pero aunque los parametros si llegan,
no hace los calculos para el primer registro mostrado.
<%
function IntervenMensaje(idcliente,idcabeza)
dim sql, rsIntervenMensaje
sql = "select idmensaje from Foro where idcliente=" & Idcliente & "AND idcabeza=" & idcabeza
set rsIntervenMensaje = Db.Execute(sql)
if not (rsIntervenMensaje.BOF and rsIntervenMensaje.EOF) then
participado="si"
else
participado="no"
end if
rsIntervenMensaje.close
Set rsIntervenMensaje=Nothing
end function
%>
<%
DIM mySQL, objRS
mySQL = "SELECT * FROM foro WHERE IdCabeza=0 AND aprobado=0 ORDER BY Fecha DESC"
%>
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = 1
objRS.Open mySQL, db

DIM intPageRecords, intRecordCount, intCurrentPage
DIM intNumberOfPages, intDisplayPage
intPageRecords = Request.Querystring("pagina")
IF intPageRecords = "" THEN intPageRecords = 1
intPageRecords = ((intPageRecords - 1) * 6) +1
intRecordCount = 0
%>

<%
IF NOT objRS.EOF THEN
objRS.Move (intPageRecords - 1)
DO WHILE intRecordCount < 6 and NOT objRS.EOF
%>


<%=session("idcliente")%>
<%=objRS("idmensaje")%>
<%=IntervenMensaje(session("idcliente"),objRS("idm ensaje"))%>
<%=participado%>
Ejemplo de lo que ocurre:
452
si454
no457
si459

[sqa212]

Ninguna solucion o explicacion de lo que ocurre????

[u_goldman]

<%
IF NOT objRS.EOF THEN
ObjRS.Move (intPageRecords - 1)
DO WHILE intRecordCount < 6 and NOT objRS.EOF
%>

Para que mueves el rs antes de hacer cualquier otra cosa? Para mi que por ahi esta el problema...


Salu2,

[sqa212]

Tenias razon U Goldman.Ahora con las modificaciones que he puesto en color rojo tambien me muetra para el primer registro, pero ahi algo que no llego a entender, si ahora borro lo que hay entre los dos no me muestra tampoco lo del primer registro, el resto no los muestra pero por que los he dejado de solicitar, pero ¿por que dejaria de mostrar el primero?
<%
function IntervenMensaje(idcliente,idmensaje)
dim sql, rsIntervenMensaje
sql = "select idmensaje from Foro where idcliente=" & session("idcliente") & " AND idcabeza=" & idmensaje
'Response.write(sql)
'response.End()
set rsIntervenMensaje = Db.Execute(sql)
if not (rsIntervenMensaje.BOF and rsIntervenMensaje.EOF) then
participado=1
else
end if
rsIntervenMensaje.close
Set rsIntervenMensaje=Nothing
end function
%>

DIM mySQL, objRS
mySQL = "SELECT * FROM foro WHERE IdCabeza=0 AND aprobado=0 ORDER BY Fecha DESC"
%>

<%
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = 1
objRS.Open mySQL, db

DIM intPageRecords, intRecordCount, intCurrentPage
DIM intNumberOfPages, intDisplayPage
intPageRecords = Request.Querystring("pagina")
IF intPageRecords = "" THEN intPageRecords = 1
intPageRecords = ((intPageRecords - 1) * 6) +1
intRecordCount = 0
%>

<%If session("idcliente")<>"" then%>
<%=IntervenMensaje(session("idcliente"),objRS("idm ensaje"))%>
<%If participado=1 then%>
<img border="0" src="imagenes/participado.gif">
<%'para volver a incializar la variable participado%>
<%participado=0%>
<%else%>
<%end if%>
<%else%>
<%end if%>
<%
IF NOT objRS.EOF THEN
objRS.Move (intPageRecords - 1)
DO WHILE intRecordCount < 6 and NOT objRS.EOF
%>


<%If session("idcliente")<>"" then%>
<%=IntervenMensaje(session("idcliente"),objRS("idm ensaje"))%>
<%If participado=1 then%>
<img border="0" src="imagenes/participado.gif">
<%'para volver a incializar la variable participado%>
<%participado=0%>
<%else%>
<%end if%>
<%else%>
<%end if%>