<%@LANGUAGE="VBSCRIPT" lcid="5130"%> <%on error resume next dbPath = Server.Mappath("/db/crlegal.mdb") Set Conntemp = Server.CreateObject("ADODB.Connection") Conntemp.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath abogado = request.form("abogado") conntemp.begintrans sql="delete from tr_abogado_especialidad where id_abogado="&abogado conntemp.execute(sql) for each esp in request.form("esps") sql="insert into tr_abogado_especialidad (id_abogado, id_especialidad) values ("&abogado&", "&esp&")" conntemp.execute(sql) next if err.number = 0 then conntemp.committrans response.redirect("/admin/asociar.asp?mensaje=Informacion actualiuzada exitosamente") else conntemp.rollbacktrans response.redirect("/admin/asociar.asp?mensaje=hubo un error en la transaccion

Error: "&err.description) end if %>