Foros del Web » Programando para Internet » ASP Clásico »

Problemas con absolutepage

Estas en el tema de Problemas con absolutepage en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 30/05/2005, 14:45
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Problemas con absolutepage

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.
__________________
Tu portal de manga y anime.
  #2 (permalink)  
Antiguo 31/05/2005, 13:34
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
¿Nadie me puede echar una mano en porqué me devuelve -1 el absolutepage siempre?
__________________
Tu portal de manga y anime.
  #3 (permalink)  
Antiguo 31/05/2005, 13:46
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
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,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #4 (permalink)  
Antiguo 31/05/2005, 15:44
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
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
__________________
Tu portal de manga y anime.
  #5 (permalink)  
Antiguo 31/05/2005, 19:24
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
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,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #6 (permalink)  
Antiguo 01/06/2005, 10:11
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
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?
__________________
Tu portal de manga y anime.
  #7 (permalink)  
Antiguo 01/06/2005, 10:17
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
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,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #8 (permalink)  
Antiguo 01/06/2005, 16:46
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
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 >_<
__________________
Tu portal de manga y anime.
  #9 (permalink)  
Antiguo 03/06/2005, 06:07
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
Por favor, ayudame un pelin más, que no veo exactamente qué me quieres decir >_<
__________________
Tu portal de manga y anime.
  #10 (permalink)  
Antiguo 03/06/2005, 14:48
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 5 meses
Puntos: 98
Meru, lo que te dije desde el principio, no veo donde estás haciendo la asignación del valor al re.AbsolutePage

Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #11 (permalink)  
Antiguo 03/06/2005, 18:11
Avatar de meru-kun  
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 21 años, 6 meses
Puntos: 0
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 ...
__________________
Tu portal de manga y anime.
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:44.