he creado este codigo pero me da un error muy grave o MUY GRAVE , es mas, se me inicia el xp con error grave y el tipico escandisk posteriormente,
el codigo se basa en enviar email a mas de una direccion de email con aspemail, es decir a todos los usuarios de la base de datos.
porque no una ayudita :)
Código:
Agradeceria una ayudita :) Dim conexion, registros, basedatos basedatos = Server.MapPath("/basededatos.mdb") Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";" Set registros = conexion.Execute("SELECT * FROM datos ORDER BY email") rs.Open SQL, oConn, 1, 2 Do While Not registros.EOF Loop registros.MoveNext strHost = "smtp.servidor.net" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost Mail.username = "nombreusuario" Mail.password = "Clave" Mail.From = "[email protected]" Mail.FromName = "mi nombre" Mail.AddAddress Request.Form("email") Mail.AddAddress ""&registros.Fields("email").Value&"" Mail.Subject = "novedades de miweb" Mail.IsHTML = True Mail.Body = "<HTML><BODY>html etc...</BODY></HTML>" strErr = "" bSuccess = False On Error Resume Next Mail.Send If Err <> 0 Then strErr = Err.Description else bSuccess = True End If registros.Close Set registros = Nothing conexion.Close Set conexion = Nothing
un saludo
