Código:
Y yo hice estas modificaciones, pero me producen un error 500, alguien me podria decir donde esta el error? O hay otra forma de poder hacer esto?<HTML> <HEAD> <TITLE>Insertar.asp</TITLE> </HEAD> <BODY> <% '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) %> <h1><div align="center">Registro Insertado</div></h1> <div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div> <% 'Cerramos el sistema de conexion Conn.Close %> </BODY> </HTML>
Código:
Se supone que recoje del campo email de un form externo "index3.htm", y lo guarda en la BD mailist.mdb (la ruta es correcta).<%@ Language=VBScript%> <% If Request.Form = "" then Response.Redirect "index3.htm" %> <HTML> <HEAD> <TITLE>Insertar.asp</TITLE> </HEAD> <BODY> <% 'Recogemos los valores del formulario email=Request.Form("email") 'Instanciamos y abrimos nuestro objeto conexion Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data/mailist.mdb") Set Conn = Server.CreateObject("ADODB.Connection") oConn.Open (Conn_String) 'Ahora creamos la sentencia SQL sSQL="Insert Into mailist (email) values ('" & email & "')" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) %> <h1><div align="center">Registro Insertado</div></h1> <div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div> <% 'Cerramos el sistema de conexion Conn.Close %> </BODY> </HTML>
Quiero esto para poder después buscar otro asp que envie un texto mediante un formulario a todos los emails introducidos en esta base de datos.
Muchisimas gracias