<% if request.form("nombre")="" or request.form("email")="" then %>

Conecta con tus clientes
Edita tu propio boletín
y paga sólo por el nº de usuarios registrados.
¿Te interesa?


Ir a su web corporativa

Si quiere subscribirse introduzca aquí sus datos

<% if Ucase(request.form("login"))<>"ON" then response.write("

No has rellenado alguno de los campos obligatorios, inténtalo de nuevo.

") %>
*Nombre
 Apellidos
Empresa
 Departamento
Cargo
 *E-mail

Protección de sus datos

 

 

 

<% else Dim Conn Dim strConn Dim rs, rsa Dim sql Dim resultado Dim it Dim folders Dim values strConn = "driver={Microsoft Access Driver (*.mdb)};" strConn = strConn & "dbq=" & server.mappath("../../../data/subscriptores.mdb") Set Conn = CreateObject("ADODB.Connection") Conn.Open strConn Set rs = CreateObject("ADODB.Recordset") sql="SELECT * FROM subscriptores WHERE Email='" & request.form("email") & "'" rs.Open sql , Conn if rs.EOF then For each it in request.form if left(it,2)<>"x_" then if request.form(it)<>"" then folders = folders & "," & it values = values & ",'" & request.form(it) & "'" end if end if next folders= mid(folders,2) values= mid(values,2) sql="INSERT INTO subscriptores(" & folders & ") VALUES(" & values & ")" Conn.Execute sql Dim Mailer Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.AddAddress "logicamente@comlogico.com", "Web mail" Mailer.Host = "mail.comlogico.com" Mailer.AddReplyTo "logicamente@comlogico.com" Mailer.Body = "Se ha producido una nueva subscripción a LógicaMente, " & VbCrLf& request.form("email") & " un nuevo usuario" Mailer.FromName = request.form("nombre") Mailer.From = request.form("email") Mailer.Subject = "{LógicaMente} Alta de " & request.form("email") On Error Resume Next Mailer.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description else response.write("

Tu subscripción al logicamente comlogico se ha realizado correctamente.

volver a la home

") End If else For each it in request.form if left(it,2)<>"x_" then values = values & "," & it & "='" & request.form(it) & "'" end if next values= mid(values,2) sql="UPDATE subscriptores SET " & values & " WHERE Email='" & request.form("email") & "'" response.write("

Tu petición ha sido procesada correctamente y tus datos se han actualizado.

volver a la home

") Conn.Execute sql end if rs.close Conn.Close end if %>