AddTimeDate

<%
futuro=DateAdd("h", 6 , Now())
Response.write("Tra 6 ore sono le "&futuro)
%>