[求助] 購物區庫存處理疑問

[君龍]

請問各位ASP達人大大們~小弟看了某篇文章所說明的讓購物車自己扣庫存的教學~
但是因所使用的購物系統不同，所以想請教一下小弟該如何修改呢？
某位大大提供的程式：
rsdetail.Update

if productNum > 0 then
strSQL = " Update product Set productNum = productNum - " & buyNum &_
" Where id = '" & id & "'"
Conn.Execute(strSQL)
end if

rs.MoveNext
Wend

若小弟一樣要將自動扣庫存的程式放入網頁中該放在何處呢？
為何我放入後卻出現了↓的訊息呢？
錯誤類型：
Microsoft VBScript 編譯階段錯誤 (0x800A0400)
必須提供陳述式

請問有沒有解決的方法呢？

以下為小弟的網頁內容： (這是完成出貨設定的內容)
<%
' response.write modifyPassword
' response.End
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "SELECT * FROM orders WHERE id="&Request("id")
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
InsertCursor.Open cmdTemp, , 1, 3
InsertCursor("state") =1
InsertCursor("treatedDate") =now()
InsertCursor("treatedRemark") =Request("treatedRemark")
InsertCursor.Update
InsertCursor.close
conn.close
set InsertCursor=nothing
set conn=nothing
%>

麻煩高手大大幫忙了~