<% dim meses(12) meses(1) = "Janeiro" meses(2) = "Fevereiro" meses(3) = "Março" meses(4) = "Abril" meses(5) = "Maio" meses(6) = "Junho" meses(7) = "Julho" meses(8) = "Agosto" meses(9) = "Setembro" meses(10) = "Outubro" meses(11) = "Novembro" meses(12) = "Dezembro" mesAtual = Request.Form("mesAtual") if (isnumeric(mesAtual)) then if (cInt(mesAtual)<1) or (cInt(mesAtual)>12) then mesAtual = month(date) else mesAtual = month(date) end if set Conn = Server.CreateObject("ADODB.Connection") Conn.open CDSN query = "SELECT nome, emailResidencial, nascimento FROM Irmaos WHERE MONTH(nascimento)=" & mesAtual & " ORDER BY DAY(nascimento)" set RS = Conn.execute (query) %> Perfeita União
<%= meses(mesAtual) %>
<% if RS.EOF then Response.write("

Não há Aniversariantes neste mês.

") else %>
<% while (not RS.EOF) %> <% nascimento = PegaDoBD(RS("nascimento")) %> <% RS.MoveNext wEnd %>
Dia Irmão E-mail
<%= day(nascimento) & "/" & month(nascimento) & "/" & year(nascimento) %> <%= PegaDoBD(RS("nome")) %> "><%= PegaDoBD(RS("emailResidencial")) %>

<% end if %> <% for cont = 1 to 6 %> <% next %>
">><%= meses(cont) %> ">><%= meses(cont+6) %>
<% set RS = nothing Conn.close set Conn = nothing %>