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)
%>