"
IF Month(now()) = 1 then
response.write "| Aniversários - Mês de Janeiro |
"
End If
IF Month(now()) = 2 then
response.write "| Aniversários - Mês de Fevereiro |
"
End If
IF Month(now()) = 3 then
response.write "| Aniversários - Mês de Março |
"
End If
IF Month(now()) = 4 then
response.write "| Aniversários - Mês de Abril |
"
End If
IF Month(now()) = 5 then
response.write "| Aniversários - Mês de Maio |
"
End If
IF Month(now()) = 6 then
response.write "| Aniversários - Mês de Junho |
"
End If
IF Month(now()) = 7 then
response.write "| Aniversários - Mês de Julho |
"
End If
IF Month(now()) = 8 then
response.write "| Aniversários - Mês de Agosto |
"
End If
IF Month(now()) = 9 then
response.write "| Aniversários - Mês de Setembro |
"
End If
IF Month(now()) = 10 then
response.write "| Aniversários - Mês de Outubro |
"
End If
IF Month(now()) = 11 then
response.write "| Aniversários - Mês de Novembro |
"
End If
IF Month(now()) = 12 then
response.write "| Aniversários - Mês de Dezembro |
"
End If
'loop through the recordset and generate table rows
Do until RS.EOF
response.write ""
response.write "| " & Day(RS.fields("DataNascimento").value)& " | "
response.write ""
response.write ""
response.write "" & FixQuote(RS.fields("Nome").value) &"
(" & FixQuote(RS.fields("Cidade").value) &" - " & FixQuote(RS.fields("Estado").value) &")" &" |
"
RS.MoveNext
Loop
RS.close
Myconn.close
set RS = nothing
set Myconn = nothing
%>
<%
Dim Rs2
Dim Myconn2
Dim Sqlstr2
Set Myconn2 = server.createobject("ADODB.Connection")
Myconn2.ConnectionString = "Driver={Mysql}; Server=localhost; " &_
"Database=nivas_cadastro; UID=nivas_alex; " &_
"PWD=alex"
Myconn2.Open
Set RS2 = server.CreateObject("ADODB.Recordset")
Sqlstr2 = "Select * from nivas_cadastro where Month(DataNascimentoZeq) = Month(now()) order by DataNascimentoZeq"
RS2.open Sqlstr2, Myconn2
'loop through the recordset and generate table rows
Do until RS2.EOF
response.write ""
response.write "| " & Day(RS2.fields("DataNascimentoZeq").value)& " | "
response.write ""
response.write ""
response.write "" & FixQuote(RS2.fields("Zequinha").value) &"
(Zequinha do(a) " & FixQuote(RS2.fields("Nome").value) & ") |
"
RS2.MoveNext
Loop
RS2.close
Myconn2.close
set RS2 = nothing
set Myconn2 = nothing
response.write "
"
%>