<% Function ChkDate(Date1,Date2) IF Datediff("d",Date1,Date2)<=0 then Response.End End IF End Function %> <%=ChkDate(Date,"7/28/2005")%>