Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde pessoal. Antes de tudo, agradeço aos que, gentilmente, me auxiliarem neste problema!
Tenho em um banco de dados uma tabela onde armazeno nela minha agenda das próximas visitas aos meus clientes, sendo que na minha página INDEX.ASP utilizo o código abaixo para me lembrar destes eventos futuros, onde, atualmente, eles saem da página assim que o sistema checa que a data do aviso passou, porém, o aviso só para de ser exibido, apenas quando o dia do lembre passa, precisaria que ele parasse de ser exibido, quando e 2 HORAS depois passassem, por exemplo, hoje é dia 27/08/2013 e se tenho uma reunião agendada para 01/09/2013 às 10:00h, o aviso deve ficar aparecendo em minha página apenas até às 12:00h do dia 01/09/2013.
Vejam o código que uso atualmente, nele, só tem a busca pela data, precisaria da busca também pela hora:
>
<%
SUB onBancoVisita()
SET bancoVisita = Server.CreateObject("ADODB.Connection")
bancoVisita.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\a3solucoes1\dados\osleo.mdb;Persist Security Info=False"
end SUB
SUB offBancoVisita()
bancoVisita.close : SET bancoVisita = Nothing
end SUB
%>
<%
DIM tbaVisita, sqlVisita
DIM bancoVisita : onBancoVisita
sqlVisita = "" & "SELECT * FROM VISITAS ORDER BY DataVisita ASC"
SET tbaVisita = bancoVisita.execute(sqlVisita)
%>
<%
do while not tbaVisita.eof
databanco = tbaVisita("DataVisita")
databanco = Cdate(databanco)
datahoje = Date
if databanco >= datahoje then
for conta=0 to 10
if conta = 10 then
exit do
call offbancoVisita
end if
%>
<table>
<tr><td><strong><%=tbaVisita("DataVisita")%></strong> (<strong><%response.write weekdayname(weekday(tbaVisita("DataVisita")))%></strong>) às <strong><%=tbaVisita("HoraVisita")%></strong>hs</td></tr>
<tr><td>Visitar <strong><%=tbaVisita("ClienteVisitar")%></strong> para <strong><%=tbaVisita("MotivoVisita")%></strong></td></tr>
<tr><td><strong>Observações </strong>(se houver): <%=tbaVisita("ObsVisita")%></td></tr>
</table>
<%
tbaVisita.movenext
if tbaVisita.eof then
exit do
call offbancoVisita
end if
next
else
end if
tbaVisita.movenext
loop
%>
Muito obrigado a TODOS! Um abraço!
Carregando comentários...