Hvordan tildeler men en bruger 2 point når han logger ind

Jeg håber i kan hjælpe mig med dette....

Jeg skal tildele 2 point til en bruger hver gang han logger sig ind på siden.....

<min Kode>

<%

strBrugernavn = Trim(Replace(request("Brugernavn"),"'","''" ))
strAdgangskode = Trim(Replace(request("Adgangskode"),"'","''" ))

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/medlemsliste/medlemmer.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM [user] WHERE Brugernavn = '" & strBrugernavn & "' And Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(strSQL)

If Not rs.EOF Then
    Session("ID") = rs("ID")
    Session("Brugeradgang") = "JA"
    Session("Brugernavn") = rs("Brugernavn")
   
    SQL = "UPDATE [user] SET Dato2 = #" & Now() & "# WHERE ID = " & rs("ID")
    Conn.Execute(SQL)

    rs.Close
    Conn.Close

    Response.redirect "index2.asp"
Else
    Response.Write "Ikke fundet noget"
    ' Hvis brugeren ikke fandtes i databasen
    Response.redirect "index.asp"
End If


rs.Close
Conn.Close

%>