Este es el codigo original que descargué de desarrolloweb.com:
Código:
<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>
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?
Código:
<%@ 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>
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).
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