Subtracting from Quantity in Stock

[Lynque]

Hello all,

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

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.

[Memnoch1207]

Example:

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