 |
 |
 |
| INICIO | | | SERVICIOS | | | DESCARGAS | | | ACCESO CLIENTES | | | PRINCIPALES PROYECTOS | | | TIENDA ON-LINE | | | PARTNERS | | | MAPA WEB |
ACCESO Teléfono: 94 453 0694 |
<% If request.form("Submit") <> "" then Dim DB, TBL Set DB = Server.CreateObject("ADODB.Connection") Set TBL = Server.CreateObject("ADODB.RecordSet") DB.Mode = adModeReadWrite DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("clientes.mdb")) TBL.Open "clientes" ,DB, 1, 2 TBL.AddNew TBL("nombre") = Request.Form("nombre") TBL("contrasena") = Request.Form("contrasena") TBL("nombreempresa") = Request.Form("nombreempresa") TBL("direccion") = Request.Form("direccion") TBL("email") = Request.Form("email") TBL("telefono") = Request.Form("telefono") TBL.Update TBL.Close DB.Close Set DB = Nothing Set TBL = Nothing Response.Write "Has sido agregado con exito a nuestra base de datos." else %> Debe rellenar todos los campos. <% End If %> |