09/09/2002, 11:21
|
| | | Fecha de Ingreso: septiembre-2002
Mensajes: 5
Antigüedad: 22 años, 8 meses Puntos: 0 | |
| Re: Base de datos problemas
Ok, os paso el codigo:
<HTML>
<HEAD><TITLE>alta en BBDD</TITLE></HEAD>
<BODY>
<%
'Recuperamos los campos del formulario:
codigo = REQUEST.form("codigo")
nif = REQUEST.form("nif")
nombre = REQUEST.form("nombre")
apellido1 = REQUEST.form("apellido1")
apellido2 = REQUEST.form("apellido2")
domicilio = REQUEST.form("domicilio")
poblacion = REQUEST.form("poblacion")
codpostal= REQUEST.form("codpostal")
provincia = REQUEST.form("provincia")
mail = REQUEST.form("mail")
login = REQUEST.form("login")
password = REQUEST.form("password")
'Conectamos a nuestra BD.
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jaime.mdb")
'Ejecutamos la sentencia de añadir registro:
insertar = "INSERT INTO clientes (cli_nif, cli_nombre, cli_apellido1, cli_apellido2, cli_domicilio, cli_poblacion, cli_codigopostal, cli_provincia, cli_mail, cli_login, cli_password) VALUES ('"& nif &"', '"& nombre &"', '"& apellido1 &"', '"& apellido2 &"', '"& domicilio &"', '"& poblacion &"', '"& codpostal &"', '"& provincia &"', '"& mail &"', '"& login &"', '"& password &"');
Set RS = conn.Execute(insertar)
'Limpiamos y cerramos conexiones:
Conn.Close
Set Conn = Nothing
'Opcionalmente mostramos mensaje de confirmación, y damos la opción
'para añadir nuevos clientes:
RESPONSE.write "Se ha dado de alta el nuevo cliente<BR>"
RESPONSE.write "Si desea añadir más clientes, pulse "
RESPONSE.write "<A HREF=clientes.html>aquí para volver</A>"
%>
</BODY>
</HTML> |