AE GALERA..OLHAM SO..EU TENNHU UM COD AKI..Q SELECIONA TODOS ANIVERSARIANTES DO MES
MAS QUANDO EU VO VISULAIZAR..ELE ESTA ORDENANDO A DATA POR ANO...QUERIA SABER COMO FAÇO PARA SELECINAR PELO MAIOR DIA
olhem o code
regs = 2000
pag = request.querystring("pagina")
set ObjRs = createobject("adodb.recordset")
set ObjRs.activeconnection = Objconn
ObjRs.cursortype = 2000
ObjRs.pagesize = regs
StrSql = "SELECT * FROM t_func Where Month(dt_nasc) = Month(Date()) Order By Dt_Nasc"
Set ObjRs10 = ObjConn.Execute(StrSql)
ObjRs.Open StrSql
if ObjRs.eof or ObjRs.bof then
%>
<body <%= colorbg1 %> scroll="no">
<%
else
While NOT ObjRs.EOF and contador < ObjRs.pagesize
%>
<%
%>
<%
Dim datas, data2
datas = Date()
data2 = objRS("dt_nasc")
If month(data2) = month(datas) Then
' mostarr todos os aniversariantes
ElseIF data2 <> datas Then
' não mostrar nada
End If
Pergunta
filipeflc00
AE GALERA..OLHAM SO..EU TENNHU UM COD AKI..Q SELECIONA TODOS ANIVERSARIANTES DO MES
MAS QUANDO EU VO VISULAIZAR..ELE ESTA ORDENANDO A DATA POR ANO...QUERIA SABER COMO FAÇO PARA SELECINAR PELO MAIOR DIA
olhem o code
regs = 2000 pag = request.querystring("pagina") set ObjRs = createobject("adodb.recordset") set ObjRs.activeconnection = Objconn ObjRs.cursortype = 2000 ObjRs.pagesize = regs StrSql = "SELECT * FROM t_func Where Month(dt_nasc) = Month(Date()) Order By Dt_Nasc" Set ObjRs10 = ObjConn.Execute(StrSql) ObjRs.Open StrSql if ObjRs.eof or ObjRs.bof then %> <body <%= colorbg1 %> scroll="no"> <% else While NOT ObjRs.EOF and contador < ObjRs.pagesize %> <% %> <% Dim datas, data2 datas = Date() data2 = objRS("dt_nasc") If month(data2) = month(datas) Then ' mostarr todos os aniversariantes ElseIF data2 <> datas Then ' não mostrar nada End Ifae galera ..dem uma olhada ai..
valw galera
aradeço desde já
Link para o comentário
Compartilhar em outros sites
5 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.