<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Response.buffer = True %> <% Response.Expires = -1 %> <% Dim dtNow, dtMarried Dim lMinutes, lSeconds, lHours, lWeeks, lDays, lMonths dtMarried = CDate("4/18/1998 3:00 PM") dtNow = Now() lSeconds = FormatNumber(DateDiff("s",dtMarried,dtNow),0) lMinutes = FormatNumber(DateDiff("n",dtMarried,dtNow),0) lHours = FormatNumber(DateDiff("h",dtMarried,dtNow),0) lMonths = FormatNumber(DateDiff("m",dtMarried,dtNow),0) lWeeks = FormatNumber(DateDiff("w",dtMarried,dtNow),0) lDays = FormatNumber(DateDiff("d",dtMarried,dtNow),0) %> O'Brien Wedding Cout-Up Page

The O'Briens, Established 4/18/98

Today's Date is <%=WeekDayName(Weekday(dtNow))%>, <%=dtNow%>

Michael and Christina's wedding date was <%=WeekDayName(Weekday(dtMarried))%>, <%=dtMarried%>


Total Days we have been married: <%=lDays%>
Total Weeks <%=lWeeks%>
Total Months <%=lMonths%>
Total Hours <%=lHours%>
Total Minutes <%=lMinutes%>
Total Seconds <%=lSeconds%>

    



 




A Link for my sweetie on our Anniversary!