Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/09/2005, 10:12
Rolandodavid
 
Fecha de Ingreso: agosto-2005
Mensajes: 30
Antigüedad: 19 años, 9 meses
Puntos: 0
Almacenar en dos bases de datos al mismo tiempo

Hola:

Que tal amigos del foro, tengo un codigo que no me funciona y me gustaria que alguien me ayude a resolverlo; tengo un formulario y debo almacenar los datos en dos bases de datos, intente con un if anidado pero no me funciono, este es el codigo:

if Request.Form("codigo") <> "" then
strsql = "Insert into Proveedores_Contratistas(codigo, num_reg, nombre_empresa, gerente, rtn, "&_
"nacionalidad, monto, vigencia, resolucion, direccion, email, area_actividad, categoria, "&_
"area_especifica, observaciones) "&_
"values ('"&request.form("codigo")&"', '"&request.form("codigo")&"', "&_
"'"&request.form("nombre")&"','"&request.form("ger ente")&"', '"&request.form("rtn")&"',"&_
"'"&request.form("nacionalidad")&"','"&request.for m("monto")&"', "&_
"'"&request.form("vigencia")&"','"&request.form("r esolucion")&"', "&_
"'"&request.form("direccion")&"', '"&request.form("correo")&"', '"&request.form("area")&"', "&_
"'"&request.form("categoria")&"','"&request.form(" especialidad")&"', "&_
"'"&request.form("observaciones")&"')"

conn.execute (strsql)
if Request.Form("nuevo_codigo") <> "" then
strnuevo = "Insert into codigos_vencidos_reinscritos(codigo, cod_nuevo, "&_
"values ('"&request.form("codigo")&"', '"&request.form("nuevo_codigo")&"')"

conn.execute (strnuevo)
end if
msg="El registro fue guardado en la Base de datos"
end if

La primera inserción me funciona pero el if interno no inserta.

por que?

Gracias de antemano.