Køre to koder på samme tid??

Jeg har en sql som ser sådan her ud:


    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from forum"
        rs.Open strsql, conn, 1, 3

    rs.AddNew

      rs("Navn") = Request.form("Navn")
      rs("emne") = Request.form("emne")
      rs("kat") = Request.form("kat")
      rs("points") = Request.form("points")
      rs("Besked") = Request.form("Besked")
      rs("Dato") = Now()
      rs("IP") = request.servervariables("remote_Addr")
    rs.update

Der vil jeg gerne have at når den har gjort det skal den køre denne kode:
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from users WHERE pkuserid = " & Session("userid")
    rs.Open strsql, conn, 1, 3
   
    intTmp = Rs("points") - Request.Form("points")
    rs.AddNew
      Rs("points_b") = Request.Form("points")
      Rs("points") = intTmp
    rs.update

Hvordan skal det stå????

Kan i ikke lave et helt stykke kode hvor det er som det skal være??

Mvh
Jesper