17/09/2006, 14:29
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
probá así:
Código:
<%
'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 conn,rst
' Creamos la conexión a la base de datos sin DSN
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access DRIVER (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")
sSQL="Insert Into proveedor (rut_proveedor,razon_social_proveedor,fono_proveed or,correo_electronico_proveedor) values ('" & rutproveedor & "','" & razonsocial & "','" & fono & "','" & correo & "')"
Conn.Execute(sSQL)
sSQL="Insert Into direccion (calle_direccion,numero_direccion) values ('" & calle & "'," & numero & ")"
Conn.Execute(sSQL)
sSQL="Insert Into comuna (nombre_comuna) values ('" & comuna & "')"
Conn.Execute(sSQL)
'Cerramos el sistema de conexion
Conn.Close
%>
__________________
...___... |