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