<% nombre = request("nombre") email = request("email") pagina = request("pagina") kk = request("action") fecha = DATE() Querystring = "INSERT INTO lista (nombre,email,pagina,subs,fecha) values('"&nombre&"','"&email&"','"&pagina&"','"&kk&"','"&fecha&"')" data_source= "Data Source=" & Server.Mappath("data/mail.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" Set Ob_conn = Server.CreateObject("ADODB.Connection") Ob_conn.Open data_source Set MiRs = Server.CreateObject("ADODB.Recordset") Set MiRs = Ob_conn.execute(Querystring) Ob_conn.Close set Ob_conn = nothing strbody="nombre= " & nombre & " -----email = " & email & " -----pagina= " & pagina & " -----fecha= " & fecha & " ----action= " & kk Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = "iivanoff@fibertel.com.ar" objCDO.From = "avatar@i2off.org" objCDO.Subject = "Mailing List - Nueva persona" objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Body = strBody objCDO.Send set objCDO = nothing response.write ("&sys_graba=1") %>