% IF request("mes")<>"" THEN mesagora = request("mes") ELSE mesagora = MONTH(NOW) END IF ano_agora= YEAR(NOW) SQL = "SELECT * FROM cli" SQL = SQL & " WHERE month(dt_nascimento)="& mesagora & " ORDER BY day(dt_nascimento)" 'response.write SQL SET TB = connbase.EXECUTE(SQL) if request("acao")="baixa" Then sql="insert into cartoes_niver (id_cliente, ano) values (" & request("id") & ", " & ano_agora & ")" connbase.execute(sql) end if %>
| ANIVERSARIANTES - <%IF mesagora = 1 THEN RESPONSE.Write("JANEIRO") END IF%> <%IF mesagora = 2 THEN RESPONSE.Write("FEVEREIRO") END IF%> <%IF mesagora = 3 THEN RESPONSE.Write("MARÇO") END IF%> <%IF mesagora = 4 THEN RESPONSE.Write("ABRIL") END IF%> <%IF mesagora = 5 THEN RESPONSE.Write("MAIO") END IF%> <%IF mesagora = 6 THEN RESPONSE.Write("JUNHO") END IF%> <%IF mesagora = 7 THEN RESPONSE.Write("JULHO") END IF%> <%IF mesagora = 8 THEN RESPONSE.Write("AGOSTO") END IF%> <%IF mesagora = 9 THEN RESPONSE.Write("SETEMBRO") END IF%> <%IF mesagora = 10 THEN RESPONSE.Write("OUTUBRO") END IF%> <%IF mesagora = 11 THEN RESPONSE.Write("NOVEMBRO") END IF%> <%IF mesagora = 12 THEN RESPONSE.Write("DEZEMBRO") END IF%> DE <%=ano_agora%> |
JAN | FEV | MAR | ABR | MAI | JUL | AGO | SET | OUT | NOV | DEZ
|
|
||||||||
| <%=DAY(TB("dt_nascimento"))%> | <%=left(TB("telefone_comercial"),2)%> <%=mid(TB("telefone_comercial"),3,8)%> | <%=left(TB("celular"),2)%> <%=mid(TB("celular"),3,8)%> | <% IF TB("email")<>"" THEN%>?subject=Futuro:">Enviar e-mail | <%END IF 'response.write "select count(*) as conta from cartoes_niver where ano=" & ano_agora & " and id_cliente=" & TB("id_cliente") set rs1=connbase.execute("select count(*) as conta from cartoes_niver where ano=" & ano_agora & " and id_cliente=" & TB("id_cliente")) rs1.movefirst if rs1("conta")=0 then %>&mes=<%=mesagora%>">Dar baixa em cartão | <% else %>Cartão já foi enviado neste ano. | <% end if %>">Imprimir dados. | ||
|
|
||||||||