ASP - problema con SESSION!!!!!

saludos a todos: Tengo un bd que relaciona un # de informaciones de diferentes empresas(empresa, telf, email,informacion). Sucede que el campo información quiero hacerle un enlace para visualizarlo en otra pagina.asp. para esto uso el objeto session para controlar el campo Id_campo de los diferentes registro de la tabla. Sucede que cuando pincho en el enlace me coge el ultimo id_campo de la tabla y es el que me manda a la otra pagina a traves de session. Yo quiero lograr que mi codigo sea capaz de enviar a la otra pagina el valor del enlace que se pinche, no el ultimo valo del id_campo de la tabla. Espero que me hayan entendido. este es el cod que empleo

While not Rs.Eof %>
<%session("id")= rs.fields.Item("Id_campo").value
response.write(rs.Fields.Item("Empresa").Value)
response.write(rs.Fields.Item("telf").Value)
y así hasta listar el ultimo campo
el enlace al campo info para la otra pag.asp es:

<a href="#" onclick="window.open('infor.asp?id=<%=id_campo%>','','toolbar=no,location=no,scrollbars=no,resizable=yes,top=0,left=0,width=350h,height=350')" target="_self">Información Adicional</a>

En la otra pagina que muestra la información es:
Infor.asp
<% Dim valor
valor= session("id")

hago la conexion pertinente y luego:

While not rs.eof
If valor = rs.fields.item("id_campo") then
response.Write(rs.fields.item("Información"))
end if
rs.MoveNext
wend
%>

Gracias de antemano

Lo que sucede es que estas redundando en tu codigo

el session lo estas actualizando cada vez que se inicia un siclo y obviemente el valor final va a ser el ultimo campo

Si ya estas pasando el parametro y requieres forzozamente el session, actualizalo pero en la otra pagina.

Tu codigo quedaria asi:

While not Rs.Eof %>
<%
response.write(rs.Fields.Item("Empresa").Value)
response.write(rs.Fields.Item("telf").Value)
y así hasta listar el ultimo campo
el enlace al campo info para la otra pag.asp es:

<a href="#" onclick="window.open('infor.asp?id=<%= rs.fields.Item("Id_campo").value%>','','toolbar=no,location=no,scrollbars=no,resizable=yes,top=0,left=0,width=350h,height=350')" target="_self">Información Adicional</a>

En la otra pagina que muestra la información es:
Infor.asp
<% Dim valor
valor=request.querrystring("Id")
session("id")=valor // opcional, si es que lo vas a usar en otras paginas subsecuentes

hago la conexion pertinente y luego:

While not rs.eof
If valor = rs.fields.item("id_campo") then
response.Write(rs.fields.item("Información"))
end if
rs.MoveNext
wend
%>

Saludos y espero te sirva

Lo que sucede es que estas redundando en tu codigo

el session lo estas actualizando cada vez que se inicia un siclo y obviemente el valor final va a ser el ultimo campo

Si ya estas pasando el parametro y requieres forzozamente el session, actualizalo pero en la otra pagina.

Tu codigo quedaria asi:

While not Rs.Eof %>
<%
response.write(rs.Fields.Item("Empresa").Value)
response.write(rs.Fields.Item("telf").Value)
y así hasta listar el ultimo campo
el enlace al campo info para la otra pag.asp es:

<a href="#" onclick="window.open('infor.asp?id=<%= rs.fields.Item("Id_campo").value%>','','toolbar=no,location=no,scrollbars=no,resizable=yes,top=0,left=0,width=350h,height=350')" target="_self">Información Adicional</a>

En la otra pagina que muestra la información es:
Infor.asp
<% Dim valor
valor=request.querrystring("Id")
session("id")=valor // opcional, si es que lo vas a usar en otras paginas subsecuentes

hago la conexion pertinente y luego:

While not rs.eof
If valor = rs.fields.item("id_campo") then
response.Write(rs.fields.item("Información"))
end if
rs.MoveNext
wend
%>

Saludos y espero te sirva

Hola amigo: he probado la solución que me has dado y lo que hace es devolverme la pagina en blanco(sin ninguna información ). Todo parece indicar que la información que pido con el querystring no la coge. No habrá que hacer algo en la otra página???.
Gracias de antemano, espero me ayuden a resolver este problemilla

sera esto????

While not rs.eof
If valor = rs.fields.item("id_campo").value then
response.Write(rs.fields.item("Información").value)
end if
rs.MoveNext
wend
%>