Data Expira !

[Cybertrax]

GALERA É SIMPLES MAS TA DIFICIL VIU ...

TO QUERENDO QUE MEUS EVENTOS (FESTAS) EXPIRAM DEPOIS QUE PASSAR ELA AUTOMATICAMENTE...

POR EXEMPLO TENHO UMA DEFAULT.ASP QUE MOSTRA AS PRÓXIMAS 10 FESTAS DAI ELE RESTRINGE NA OPÇÃO " ... SELECT TOP 10 *..., DAI QUERO RESTRINGIR PARA QUE MOSTRA APENAS EVENTOS (DATAS) QUE SEJA IGUAL OU MAIOR DO QUE HOJE (a data atual)

OIA CÓDIGO:

******************************************************

<% id = request.querystring("id")

sqlstmt = "SELECT * FROM noticias where id =" & id & " ORDER BY id DESC"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, Dados, 3, 3

TotalRecs = rs.recordcount

date1 = rs("data")

id = rs("ID")

name1 = rs("titulo")

p1= rs("materia")

description = p1 %>

********************************************************

AJUDA AE GALERA .. PLEASE !!

[Principe]

Usa "DateDiff" no loop,.. faz um select com ordem por data decrescente ai você mostra só 10 e as que o DateDiff retornar maior que 0 (zero).

[DELPHI-Man32]

porque você não faz assim!

Para Listas as 10 ultimas q ainda vao acontecer!

Dim Hoje
Hoje = Date
sql = "select top 10 * from Festas where DataFesta >= '"& Hoje &"'"
Set RS = Conexao.Execute(sql)
While not RS.eof
#lista todos eles#
RS.movenext
wend

no html o link para a festa! <a href="festa.asp?id=<%=RS("id")%>">Festa dia <%=RS("DataFesta")</a> no pagina festa.asp(mostra os detalhes da festa)

id = request.querystring("id")
sqlstmt = "SELECT * FROM Festas where id ="&id 
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, Dados, 3, 3
date1 = rs("data")
id = rs("ID")
name1 = rs("titulo")
p1= rs("materia")
description = p1

espero ter ajudade ae!

[Cybertrax]

Mas tipo eu como esta no meu código , eu quero que só mostre os EVENTOS (DATAS) QUE SEJA IGUAL OU MAIOR DO QUE HOJE (a data atual)....

Desculpe mas continuo não entendendo, pois deveria ser alterado aqui né? "SELECT * FROM noticias where id =" & id & " ORDER BY id DESC" ???

alguém explique mais detalhado de possivél !!

******************************************************

<% id = request.querystring("id")

sqlstmt = "SELECT * FROM noticias where id =" & id & " ORDER BY id DESC"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, Dados, 3, 3

TotalRecs = rs.recordcount

date1 = rs("data")

id = rs("ID")

name1 = rs("titulo")

p1= rs("materia")

description = p1 %>

****************************************************

[fercosmig]

faz como o DELPHI-Man32 falou:

Seu código:

<%

Dim Hoje

id = request.querystring("id")

Hoje = Date

sqlstmt = "SELECT * FROM noticias where data >= " & Hoje & " ORDER BY id DESC"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, Dados, 3, 3

TotalRecs = rs.recordcount

date1 = rs("data")

id = rs("ID")

name1 = rs("titulo")

p1= rs("materia")

description = p1

%>

neste caso ele não busca noticias antigas.

abraços

[Cybertrax]

CARA valeu MAS valeu MESMO !!!!!

DEU CERTIM !!!

CARA FOI UMA MÃO NA RODA ESSAS SIMPLES E TÃO POUCAS LETRINHAS. HEHEHEEH !!

valeu ... FUI !!