VBA в вашем классическом ASP может оказаться что-то вроде
strVisits = strVisits & " Select * from Visit" & vbcrlf
strVisits = strVisits & " Where DateTimeEntered Between DateAdd (hour, '" & MyDateTime& "', -2) " & vbcrlf
strVisits = strVisits & " and DateAdd (hour, '" & MyDateTime& "', 2)"
Это будет в основном делать это (со значением MyDateTime)
Select *
from Visit
Where DateTimeEntered Between DateAdd (hour, MyDateTime, -2) and DateAdd (hour, MyDateTime, 2)