Uso de variable session! No manda la variable:

[stuart_david3]

Hola a todos, pues verán tengo una tabla en la que en la última columna inserto un link el cual me redirige a una página en la que paso una variable de sessión, pero la otra página no me recibe nada. Esta algo mal en cuanto a como estoy usando la variable session?

Aquí la mando:

Código ASP:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim funcionario = Request.QueryString("datos")
        Dim reader As SqlDataReader
        Dim conn As SqlConnection = New SqlConnection("server=(local);database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String = "SELECT id, nombre, puestoant, funcionario_en_revision FROM Reemplazos3 WHERE funcionario_en_revision='" & funcionario & "'"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
        reader = dr.ExecuteReader()
        Response.Write("<table border=1><tr><td>RPE</td>")
        Response.Write("<td>NOMBRE</td>")
        Response.Write("<td>PUESTO</td>")
        Response.Write("<td>CORREO</td>")
        Response.Write("<td>PROPUESTAS</td></tr>")
        While reader.Read()
            Dim Para = CStr(reader("funcionario_en_revision"))
            Response.Write("<tr><td>" + CStr(reader("id")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("nombre")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("puestoant")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("funcionario_en_revision")).ToString + "</td>")
            'Response.Write("<td><a href=ConfirmarFunc1.aspx>Click</a>" + Session(CStr(reader("funcionario_en_revision")).ToString + "</td>"))
            'Response.Write("<td><a href=ConfirmarFunc1.aspx>Click</a>" + Session("funcionario_en_revision") = CStr(reader("funcionario_en_revision")).ToString + "</td>")
            Response.Write("<td>")
            'Aquí mando mi variable session ¿esta bien?...
            Response.Write("<a href=ConfirmarFunc1.aspx>hola" + Session(CStr(reader("funcionario_en_revision")).ToString) + "</a>")
            Response.Write("</td>")
            Response.Write("</tr>")
        End While
        Response.Write("</table>")
        reader.Close()
        conn.Close()
 
    End Sub
 

Aquí lo recibo:

Código ASP:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim reader As SqlDataReader
        Dim values As ArrayList = New ArrayList()
        Dim conn As SqlConnection = New SqlConnection("server=10.11.2.49;database=DBPrueba;User ID=sa;Password=administrador;Trusted_Connection=no")
        Dim Answer = ""
        'Aquí lo recibo pero siempre me manda el mensaje de "no hay"
        If (Session("funcionario_en_revision") = "") Then
            Answer = "no hay"
        Else
            Answer = Session("funcionario_en_revision").ToString()
        End If
        TextBox1.Text = Answer
.
.
.
 

Espero y me puedan ayudar, estoy algo desesperado y llevo tiempo con lo mismo ... Solo me manda el mensaje de que "no hay" osea que no me recibe mi variable de session ...

[stuart_david3]

Ok, creo que ya funciona la parte de enviar y recibir n_n... Pero ahí un detalle, como la lectura de registros la hago en un ciclo while, siempre me lee el último registro y por lo tanto me redirige a mi otra página con los datos de mi última fila ...

¿Cómo le hago para decirle que me lea solo los datos de la fila que seleccione?...

Aquí les dejo el código:

Envía:

Código ASP:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim funcionario = Request.QueryString("datos")
        Dim reader As SqlDataReader
        Dim conn As SqlConnection = New SqlConnection("server=(local);database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim sql As String = "SELECT id, nombre, puestoant, funcionario_en_revision FROM Reemplazos3 WHERE funcionario_en_revision='" & funcionario & "'"
        Dim dr As New SqlCommand(sql, conn)
        conn.Open()
        reader = dr.ExecuteReader()
        Response.Write("<table border=1><tr><td>RPE</td>")
        Response.Write("<td>NOMBRE</td>")
        Response.Write("<td>PUESTO</td>")
        Response.Write("<td>CORREO</td>")
        Response.Write("<td>PROPUESTAS</td></tr>")
        While reader.Read()
            Dim Para = CStr(reader("funcionario_en_revision"))
            'Aquí envio los datos pero solo me toma el ultimo registro en el link a la otra página
            Session("funcionario_en_revision") = CStr(reader("id").ToString)
            Response.Write("<tr><td>" + CStr(reader("id")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("nombre")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("puestoant")).ToString + "</td>")
            Response.Write("<td>" + CStr(reader("funcionario_en_revision")).ToString + "</td>")
            Response.Write("<td>")
            Response.Write("<a href='ConfirmarFunc1.aspx'>Ver Contrato</a>")
            Response.Write("</td>")
            Response.Write("</tr>")
        End While
        Response.Write("</table>")
        reader.Close()
        conn.Close()
 
    End Sub
 

Recibe:

Código ASP:

Dim Answer As String
        'Recibo y almaceno en "Answer"
        Answer = CType(Session("funcionario_en_revision"), String)
        TextBox1.Text = Answer
        Dim sql As String = "SELECT id, control, rpe, nombre, fechaant, escolaridad, ingreso, numplazaant, puestoant, claveant, adscripant, goant, ndant, cecoant, salarioant, deant, aant, numplazaact, puestoact, claveact, adscripact, goact, ndact, cecoact, salarioact, deact, aact, motivado, funcionario_en_revision, status1, status15, status2, status25, status3 FROM Reemplazos3 WHERE id='" & Answer & "'"
 

Cómo le hago para que me cada link me lea el dato de cada fila ...

De antemano agradezco su amable ayuda...

[stuart_david3]

Al final lo hice con un gridview así, al principio no me salía por que ponía una columan como tipo hiperlink cuando tenía que haber solo "habilitado la selección" en el mismo gridview y gracias a Dios funcionó n_n... Aquí el código, pos si le sirve a alguien:

Envía:

Código ASP:

Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.SelectedIndexChanged
        Session("sobres") = GridView1.SelectedRow().Cells(1).Text.ToString
        Response.Redirect("Recibe.aspx")
    End Sub
 

Recibe:

Código ASP:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Answer As String
        Answer = CType(Session("sobres"), String)
        TextBox1.Text = Answer
    End Sub