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

Urgente

Estas en el tema de Urgente en el foro de ASP Clásico en Foros del Web. Hola no se como hacer algo que llevo a dos dias con lo mismo, el problema es el siguiente: Tengo hecha una paginación que funciona ...
  #1 (permalink)  
Antiguo 08/09/2002, 05:28
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Urgente

Hola no se como hacer algo que llevo a dos dias con lo mismo, el problema es el siguiente:

Tengo hecha una paginación que funciona muy bien, la idea es que cuando haga click en el valor de la primera columna me habra una ventana, y que salga el valor del codigo en el cual he hecho click, el problema es que cuando hago click me coje el valor 10
en cual codigo de la primera paginacion , cuando paso pagina me coge el 20 , me va cogiendo siempre el ultimo valor de cada paginacion.

Que alguien me ayuda
  #2 (permalink)  
Antiguo 08/09/2002, 05:31
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Re: Urgente

Pon el codigo o un fragmento de el.

<img src="http://www.expansionweb.net/images/ewbanner.gif">Jose Maria Fernandez
<a href="mailto:[email protected]">Webmaster @expansionweb.net</a>
<a target="_blank" href="Http://www.expansionweb.net">Http://www.expansionweb.net</a>
  #3 (permalink)  
Antiguo 08/09/2002, 05:34
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;
&lt;link rel=&quot;stylesheet&quot; href=&quot;config/infra.css&quot; type=&quot;text/css&quot;&gt;
&lt;%@ LANGUAGE=&quot;VBScript&quot; %&gt;
&lt;% 'Option Explicit %&gt;
&lt;!-- #include virtual =&quot;Control/include/adovbs.inc&quot; --&gt;
&lt;script language=&quot;javascript&quot; src=&quot;include/form.js&quot;&gt;&lt;/script&gt;

&lt;html&gt;

&lt;%xx=request.form(&quot;direccion&quot;)
if xx = &quot;Atras&quot; then
session(&quot;pagina&quot;)=session(&quot;pagina&q uot;)-1

if session(&quot;pagina&quot;)&lt; 1 then
session(&quot;pagina&quot;)=1 'evitamos el error por reload
end if

else
if xx=&quot;Adelante&quot; then
session(&quot;pagina&quot;)=session(&quot;pagina&q uot;)+1
else
session(&quot;pagina&quot;)=1 'primera pasada
end if
end if%&gt;

&lt;head&gt;
&lt;title&gt;Música - MP3 / CDs&lt;/title&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;%
set conexion = Server.CreateObject(&quot;ADODB.Connection&quot;)
set rs = CreateObject(&quot;ADODB.Recordset&quot;)

'Conexion SQl server
conexion.Open &quot;Provider=SQLOLEDB;Data Source=S5K9S5;Initial Catalog=CONTROL;User Id=sa;Password=eurojames;OLE DB Services=-2&quot;
sqltext = &quot;SELECT * FROM MUSICA&quot;
rs.Open sqltext, conexion, 3, 1
%&gt;


&lt;%
rs.pagesize=10

if session(&quot;pagina&quot;)&gt;rs.pagecount then
session(&quot;pagina&quot;)=rs.pagecount 'evitamos el error de reload
end if%&gt;

&lt;!-- situamos el cursor en el inicio de la pagina a mostrar y
calculamos los valores de inicio y fin para mostrarlos en
las cabeceras --&gt;

&lt;%rs.absolutepage=session(&quot;pagina&quot; )
inicio=1+(session(&quot;pagina&quot;)-1)*rs.pagesize
fin=inicio+9
if fin &gt; rs.recordcount then
fin =rs.recordcount
end if
%&gt;
&lt;center&gt;&lt;h3&gt;Paginación de registros&lt;/h3&gt;&lt;/center&gt;
&lt;table border=&quot;0&quot; width=&quot;100%&quot; bgcolor=&quot;#C0C0C0&quot;&gt;
&lt;tr&gt;
&lt;td width=&quot;50%&quot; align=&quot;center&quot;&gt;Registros &lt;font color=&quot;#FF0000&quot;&gt;&lt;%=inicio%&gt; &lt;/font&gt;
al &lt;font color=&quot;#FF0000&quot;&gt;&lt;%=fin%&gt;&lt;/font&gt; de un total de
&lt;font color=&quot;#FF0000&quot;&gt;&lt;%=rs.recordcount% &gt;&lt;/font&gt;&lt;/td&gt;
&lt;td width=&quot;50%&quot; align=&quot;center&quot;&gt;Página &lt;font color=&quot;#FF0000&quot;&gt;&lt;%=session(&quot;p agina&quot;)%&gt;
&lt;/font&gt; de &lt;font color=&quot;#FF0000&quot;&gt;&lt;%=rs.pagecount%&g t;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;br&gt;

