Skrive en værdi, når data gemmes

jeg har dette :

Jeg vil gerne have sat værdien 1, når brugeren gemmer sine data..
værdien er f.eks. 1

%
response.write ("nyhedsbrev")
value = request.form("nyhedsbrev")
if value = "ON" then
  nyhedsbrev = true
else
  nyhedsbrev = false
end if


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={SQL Server};" & _
          "SERVER=localhost;DATABASE=afd19;UID=sa;PWD=password;"

Conn.Execute("UPDATE user_information SET navn1='" & request.form("navn1") &_
"', navn2='" & request.form("navn2") &_
"', telefonnummer='" & request.form("telefonnummer") &_
"', mobilnummer1='" & request.form("mobilnummer1") &_
"', mobilnummer2='" & request.form("mobilnummer2") &_
"', mail='" & request.form("mail") &_
"', nyhedsbrev='" & value &_
"', password='" & request.form("password") &_
"', kids1='" & request.form("kids1") &_
"', kids1birthday='" & request.form("kids1birthday") &_
"', kids2='" & request.form("kids2") &_
"', kids2birthday='" & request.form("kids2birthday") &_
"', kids3='" & request.form("kids3") &_
"', kids3birthday='" & request.form("kids3birthday") &_
"', kids4='" & request.form("kids4") &_
"', kids4birthday='" & request.form("kids4birthday") &_
"', kids5='" & request.form("kids5") &_
"', kids5birthday='" & request.form("kids5birthday") &_
"', husdyr1='" & request.form("husdyr1") &_
"', husdyr1navn='" & request.form("husdyr1navn") &_
"', husdyr1race='" & request.form("husdyr1race") &_
"', husdyr2='" & request.form("husdyr2") &_
"', husdyr2navn='" & request.form("husdyr2navn") &_
"', husdyr2race='" & request.form("husdyr2race") &_
"' WHERE ID = " & Session("ID"))
userhavechangeddata=1
response.redirect "login_OK.asp?opdateret=Y"

%>