
25/05/2004, 02:03
|
 | | | Fecha de Ingreso: abril-2004 Ubicación: Villabona Cyti
Mensajes: 252
Antigüedad: 21 años Puntos: 0 | |
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from proveedores"
rs.open sql, oConn, 3, 3
set cons = Server.CreateObject("ADODB.Recordset")
sql_cons="select submateria from submaterias where id_submateria=" & array(x)
cons.open sql_cons, oConn, 3, 3
rs.addnew
rs.fields("empresa").value=empresa
rs.fields("representante").value=representante
rs.fields("direccion").value=direccion
rs.fields("apartados").value=cons.fields("submater ia").value
rs.fields("fecha_alta").value=now
rs.fields("validado").value=true
rs.update
MiID=rs.Fields("id_proveedor")
rs.close
cons.close
Pq .... esto no va??
MiID no recoge nada |