DO WHILE NOT RS.EOF

    vMensagem = "Um de seus alertas foi acionado.
 Obra: <a href=""http://localhost/Web/system/mostraobra.asp?IDO="&RS.FIELDS("IDO")
&""" target=""_blank""> "
& RS.FIELDS("IDO") &"</a> "
& "</br>"
& "Verifique-a em:
<a href=""http://localhost/Web/system/malerta.asp"" target=""_blank""> Meus alertas </a> "

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "smpt.obramix.com.br"
Mail.Username = "obramix@obramix.com.br"
Mail.Password = "Correct pwd in the original file"
Mail.TLS = True
Mail.Port = 587

Mail.From = "obramix@obramix.com.br"
Mail.MailFrom = "obramix@obramix.com.br"
Mail.FromName = "obramix@obramix.com.br"
Mail.AddAddress "jbcoli2008@hotmail.com"
Mail.Subject = "Alerta acionado"
Mail.IsHTML = True
Mail.Body = vMensagem

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Erro encontrado: " & Err.Description
End If

Set Mail = Nothing

RS.MoveNext
LOOP