Poner varios links para mostrar diferentes campos de una base de datos!

[stuart_david3]

Ok te mando el código del script que recibe:

Código ASP:

Imports System.Data
Imports System.Data.SqlClient
Partial Class ConfirmarFunc15
    Inherits System.Web.UI.Page
 
    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=myhost;database=mydb;User ID=myuser;Password=mypass;Trusted_Connection=no")
        Dim Answer As String = Session("funcionario_en_revision").ToString()
        TextBox1.Text = Answer
        Dim sql2 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 funcionario_en_revision='[email protected]"
        Dim dr As New SqlCommand(sql2, conn)
        conn.Open()
        reader = dr.ExecuteReader()
        If reader.Read() Then
            Dim fecha = DateTime.Now
            Text_rpe.Text = CStr(reader("rpe")).ToString
            Text_Folio.Text = CStr(reader("control")).ToString
            Text_nombre.Text = CStr(reader("nombre")).ToString
            Text_nombre.Attributes.Add("readonly", "readonly")
            Text_nombre.BackColor = Drawing.Color.Silver
            Text_Feant.Text = CStr(reader("fechaant")).ToString
            Text_Feant.Attributes.Add("readonly", "readonly")
            Text_Feant.BackColor = Drawing.Color.Silver
            Text_Escolar.Text = CStr(reader("escolaridad")).ToString
            Text_Escolar.Attributes.Add("readonly", "readonly")
            Text_Escolar.BackColor = Drawing.Color.Silver
            Text_Ingre2.Text = ("X").ToString
            Else
                Text_Terc1.Text = CStr(reader("aant"))
                Text_Terc1.BackColor = Drawing.Color.Silver
                Text_Terc1.Attributes.Add("readonly", "readonly")
                Text_Terc2.Text = CStr(reader("aact"))
            End If
            Text_Sal1.Text = CStr(reader("salarioant")).ToString
            Text_Sal1.Attributes.Add("readonly", "readonly")
            Text_Sal1.BackColor = Drawing.Color.Silver
            Text_Clave1.Text = CStr(reader("claveant")).ToString
        Else
            Text_Ingre1.Text = ("X")
            Text_Ingre1.BackColor = Drawing.Color.Silver
            Text_Ingre1.Attributes.Add("readonly", "readonly")
            Text_Ingre2.BackColor = Drawing.Color.Silver
            Text_Ingre2.Attributes.Add("readonly", "readonly")
        End If
        reader.Close()
        conn.Close()
    End Sub
End Class
 

Hasta ahora lo que estoy intentando es mostrar en el TextBox1 el contenido de session...