<% UserID=request("UserID") ProdID=request("ProdID") NewValue=request("NewValue") set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Application("ConStr") if UserID & "" <> "" then objConn.execute("Update [Order] SET ItemQuantity = " & NewValue & " where UserID = " & UserID & " AND ItemID = " & ProdID) end if set objRS = nothing objConn.close set objConn = nothing response.write "" %>