<% 'Recogemos los valores del formulario nombre=Request.Form("nombre") telefono= Request.Form("telefono") 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" 'Ahora creamos la sentencia SQL sSQL="Insert Into Clientes (nombre,telefono) values ('" & nombre & "','" & telefono & "')" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) %>

Registro Insertado

<% 'Cerramos el sistema de conexion Conn.Close %>