Problemas con absolutepage

[meru-kun]

Tengo un foro (Snitz), que en mi localhost funciona perfectamente, pero que en el servidor parece que no tanto.
Hay una función que tu le dices pagina=-1tema=xrespuesta=y , y el te devuelve la página en que está esa respuesta dentro del tema y te redirecciona ahí.

He estado comprobando los valores, y funciona todo, salvo que el absolutepage que te devuelve es ineludiblemente -1. Os dejo la parte del código, a ver si alguien es capaz de ayudarme.

Código:

set rsReplies = Server.CreateObject("ADODB.Recordset")
rsReplies.cachesize = strPageSize
rsReplies.pagesize = strPageSize

rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText

LastPostReplyID = cLng(Request.QueryString("REPLY_ID"))
rsReplies.Find = "REPLY_ID=" & LastPostReplyID & ""

if rsReplies.absolutepage > 1 then strwhichpage = "whichpage=" & rsReplies.absolutepage & "&"

He hecho una "selección" del codigo, en donde yo veo el problema. Pero si quereis os copio el trozo entero. Un saludo, y gracias.

[meru-kun]

¿Nadie me puede echar una mano en porqué me devuelve -1 el absolutepage siempre?

[u_goldman]

AbsolutePage debe tener un valor que tu le asignas que no?? esto es para paginar? por que no pones un poco mas de codigo.

Salu2,

[meru-kun]

Es que no entiendo muy bien porqué lo usa. Lo que aquí se pretende hacer es "sacar" la página en la que se encuentra esa respuesta, para luego redireccionar.

El código completo de esa parte es este:

Código:

if mypage = -1 and Request.QueryString("REPLY_ID") <> "" then
	strSql1 = "SELECT REPLY_ID "
	strSql2 = "FROM " & strActivePrefix & "REPLY "
	strSql3 = "WHERE TOPIC_ID = " & Topic_ID & " "
	' DEM --> if not a Moderator, all unapproved posts should not be viewed.
	if AdminAllowed = 0 then
		strSql3 = strSql3 & "AND (R_STATUS < "
		if Moderation = "Y" then
			' Ignore unapproved/rejected posts
			strSql3 = strSql3 & "2 "
		else
			' Ignore any previously rejected topic
			strSql3 = strSql3 & "3 "
		end if
		strSql3 = strSql3 & "OR R_AUTHOR = " & MemberID & ") "
	end if
	strSql4 = "ORDER BY R_DATE ASC "

		set rsReplies = Server.CreateObject("ADODB.Recordset")
		rsReplies.cachesize = strPageSize
		rsReplies.pagesize = strPageSize

		rsReplies.open strSql1 & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic, adLockReadOnly, adCmdText

		LastPostReplyID = cLng(Request.QueryString("REPLY_ID"))
		rsReplies.Find = "REPLY_ID=" & LastPostReplyID & ""

		if not (rsReplies.EOF or rsReplies.BOF) then
			if rsReplies.absolutepage > 1 then strwhichpage = "whichpage=" & rsReplies.absolutepage & "&"
		else
			strwhichpage = ""
		end if
'response.write rsReplies.absolutepage
		rsReplies.Close
		set rsReplies = nothing
	end if
	Response.Redirect("topic.asp?" & strwhichpage & "TOPIC_ID=" & Topic_ID & "&#" & LastPostReplyID & "")
	Response.End
end if

[u_goldman]

Pues que curioso porque yo no veo que en ningún momento se le asigne un valor a AbsolutePage, que en efecto te debe decir en que página del recordset estás...

Salu2,

[meru-kun]

Perdona mi ignorancia, pero: ¿como le asigno ese absolutepage?

Quiero decir, es una propiedad de la página en que estoy, pero ¿como lo saco?

[u_goldman]

Supongo que dependiendo del numero de páginas, tendrás que imprimir un paginador, este paginador es el encargado de pasar la página solicitada del recordset y la propiedad será absolutePage.

fíjate en esta condición:

Código:

If rs.RecordCount > intPageSize And intPageSize > 0 Then
	rs.PageSize = intPageSize
	rs.AbsolutePage = intPage
	m_TotalPages = rs.PageCount
Else
             m_TotalPages = 1
End If

Todos estos son argumentos que recibe mi función:

Código:

Public Function List(intPage,intPageSize,intDeptID,strLetter,intLive,strOrder)

Salu2,

[meru-kun]

Pero lo que yo he pegado en el código es lo mismo. el rs.Absolutepage me devuelve la página en la que está un registro dentro un den recordset paginado.

En tu código, compruebas si el numero de registros es mayor que el de "registros por página", y si lo es sacas el valor de la página en la que está el registro.

En lo que yo he pegado hace lo mismo ¿no? Es que no se exáctamente en donde "falta" algo para que el absolutepage tome su valor. No lo veo >_<

[meru-kun]

Por favor, ayudame un pelin más, que no veo exactamente qué me quieres decir >_<

[u_goldman]

Meru, lo que te dije desde el principio, no veo donde estás haciendo la asignación del valor al re.AbsolutePage

Salu2,

[meru-kun]

Vale, creo que ahora comprendo qué me pretendías decir. Pero si fuese así, en mi servidor localhost tampoco funcionaría, y ahí es donde estriba lo raro: que sí que funciona correctamente.

Misterios de ASP ...