script funciona pero me deja pegado el navegador

[El_Metallick]

Hola amigos tengo un script en el cual uso varias conecciones a la base de datos por lo que creo que se queda pegado... no lo se pero puede ser les dejo el código para que le hechen una miradita a ver si se puede achicar un poquito.... bueno eso saludos y gracias de antemano

Código:

<%
'Declaración de variables
Dim conn
Dim rs
Dim id
Dim producto_sql
Dim categoria_sql
Dim categoria
Dim imagen
Dim ancho
Dim alto
Dim marca
Dim modelo
Dim descripcion
Dim precio

'Recuperando el valor de id pasado por la URL
id = Request.Querystring("id")

'Recuperando valores del formulario
categoria = Request.Form("categoria")
imagen = Request.Form("imagen")
marca = Request.Form("marca")
modelo = Request.Form("modelo")
descripcion = Request.Form("descripcion")
precio = Request.Form("precio")

'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 * From productos Where id_producto = " & id & ""

'Ejecución de la orden
Set rs = Conn.Execute(producto_sql)

categorias = clng(rs("categoria"))

If categoria <> rs("categoria") Then
'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)
categoria_sql="Select * From categorias Where id_categoria = " & categorias & ""

'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 = " & categorias & ""

'Ejecución de la orden
Set rs = Conn.Execute(categoria_sql)
end If

'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar)
producto_sql="Update productos set categoria = " & categoria & ", imagen = '" & imagen & "', marca = '" & marca & "', modelo = '" & modelo & "', descripcion = '" & descripcion &"', precio = " & precio & " Where id_producto = " & id & ""

'Ejecución de la orden
Set rs = Conn.Execute(producto_sql)
%>

[trasgukabi]

normal. estás activando recordsets con el mismo nombre del primero y sin cerrar el anterior. cambia el nombre a todos los recordsets.