Ir para conteúdo
Fórum Script Brasil
  • 0

Aniversariantes do dia


Legionáriors

Pergunta

Boa tarde,

No script abaixo mesmo que tenha um registro no banco para aquela data ele imprime na tela que não há aniversariantes naquele determinado dia. O script não dá erro simplesmente não mostra o que eu preciso que mostre...

PRECISO DE AJUDA!!!!

<script language="JavaScript">
function abrir(URL) {
  var width = 400;
  var height = 300;

  var left = 99;
  var top = 99;
  window.open(URL,'janela', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');
}
</script>

<%
Session.LCID = 1046

'Tratando mês e dia da semana
Function ExibeData(data)   
  dia = day(data)   
  Select Case dia   
  Case 1 : dia = "1"  
  Case 2 : dia = "2"  
  Case 3 : dia = "3"  
  Case 4 : dia = "4"  
  Case 5 : dia = "5"  
  Case 6 : dia = "6"  
  Case 7 : dia = "7"  
  Case 8 : dia = "8"  
  Case 9 : dia = "9"  
  Case 10 : dia = "10"  
  Case 11 : dia = "11"  
  Case 12 : dia = "12"  
  Case 13 : dia = "13"  
  Case 14 : dia = "14"  
  Case 15 : dia = "15"  
  Case 16 : dia = "16"  
  Case 17 : dia = "17"  
  Case 18 : dia = "18"  
  Case 19 : dia = "19"  
  Case 20 : dia = "20"  
  Case 21 : dia = "21"  
  Case 22 : dia = "22"  
  Case 23 : dia = "23"  
  Case 24 : dia = "24"  
  Case 25 : dia = "25"  
  Case 26 : dia = "26"  
  Case 27 : dia = "27"  
  Case 28 : dia = "28"  
  Case 29 : dia = "29"  
  Case 30 : dia = "30"  
  Case 31 : dia = "31"  
  End Select  
  ExibeData = dia   
End Function  

data_hoje  = date()                          ' Aqui pega a data do dia atual   = 07/05/06
dia = right((left((data_hoje),5)),2)         ' Aqui pega os valores do mes =      05

'Pegando valores do seu banco e fazendo a consulta.
strCon = "DBQ=banco.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 0
objRS.LockType = 1

'Consulta no banco de dados
strSQL = "Select  *  from aniversarios WHERE right((left((data_nasc),5)),2) = '" & dia & "' order by ID DESC"

objRS.Open strSQL, strCon
%>
    <font face="Comic Sans MS" color="red"><b>Aniversariantes do dia <%Response.Write(ExibeData(now()))%> </b></font><br>
<%
If not objRS.EOF then 
objRS.MoveFirst
While Not objRS.EOF
%>
  <tr>
<% ' tratando valores para exibição das datas %>
    <td>
    <font face="Comic Sans MS" color=black><b><a style="text-decoration:none" href="java script:abrir('aniver.asp?id=<%=objRS("id")%>');" title="Ver Mensagem da Escola"><%=Left(objRS("nome"),27)%> - <%=Replace(Left(objRS("data_nasc"),4),"/", ".")%></a><br>
    </b></font></td>
  </tr>
  <%
objRS.MoveNext
Wend 
Else
%>
<font face="Comic Sans MS" color="red">No dia <b><%Response.Write(ExibeData(now()))%></b> não há aniversariantes!</font><br>
<%
End If
%>
</table>
<%objRS.close%>

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

Boa noite Bareta,

Problema resolvido você sem duvidas é fera cara, valeu mesmo pela ajuda me salvou a vida. Só mais uma ajudinha se não for muito abuso. Agor aquando eu faço o cadastro por exemplo 01/05/2010 quando clico em cadastrar a data vem invertida desta forma 05/01/2010 sabe me dizer o que pode ser agora?

Valeu irmão!!!

Link para o comentário
Compartilhar em outros sites

  • 0

você pode :

usar o apdrão americano mm/dd/aaaa

session.leicd=1033

usar um campo para dia outro no mes e outro no ano...

ou crie um função que inverta dia com o mes...

no intervalo

(access)

dia de 1 a 12 = mm/dd/aaaa

mes de 1 a 4 = mm/dd/aaaa
5 a 12 = dd/mm/aaaa

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...