tienes que hacerlo con un select de la tabla primero despues rescatas el valor que quieres le restar uno y actualizas la base de datos, por ejemplo:
Código:
'Rescate de variables pasadas por formulario
id = Request.Form("id")
'Establecemos la conección a la base de datos
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../catalogo.mdb"))
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
producto_sql="Select categoria, imagen From productos Where id_producto = " & id & ""
'Ejecución de la orden
Set rs = Conn.Execute(producto_sql)
'Fijación del valor de la variable categoria
categoria = rs("categoria")
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
categoria_sql="Select total_productos From categorias Where id_categoria = " & categoria & ""
'Ejecución de la orden
Set rs = Conn.Execute(categoria_sql)
'Se resta 1 al numero de productos de la categoría
total_productos = rs("total_productos")
total_productos = total_productos - 1
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
categoria_sql="Update categorias Set total_productos = " & total_productos & " Where id_categoria = " & categoria & ""
'Ejecución de la orden
Set rs = Conn.Execute(categoria_sql)
Bueno esa es la idea es logico que lo adaptes a tus necesidades... saludos y suerte