Problema con borrar varios registros simultaneamente

[El_Metallick]

Hola amigos... aplique el scipr que puso ujorse en las fqs sobre como borrar registros al estilo hotmail... bueno la cosa es que lo adapte un poco a mi sitio quedandome asi:

Código:

<%
'Declaración de variables
Dim conn
Dim rs
Dim producto_sql
Dim categoria_sql
Dim categoria
Dim total_productos
Dim id
'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 From productos Where id_producto = " & id & ""
'Ejecución de la orden
Set rs = Conn.Execute(producto_sql)
'Fijaci{on 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 * 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)
'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
producto_sql="Delete * From productos Where id_producto In(" & id & ")"
'Ejecución de la orden
Set rs = Conn.Execute(producto_sql)
%>

en el fondo lo que quiero es que al borrar el registro de la tabla productos se le reste 1 al campo total_productos de la tabla categorias... la cosa es que cuando selecciono mas de un campo para borrar no me los borra ni me resta el número de registros seleccionados del campo total_productos... no se si me puedan ayudar, gracias de antemano y saludos

[u_goldman]

Tu script es enorme y ahora ni siquiera lo resaltaste en rojo, pon nada mas la parte funcional y resume precisamente que quieres hacer, ya que hoy es viernes y tengo las neuronas cansadas.

Salu2,

[orharo2003]

vamos U_goldman, al fin es viernes x la tarde.

[u_goldman]

nah, ya son demasiadas cervezas!!!

[El_Metallick]

bueno lo que esta en rojo si lo saco funciona bien eso de borrar mas de un registro a la vez, lo que esta en azul y negrita es lo que hace eso de borrar varios registos, y en el fondo quiero borrar mas de un registro previamente seleccionado con checkboxes en un form y que al borrar esos registros de la tabla productos le reste el numero de productos de una categoria al campo total_productos de la tabla categorias.... por ejemplo borro 4 archivos simultaneamente, 2 de la categria 1 y 2 de la categira 2.... quiero que al borrarlos se actualice el contenido del campo total_productos de la tabla categorias, osea en este caso a la categoria 1 y 2 restarle 2.... eso... saludos y suerte