Urgente

[eurojames]

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

[maestro]

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>

[eurojames]

&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

[eurojames]

&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;

[eurojames]

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;

[eurojames]

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

[eurojames]

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

Gracias
Jaime

[OXIGENO]

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?????

[eurojames]

Si quieres dame tu email y te paso los dos archivos

[OXIGENO]

okey!... no problem!.

[eurojames]

Te mando los archivos a la noche cuando llegue a casa

[eurojames]

Alguien se le ocurre algo, seguro que es una chorrada el fallo.

[eurojames]

nadie sabe nada?

[eurojames]

Alguna idea?

[eurojames]

Estoy desesperado

[eurojames]

ya esta lo he solucionado gracias por todo