<% if (ucase(request.form("email")) <> ucase("ingrese su e-mail")) and (ucase(request.form("email")) <> "") then dim strconn Set conn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("magazine/basedatos/news.mdb") conn.Open DSNtemp SQLstmt = "SELECT * FROM newsletter" Set rs = conn.Execute(SQLstmt) SQLstmt = "INSERT INTO newsletter (email,fecha,pertenece,apellido)" SQLstmt = SQLstmt & " VALUES ('" & request.form("email") & "','" & date() & "','" & "magazine" & "','" & request.form("apellido") & "')" conn.execute(SQLstmt) rs.close conn.close set rs = nothing set conn = nothing %> <% else %> <% end if %> Resultado de la Subscripcion

 

 Volver a El Potrero