Subtracting from Quantity in Stock

Hello all,

I am simply trying to reduce the quantity in stock by the number ordered.

Code:

---

set rsUpdateQuantity = Server.CreateObject("ADODB.Recordset")
        rsUpdateQuantity.Open "SELECT * FROM products WHERE productNumber = " _
& intStock, Conn, adOpenStatic, adLockOptimistic, _
adCmdText
                       
        if rsUpdateQuantity("numInStock") > 1 then
        intNumInStock = rsUpdateQuantity("numInStock")
                if intQuant < intNumInStock then
                        rsUpdateQuantity("numInStock") = intNumInStock - intQuant
                end if
        else
                rsUpdateQuantity.DELETE
        end if
                               
        rsUpdateQuantity.Update
        rsUpdateQuantity.Close

---

I am a newbie to VBScript so any and all help is appreciated.

Example:

VB Code:

newQuantity = CInt(intNumInStock) - CInt(intQuant)
 
strSql = "UPDATE products Set numInStock = " & newQuantity & " WHERE productNumber = " & intProductNumber
 
Conn.Execute(strSql)