UPDATE spørgsmål

Jeg har en vilkårlig værdi for eksempel 75. Den vil jeg minusse med en værdi jeg har i en database forekseksempel 100. Derefter tager jeg den værdi den spytter ud HER er det 25 og så skal den ligge det ind i databasen. Hmm hvordan gør man det.


Jeg har prøvet men så brækker den sig. Hvad gør jeg galt?

<%
strGame = Session("ID")

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "UPDATE users set pic1 = 1 WHERE id LIKE '%" & StrGame & "%'"
    rs.Open strSQL, myConn, 1, 3

    Set rs1 = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM users where id like '%" & StrGame & "%'"
    rs1.Open strSQL, myConn, 1, 3
   
<%=RS1("penge") - 75 = "nypenge" %>


<%
    Set rs2 = Server.CreateObject("ADODB.RecordSet")
    strSQL = "UPDATE users set penge = 25 WHERE id LIKE '%" & StrGame & "%'"
    rs2.Open strSQL, myConn, 1, 3
%>