Ret status når bruger logget ind

Hej.

Hvordan gør man at den retter status i databasen til Online når brugeren logger ind?

Min login ser sådan her ud

<%
' Hvis der er blevet trykket på knappen "Login"
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
  ' Her forberedes de indtastede værdier til validering
  strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
  strPWD = Trim(Replace(Request.Form("Kodeord"),"'",""))

  ' Hvis der er skrevet noget i både brugernavn og adgangskode
  If Len(strUID) > 0 And Len(strPWD) > 0 Then

    ' DSNLess forbindelse til databasen
    Set myConn = Server.CreateObject("ADODB.Connection")
    myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/db/brugersystem.mdb")

    ' Opbygning af SQL streng
    strSQL = "SELECT * FROM bruger WHERE (Brugernavn = '" & strUID & "') AND (Kodeord = '" & strPWD & "')"
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
      ' Hvis brugeren fandtes i databasen
      intUID = rs("id")
    Else
      ' Hvis brugeren ikke fandtes i databasen
      strERR = "Du blev ikke godkendt af systemet"
    End If

    ' Rydder op i vores connection objekt
    myConn.Close
    Set myConn = Nothing

    If Len(intUID) Then
      ' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
      Session("UserID") = intUID
      Response.Redirect("index.asp")
    End If
  Else
    ' Hvis der ikke var angivet brugernavn og adgangskode
    strErr = "Du skal skrive både brugernavn og adgangskode"
  End If

  If Len(strErr) > 0 Then
    ' Her laves fejlmeddelsen om til rød skrift
    strErr = "<p><font color=red>" & strErr & "</font></p>"
  End If
End If
%>
<font color="red" style="font-size:12px;"><b><%=strErr%></b></font>
<form action="indhold.asp" method="POST" style="margin-bottom:0px;" ><font  color="#FFFFFF" style="font-size:12px;"><input type='hidden' name="status" value="Online">Brugernavn: <input name="Brugernavn" id="loginform"> Adgangskode: <input type="password" name="Kodeord" id="loginform"> <input type="submit" tabindex="4" src="http://images.leol.dk/BG.PNG" value="Login" name="Action" value="Logon" style="height: 20px;font-size: 12px;color: green;width:100px;font-weight: bold;font-family:tunga;"></font></form>

Og jeg har en kode der retter det som når bruger er logget ind. Som jeg fik tidligere til at  rette sit brugernavn. Hvis i skal bruge det

<%
if session("UserID") <> "" then
    if request.querystring("act") = "save" then
Const adOpenDynamic = 2
Const adLockOptimistic = 3   
Const adCmdTable = &H0002   
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("/db/brugersystem.mdb")
rs.Open "bruger", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
rs.find "id=" & session("UserID") & ""
rs("ProfilTekst") = request.form("profiltekst")
rs.update
rs.close
set rs = Nothing
response.redirect request.servervariables("script_name")
    end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/brugersystem.mdb")
set rs = Conn.execute("select * from bruger WHERE id=" & session("UserID") & "")
if NOT rs.EOF then
profiltekst = rs("ProfilTekst")
%>