sigue
  #4 (permalink)  
Antiguo 08/09/2002, 05:35
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

&lt;table BORDER=&quot;1&quot; CELLSPACING=&quot;0&quot; BORDERCOLOR=&quot;#000000&quot; CELLPADDING=&quot;2&quot; width=&quot;100%&quot;&gt;
&lt;tr&gt;
&lt;td BGCOLOR=&quot;#C0C0C0&quot;&gt;&lt;b&gt;Nombre de producto&lt;/b&gt;&lt;/td&gt;
&lt;td BGCOLOR=&quot;#C0C0C0&quot;&gt;&lt;b&gt;Cantidad por unidad&lt;/b&gt;&lt;/td&gt;
&lt;td BGCOLOR=&quot;#C0C0C0&quot; align=&quot;right&quot;&gt;&lt;b&gt;Precio por unidad&lt;/b&gt;&lt;/td&gt;
&lt;/tr&gt;


&lt;!-- montamos el bucle para mostrar los registros --&gt;

&lt;%
contador=0
Do While contador &lt; rs.pagesize and NOT rs.EOF%&gt;


&lt;tr&gt;
&lt;td&gt;
&lt;a href=&quot;javascript:AbreVentana4()&quot;&gt;
&lt;%= rs(&quot;musica&quot;)%&gt;
&lt;/a&gt;
&lt;%
dim mus
mus = rs(&quot;musica&quot;).value
response.write mus

'Session(&quot;mus&quot;)=mus
Response.Cookies(&quot;Ejemplo&quot;)= mus
%&gt;

&lt;/td&gt;
&lt;td&gt;&lt;%= rs(&quot;categoria&quot;)%&gt;&lt;/td&gt;
&lt;td align=&quot;right&quot;&gt;&lt;%= rs(&quot;titulo&quot;)%&gt;&lt;/td&gt;
&lt;/tr&gt;

&lt;% rs.MoveNext
contador=contador+1
Loop
%&gt;
&lt;/table&gt;
&lt;div align=&quot;center&quot;&gt;
&lt;center&gt;

&lt;!-- mostramos los botones de adelante y atras segun proceda --&gt;

&lt;table border=&quot;0&quot; width=&quot;38%&quot; height=&quot;5&quot;&gt;
&lt;tr&gt;&lt;%if session(&quot;pagina&quot;)&lt;&gt; 1 then %&gt;
&lt;td width=&quot;50%&quot; height=&quot;1&quot; align=&quot;center&quot;&gt;
&lt;form method=&quot;POST&quot; action=&quot;paginando.asp&quot;&gt;
&lt;p&gt;&lt;input type=&quot;submit&quot; value=&quot;Atras&quot; name=&quot;direccion&quot;&gt;&lt;/p&gt;
&lt;/form&gt;
&lt;/td&gt;&lt;%end if%&gt;
&lt;%if session(&quot;pagina&quot;)&lt; rs.pagecount then%&gt;
&lt;td width=&quot;50%&quot; height=&quot;1&quot; align=&quot;center&quot;&gt;
&lt;form method=&quot;POST&quot; name=&quot;paginando.asp&quot;&gt;
&lt;p&gt;&lt;input type=&quot;submit&quot; value=&quot;Adelante&quot; name=&quot;direccion&quot;&gt;&lt;/p&gt;
&lt;/form&gt;
&lt;/td&gt;&lt;%end if%&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/center&gt;
&lt;/div&gt;

&lt;!-- cerramos el recordset --&gt;

&lt;%rs.Close%&gt;

&lt;/body&gt;
&lt;/html&gt;
  #5 (permalink)  
Antiguo 08/09/2002, 05:36
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

Y la pagina que se abre es esta

