[Resolvido] Enviar mensagem para aniversariante

Pessoal tenho um codigo aqui que mostra os aniversariantes do dia gostaria de cria um codigo que enviase um e-mail para eles com uma mensagem, coo devo proceder o codigo que tenho que mostra o aniver.. esta abaixo

<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("membros.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
'SELECIONE Nome e a Data de Nascimento DA Tabela Usuarios ONDE o MES de Nascimento seja Igual ao MES
'Atual e a DIA seja Igual ao DIA de Hoje, ORDENADOS por ANO de Nascimento
SQL = "SELECT username, dob FROM users WHERE MONTH(dob)="
SQL = SQL & "MONTH(NOW()) AND DAY(dob)=DAY(NOW()) ORDER BY YEAR(dob)"
rs.Open SQL, Conexao,3,3
If rs.EOF Then ' Se não encontrou registros escreva

 Response.Write("<p align=center><b>Não há Aniversáriantes Para o Dia de Hoje.</B>")
 Else 'Se encontrou registros escreva
 do while not rs.eof
 response.write("Nome: <b>"& rs("username") & " </b><br>Idade: <b>" & DateDiff("yyyy",rs("dob"),Now) & "</b> anos <br>")

response.write(" Total: <b>" & rs.recordcount & "</b> Membros")
 End If

rs.Close
Set rs = Nothing
Conexao.Close
Set Conexao = Nothing
%>
valeu