Esta es la rutina que empleo siempre... En el server del usuario final que no es Wanadoo, funciona perfectamente... por lo que el código en principio está bien. El problema es desde casa cuando intento probarlo como había hecho en numerosas ocasiones.
Bueno gracias por colaborar... a ver si salgo de esta
<!-- #Include File="../include_basedatos.asp" -->
<%
strSQL = "SELECT * FROM clientes"
Set miConexion = Conexion.Execute(strSQL)
Do While Not miConexion.EOF
if Trim(miConexion("email_cliente_db")) <> "" then
cliente = miConexion("email_cliente_db")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.wanadoo.es"
Mail.From = "[email protected]"
Mail.FromName = "Rugs by In Line"
Mail.AddAddress miConexion("email_cliente_db")
Mail.Subject = asunto_dat
Mail.Body = "texto "
Mail.IsHTML = True
strErr = ""
bSuccess = False
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = Err.Description
response.write strErr
End If
End If
miConexion.MoveNext
loop
miConexion.Close
Conexion.Close
Set miConexion = Nothing
Set Conexion = Nothing
%>