Creo que no funciono men, checa este es el código:
Código:
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("dbx.mdb"))
sqltext = "SELECT * FROM mails"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim usermail
usermail = Request.Form("usermail")
if usermail ="" or usermail ="" then
error = "<center><font face=verdana size=2><b>Debe completar todos los datos correctamente.</b></font></center>"
Response.Write error
Response.End
end if
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("mail") = usermail
rst.update
On error resume next
'Terminamos e imprimimos un mensaje
Response.Write "<br><br><br><font face=verdana size=3><b>¡Gracias por tu Registro!</b></font><br><br>"
%>
Si me puedes orientar para que jale? o alguien sabe como de otra forma? saludos...