Tema: Paginar DIV
Ver Mensaje Individual
  #9 (permalink)  
Antiguo 26/07/2010, 10:47
Avatar de JavierMMM
JavierMMM
 
Fecha de Ingreso: agosto-2008
Ubicación: Justito frente a la computadora.
Mensajes: 278
Antigüedad: 16 años, 8 meses
Puntos: 0
Pregunta Respuesta: Paginar DIV

Hola a todos, despues de unos dias de andar tratando de hacerlo, definitivamente no pude. Tambien recurri al foro de Ajax como me recomendo elxus.

Trate de hacerlo con el siguiente codigo, pero lo que hace es redireccionar a la misma pagina, mas no al DIV que es como lo necesito... este es el codigo que utilizo:

Código:
sSQL="Select A.usuario as Usuario, A.asunto as Asunto, A.fechaap as FechaEvento, A.Dia, A.horaevento as Hora From agenda A inner join kilometraje B on (A.Idregistro = B.Idregistro) Order By  A.fechaap"

If Request.QueryString("pag")<>"" Then
   Session("pagina")=Request.QueryString("pag")
Else
   Session("pagina")=1
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Set Command = Server.CreateObject("ADODB.Command")
Set RST =Server.CreateObject("ADODB.RecordSet")
Conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("bd.mdb")
Conn.Open
RST.Open sSQL,Conn,adopenstatic,adcmdtext

num_registros = 5

RST.PageSize=num_registros
RST.AbsolutePage=Session("pagina")

<tr>
<td colspan="<%=num_campos%>" align="center">
<br />
<%
   i=0
While i<RST.PageCount
   i=i+1
%>	
   <b><a href="pruebaPaginacion.asp?pag=<%=i%>"><%=i%></a></b>
<%
Wend
%>
</td>
</tr>
<%
RST.Close
Conn.Close
¿como puedo hacerle para que en lugar que se redireccione a la pagina se haga en el DIV?

este es el codigo del DIV, completo:
Código:
<div id="derecha" style="width:250px; overflow:auto";> 
	<%
	rs.open "Select A.dia, A.tusuario, B.finalizado, A.Idregistro, A.usuario, A.Idusuario, A.asunto, A.comentario, A.fechaap, A.horaevento, A.fecha, A.hora From agenda A inner join kilometraje B on (A.Idregistro = B.Idregistro) Order By  A.fechaap",con
	%> <br />
	<form name="formulario" action="comentarios.asp" method="post">
	<%
		Do While not rs.eof
			idregistro = trim(rs("idregistro"))
			usuario = trim(rs("usuario"))
			idusr = trim(rs("Idusuario"))
			tusr = trim(rs("tusuario"))
			finalizado = trim (rs("finalizado"))
			if (finalizado = 0) then
				response.Write("<b>Usuario:</b> " & rs("usuario") & "<br />")
				response.Write("<b>Asunto:</b> " & rs("asunto") & "<br />")
				response.Write("<b>Fecha del evento:</b> "& rs("fechaap") & "<br />")
				response.Write("<b>Día del evento:</b> "& rs("dia") & "<br />")
				response.Write("<b>Hora del evento:</b> " & rs("horaevento") & " Hrs." & "<br />")
				response.Write("<b>Fecha de solicitud:</b> " & rs("fecha") & "<br />")
				response.Write("<b>Hora de la solicitud:</b> " & rs("hora") & "<br /><br />")
				%> 
				<br /><img src="line.gif" /><br /><br />
				<%
			end if
			rs.movenext
		Loop
		rs.close
	%>
	</form>	
</div>

Última edición por JavierMMM; 26/07/2010 a las 12:17