
<%
'Recogemos los valores del formulario
rutproveedor = Request.Form("rutproveedor")
razonsocial = Request.Form("razonsocial")
fono = Request.Form("fono")
correo=request.form ("correo")
calle=request.form ("calle")
numero=request.form ("numero")
comuna=request.form ("comuna")
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "DRIVER={Microsoft Access DRIVER (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")
'Ahora creamos la sentencia SQL
(LINEA 17) sSQL="Insert Into proveedor (rut_proveedor,razon_social_proveedor,fono_proveed or,correo_electronico_proveedor) values ('" & rutproveedor & "','" & razonsocial & "','" & fono & "','" & correo & "')"
sSQL="Insert Into direccion (calle_direccion,numero_direccion) values ('" & calle & "','" & numero & "')
sSQL="Insert Into comuna (nombre_comuna) values ('" & comuna & "')
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access]Error general No se puede abrir la clave 'Temporary (volatile) Jet DSN for process 0x6b4 Thread 0x988 DBC 0x12910f4 Jet' del Registro.
/respuesta_ingreso_proveedor.asp, línea 17