Select somente para a data de hoje

[RUSH-SP 0]

Olá, este é meu primeiro Topico qui, vamos lá...

 

Estou querendo exibir os dados previamente selecionados em uma página de consulta rápida.

A ídeia é ter um lembrete das atividades diárias, então preciso que seja mostrado SOMENTE os compromissos cadastrados para a data atual.

 

Declarei abaixo que datatual será o dia de hoje.

Queria quando exibisse HORAS, fizesse referencia somente a data de hoje.

 

<!--DEFININDO A DATA ATUAL-->
<%
Dim sql
sql = "select data from dados where data = #" & date & "#" 

set rs = db.execute(sql)
if not rs.eof then
  data = rs("data")
end if 
'response.write data

mes = mid(date,1,1)
'response.write mes & "<BR>"
dia = mid(date,3,1)
'response.write dia & "<BR>"
ano = mid(date,5,4)
'response.write ano & "<BR>"
datatual = dia & "/" & mes & "/" & ano
'response.write dataatual
%>
<!--FIM-->

					  <%
query = "select data from dados where data = #" & date & "#"
'query = "SELECT * FROM dados WHERE data=now()"
If request("data") <> "" Then
query = query & request("data") & " = " & request("data") & " "
End If

query = "SELECT * FROM dados WHERE titulo"
If request("titulo") <> "" Then
query = query & request("titulo") & " = " & request("titulo") & " "
End If

query = "SELECT * FROM dados WHERE evento"
If request("evento") <> "" Then
query = query & request("evento") & " = " & request("evento") & " "
End If

Set caixa = Server.CreateObject("ADODB.Recordset")
caixa.Open query, conexao

While not caixa.eof
%>
					  <%=caixa("hora")%></div>
				  </div></td>
				  <td bgcolor="#EAEAEA"><span class="style37"><%=caixa("titulo")%></span></td>
				  <td bgcolor="#EAEAEA"><span class="style37"><%=caixa("evento")%></span></td>
				</tr>
				<tr bgcolor="#EAEAEA">
				  <td bgcolor="#EAEAEA"><span class="style37">
				  <%
	caixa.movenext
	Wend

	caixa.close
	conexao.close

	Set caixa = Nothing
	Set Conexao = Nothing

%>

OBRIGADO ! http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[Jow Xavier 0]

Bom dia ... você tem q ter a data de hoje no mesmo formato da data do banco de dados para realizar a comparação ...

[RUSH-SP 0]

Consegui!

Obrigado. Agora preciso dar um highlight no evento mais próximo de 15min antes do inicio até a hora da execução.

Ex: se um evento está marcado para iniciar as 12:00, 1145 o evento ficara iluminado até as 1200.

 

Eis o resultado que funcionou:

<!--#include file="conect.asp"-->

<%
query = "select * from dados where (((dados.data) = #" & date & "#))"
If request("data") <> "" Then
query = query & request("data") & " = " & request("data") & " "
End If

Set caixa = Server.CreateObject("ADODB.Recordset")
caixa.Open query, conexao

If request("data") <> "" Then
Responde.Write("Você não tem eventos cadastrados")
End IF

While not caixa.eof
%>
					<%=caixa("hora")%></div>
				  </div></td>
				  <td bgcolor="#F6F6F6"><span class="style37"><%=caixa("titulo")%></span></td>
				  <td bgcolor="#F6F6F6"><span class="style37"><%=caixa("evento")%></span></td>
			  </tr>
				<tr bgcolor="#EAEAEA">
				  <td bgcolor="#F6F6F6"><span class="style37">
				  <%
	caixa.movenext
	Wend

	caixa.close
	conexao.close

	Set caixa = Nothing
	Set Conexao = Nothing

%>

[Jow Xavier 0]

Legal, q conseguiu resolver ... agora está com outra dúvida ....

 

Nunca usei o highlight ... ñ sei como poderá fazer