Hora E Data

[fantasma]

tenho um banco com campo data e hora, preciso verificar se a hora que esta no banco passou de 2 horas a mais que a hora atual....now()

caso for verdadeiro disparar um email

[fercosmig]

<% @Language = "VBScript" %>
<%
Dim Agora, Data, Data2
Agora = Now()
Data = "28/07/2006 13:21:00"
Data2 = DateAdd("h", 2, Data)
if Data2 < Agora Then
    Response.Write Data & " - " & Data2 & " - " & Agora & " - " & "Já passou 2 horas - envia o e-mail"
Else
    Response.Write Data & " - " & Data2 & " - " & Agora & " - " & "Ainda não passou 2 horas - não envia o e-mail"
End if
%>

faz um teste aí manô!

Abraços

off: Marcelo, estou ligado que se agora está com carro, vem este final de semana pra cá que tem festa aqui na antiga philips na dutra, começa hoje e vai até domingo! muitas bandas! festa de Moto-Clube é no km 227 da Rod Pres. Dutra. Bem mais perto pra você que o bar dos Cães Velozes MC que era do manô lá.

[kuroi]

assim é mais facil:

If DateDiff ("s", Now, rs("datadobanco")) / 3600 > 2 Then
     - Manda o E-mail -
Else
     - Não manda -
End If
[/code]

[fantasma]

como faço para jogar isso no global.asa