&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;
&lt;link rel=&quot;stylesheet&quot; href=&quot;config/marco.css&quot; type=&quot;text/css&quot;&gt;
&lt;%@ LANGUAGE=&quot;VBScript&quot; %&gt;
&lt;% 'Option Explicit %&gt;
&lt;!-- #include virtual =&quot;Control/include/adovbs.inc&quot; --&gt;
&lt;script language=&quot;javascript&quot; src=&quot;include/form.js&quot;&gt;&lt;/script&gt;

&lt;html&gt;
&lt;head&gt;
&lt;title&gt;PORTADA&lt;/title&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;%
'dim cod
'cod=Session(&quot;mus&quot;)
'response.write cod

Dim cookie
'Recuperamos nuestra cookie
cookie = Request.Cookies(&quot;Ejemplo&quot;)

'Y la escribimos
Response.Write(cookie)

%&gt;


&lt;/body&gt;
&lt;/html&gt;
  #6 (permalink)  
Antiguo 08/09/2002, 05:38
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

Donde esta la llamada de AbreVentanta4 es donde se ejecuta la funcion de abrir ventana y me sale el valor ese, siempre el ultimo de cada pagina que pagino o sea 10,20,30 etc
  #7 (permalink)  
Antiguo 08/09/2002, 10:25
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

No hay nadie que me ayude estoy desesperado, que alguien me pueda ayudar, llevo ya tres dias con esto

Gracias
Jaime
  #8 (permalink)  
Antiguo 08/09/2002, 12:48
 
Fecha de Ingreso: febrero-2002
Mensajes: 442
Antigüedad: 22 años, 3 meses
Puntos: 2
Re: Urgente

hola....
te tira error en un tag &quot;&lt;html&gt;&quot;
es por el orden en que definiste las cosas...
ese no creo que sea tu problema, de todos modos....es asi
&lt;%@ LANGUAGE=&quot;VBScript&quot; %&gt;
&lt;!-- #include virtual =&quot;Control/include/adovbs.inc&quot; --&gt;
&lt;script language=&quot;javascript&quot; src=&quot;include/form.js&quot;&gt;&lt;/script&gt;
&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;
&lt;html&gt;
&lt;link rel=&quot;stylesheet&quot; href=&quot;config/infra.css&quot; type=&quot;text/css&quot;&gt;
-------------------
otra cosa...
-que tienes en el include... form.js..???
-por que no defines los include con ASP ???
-para comentar el codigo puedes hacerlo con un &quot;tilde&quot;... ('comentario decodigo)
-para optimizar algo el asp tines que definir las etiquetas de asp lo menos posible..... o sea.... si abres una etiqueta, luego la cierras... y luego la vuelves a abrir.... podrias poner todo dentro de la misma!... me explico??
y... por que defines la ventana que abres con asp...? o sea ... en ves de un pop up... que sea una ventana... es mas facil para visualizar las variables que pasas en forma dinamica con los links....

es engorroso saber el error sin poder probar nada!!!! jaja.... pero estoy haciendo el inetento!... trata de explicarme un poco mas!! como pasas las variables a la ventana que abres?????
  #9 (permalink)  
Antiguo 08/09/2002, 12:59
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

Si quieres dame tu email y te paso los dos archivos
  #10 (permalink)  
Antiguo 08/09/2002, 16:42
 
Fecha de Ingreso: febrero-2002
Mensajes: 442
Antigüedad: 22 años, 3 meses
Puntos: 2
Re: Urgente

okey!... no problem!.

Última edición por OXIGENO; 30/10/2007 a las 11:51
  #11 (permalink)  
Antiguo 09/09/2002, 01:36
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

Te mando los archivos a la noche cuando llegue a casa
  #12 (permalink)  
Antiguo 09/09/2002, 07:36
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

Alguien se le ocurre algo, seguro que es una chorrada el fallo.
  #13 (permalink)  
Antiguo 09/09/2002, 17:23
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

nadie sabe nada?
  #14 (permalink)  
Antiguo 10/09/2002, 02:21
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

Alguna idea?
  #15 (permalink)  
Antiguo 10/09/2002, 12:29
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

Estoy desesperado
  #16 (permalink)  
Antiguo 10/09/2002, 15:16
 
Fecha de Ingreso: diciembre-2001
Mensajes: 76
Antigüedad: 22 años, 5 meses
Puntos: 0
Re: Urgente

ya esta lo he solucionado gracias por todo
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:07.