Listar Eventos Futuros

[jucacabala]

ola povo

estou com uma duvida

tenho um banco com uma tabela "eventos"

na pagina "eventos.asp" eu listo todos os eventos cadastrados no banco.

o que eu queria era listar somente os eventos da data de hoje e os que ainda não aconteceram.

e quando não houver nenhum evento para acontecer, que aparecesse na pagina alguma mensagem como "nenhum evento cadastrado".

minha pagina esta assim:

<!-- #include file="conexao.inc" -->
<%
DIM conexaodb, rsEvento, strEvento
strEvento = "select * from evento "
call abreconexao
Set rsEvento = conexaodb.Execute(strEvento)
%>
.
.
.
.
.
.
.
<%
Do While Not rsEvento.Eof
%>
<tr>
<td width="15" valign="top"><img src="imagens/det_quadrado.gif" width="7" height="7"></td>
<td>
<span class="arial_verde"> <% = rsEvento.Fields("nome_evento") %> </span>
<br>      
<span class="arial_textos"> Data do evento: <% = rsEvento.Field ("data_evento") %></span>
<br>
<span class="arial_textos"> Cidade: <% = rsEvento.Fields("cidade") %> </span>
<br>
<a href="eventos_sim.asp?codigo=<% = rsEvento.Fields("codigo") %>" id="link01">Integrados ao Sistema Nacional de Tr&acirc;nsito (municipalizados - clique aqui)</a>
<br>
<a href="eventos_nao.asp?codigo=<% = rsEvento.Fields("codigo") %>" id="link01">N&atilde;o Integrados ao Sistema Nacional de Tr&acirc;nsito (n&atilde;o municipalizados - clique aqui)</a>
</td>
</tr>
<tr>
<td colspan="2" valign="top">&nbsp;</td>
</tr>
<%
rsEvento.MoveNext
LOOP
rsEvento.close
call fechaconexao
Set rsEvento = Nothing
%>

brigadinhu....

[DELPHI-Man32]

BOM SOU INICIANTE, MAS ACHO QUE POSSO TE AJUDAR!!

BEM SEU SQL PODE FICAR ASSIM

<!-- #include file="conexao.inc" -->
<%
DIM conexaodb, rsEvento, strEvento, Hoje, Status
Status = "sim"
Hoje = Date
strEvento = "select * from evento where Data='"&Hoje&"' and Status='"&Status&"'"
call abreconexao
Set rsEvento = conexaodb.Execute(strEvento)
%>

você cria um campo tipo "Status" qur podem ter dois valores "sim" ou não", assim você sabera se o vento aconteceu ou não, dependendo do status, no banca de dados!

Para retornar um mensagem de erro caso não sejam encontrados registros, faz assim.

<% if rsEvento.eof then

response.redirect "erro.asp"

else

.....

as outros linhas caso sejam encontrados registros...

end if %>

[jucacabala]

este campo "status" tem que ter no banco de dados?

desculpe mas tambem sou iniciante e meia zé mané em asp

[DELPHI-Man32]

isso, se ainda não tem um campo que grave o status do evento, então cria este compo "STATUS" é uma rotina para atualizar o banco de dados quando o evento acontecer!

equanto não acontece, o valor do campo "status" é não, depois passa a ser sim!

um erro!

troque o valor da variavel "Status" para "não"

<!-- #include file="conexao.inc" -->
<%
DIM conexaodb, rsEvento, strEvento, Hoje, Status
Status = "não"
Hoje = Date
strEvento = "select * from evento where Data='"&Hoje&"' and Status='"&Status&"'"
call abreconexao
Set rsEvento = conexaodb.Execute(strEvento)
%>

[jucacabala]

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/tectrans/eventos.asp, line 8

[DELPHI-Man32]

se você tem no banco um campo tipo status ele é:

numerico ou alpha?

echo que é isso, você esta tentando gravar um valor imcompativel para o campos!

tipo: um campo numerico, so aceita numeros!

Se for um campo de texto, você muda os valores:

S para "sim" e N para "não"

t+v

[jucacabala]

não tem como fazer uma função que compara a data atual com a data do evento cadastrado no banco e se for inferior a data atual ele não lista este evento?

[jucacabala]

deu certo!

<!-- #include file="conexao.inc" -->
<%
DIM conexaodb, rsEvento, strEvento
strEvento = "select * from evento where data_evento >= #" & date() & "# "
call abreconexao
Set rsEvento = conexaodb.Execute(strEvento)
%>
.
.
.
.
.
.
.
<%
        if rsEvento.Eof then
        %>
        <tr>
        <td colspan="2">
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    	<td height="200" align="center" class="arial_textosObs">Nenhum evento cadastrado!</td>
                  </tr>
                </table>
        </td>
        </tr>
        <%
        else
        Do While Not rsEvento.Eof
        %>
        <tr>
                      <td width="15" valign="top"><img src="imagens/det_quadrado.gif" width="7" height="7"></td>
                      <td>
          <span class="arial_verde"> <% = rsEvento.Fields("nome_evento") %> </span><br>          
          <span class="arial_textos"> Data do evento: <% = rsEvento.Fields("data_evento") %> </span><br>
          <span class="arial_textos"> Cidade: <% = rsEvento.Fields("cidade") %> </span><br>
          <a href="eventos_sim.asp?codigo=<% = rsEvento.Fields("codigo") %>" id="link01">Integrados ao Sistema Nacional de Tr&acirc;nsito (municipalizados - clique aqui)</a><br>
          <a href="eventos_nao.asp?codigo=<% = rsEvento.Fields("codigo") %>" id="link01">N&atilde;o Integrados ao Sistema Nacional de Tr&acirc;nsito (n&atilde;o municipalizados - clique aqui)</a></td>
                    </tr>
                    <tr>
                      <td colspan="2" valign="top">&nbsp;</td>
                      </tr>
                    <%
        rsEvento.MoveNext
        LOOP
        end if
        rsEvento.close
        call fechaconexao
        Set rsEvento = Nothing
        %>