Sostituisci questo:
codice:
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = tipsmail
objMail.To = objRS("email")
objMail.Subject = strSubject
objMail.Body = strMessage
objMail.Send
Set objMail = Nothing
Con questo
codice:
Set myMail = CreateObject("CDO.Message")
myMail.Subject = strSubject
myMail.From = tipsmail
myMail.To = objRS("email")
myMail.TextBody = strMessage
myMail.Send

Set myMail = Nothing