If RS("15") => date() then
Dim Mail
set Mail=Server.CreateObject("Persits.MailSender")
'Mail.AddAddress request.form("email")
Mail.AddAddress "
[email protected]"
Mail.FromName = "Control Calidad"
Mail.From = "
[email protected]"
Mail.isHtml = true
Mail.Subject = "Su ??? ya venció"&subject
Mail.Body = strBody
Mail.Host = "smtpgw.o.com"
Mail.Helo = "Vallejo"
'On Error Resume Next
Mail.Send
end if