<%opc = request.Form("opc") if opc = 1 then nombre = request.form("nombre") apellidos = request.form("apellidos") email = request.form("email") idioma = request.form("idioma") set rs = server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users WHERE Email='" & email & "'" rs.open sql,cn,2,2 if (rs.eof and rs.bof) then rs.Addnew rs("nombre") = nombre rs("apellidos") = apellidos rs("email") = email rs("idioma") = idioma rs.Update rs.close mensaje = "Ya perteneces a Derbi Live, a partir de ahora recibirás todas las noticias y novedades del mundo Derbi y las carreras." else mensaje = "Ya existe un usuario registrado con esa dirección de email" end if end if%> DERBI LIVE
<%if opc <> 1 then %>
<%if opc=1 then%> <%=mensaje%> <%else%> Bienvenido a DERBI LIVE, si quieres estar al dia de las últimas noticias sobre Derbi y las carreras este es tu sitio, para realizar la preinscripción solo tienes que dejarnos estos datos: <%end if%>

 

Nombre: 
Apellidos: 
Email: 
Idioma:   Español       Inglés
<%end if%>