Följande kod har jag kommit fram till för att uppdatera sidan. Men när jag har ändrat i textboxen och trycker på min knapp för uppdatering kommer det gamla innehållet tillbaka och sedan så genomförs Uppdateringen som funkar om det inte vore för att textboxen inte uppförde sig som den skulle. Skulle bli tacksam för hjälp och förslag till åtgärd.

<code>
Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.Configuration
Imports System.Web.UI.WebControls
Imports ASP

Partial Class MinaUppGifter
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ConnectionString As String = "Data Source=sören-dator\infobdev; Initial Catalog=Tidrapport;
Integrated Security=SSPI"
Dim con As New SqlConnection(ConnectionString)
Dim sql As String = "Select * From PersUppg Where PersNr=" & "'" & [Global].strInLoggPnr & "'"
Dim cmd As New SqlCommand(sql, con)
'
con.Open()
'
Dim Reader As SqlDataReader = cmd.ExecuteReader()
'
While Reader.Read()
lblNamn.Text = Reader("ForNamn") & " " & Reader("EftNamn")
txtAdress.Text = Reader("Adr")
txtPostNr.Text = Reader("PNr")
txtOrt.Text = Reader("Ort")
txtTelefon.Text = Reader("TelNr1")
txtMobil.Text = Reader("TelNr2")
txtAnv.Text = Reader("Anv")
txtPassWord.Text = Reader("PassW")
End While
con.Close()
End Sub

Protected Sub btnAndra_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAndra.Click
Dim ConnectionString As String = "Data Source=sören-dator\infobdev; Initial Catalog=Tidrapport;
Integrated Security=SSPI"
Dim con As New SqlConnection(ConnectionString)
'
Dim cmd As New SqlCommand("UpdatePersUppg", con)
cmd.CommandType = CommandType.StoredProcedure
'
Dim Adr As String = txtAdress.Text
cmd.Parameters.Add(New SqlParameter("@Adr", SqlDbType.NChar, 20))
cmd.Parameters("@Adr").Value = Adr
Dim PNr As String = txtPostNr.Text
cmd.Parameters.Add(New SqlParameter("@PNr", SqlDbType.NChar, 6))
cmd.Parameters("@PNr").Value = PNr
Dim Ort As String = txtOrt.Text
cmd.Parameters.Add(New SqlParameter("@Ort", SqlDbType.NChar, 20))
cmd.Parameters("@Ort").Value = Ort
Dim Tel1 As String = txtTelefon.Text
cmd.Parameters.Add(New SqlParameter("@TelNr1", SqlDbType.NChar, 10))
cmd.Parameters("@TelNr1").Value = Tel1
Dim Tel2 As String = txtMobil.Text
cmd.Parameters.Add(New SqlParameter("@TelNr2", SqlDbType.NChar, 10))
cmd.Parameters("@TelNr2").Value = Tel2
Dim Anv As String = txtAnv.Text
cmd.Parameters.Add(New SqlParameter("@Anv", SqlDbType.NChar, 20))
cmd.Parameters("@Anv").Value = Anv
Dim PassW As String = txtPassWord.Text
cmd.Parameters.Add(New SqlParameter("@PassW", SqlDbType.NChar, 10))
cmd.Parameters("@PassW").Value = PassW
Dim PersNr As String = [Global].strInLoggPnr
cmd.Parameters.Add(New SqlParameter("@PersNr", SqlDbType.NChar, 10))
cmd.Parameters("@PersNr").Value = PersNr

Try
con.Open()
cmd.ExecuteNonQuery()
lblUppdaterad.Text = "Uppdaterad"
Finally
con.Close()

End Try
End Sub
End Class
</code>

Tack på förhand!

Prova att lägg till
If not IsPostBack Then


'befintlig kod goes here

End If

Runt all din kod i Page_Load

Tack jag prövar!!