<%@ Language=VBScript %> FaceTime Messenger <% Dim TimeNow Dim DayNow Dim StartTime Dim EndTime Dim HolidayDesc DayNow = uCase(FormatDateTime(Now, 1)) arrDayNow = Split(DayNow, ",") TimeNow = FormatDateTime(Now, 4) DFormat = FormatDateTime(Now, 2) StartTime = "08:00" EndTime = "18:00" ' Response.Write "TimeNow = " & TimeNow & "
" ' Response.Write "DayNow = " & DayNow & "
" ' Response.Write "DFormat = " & DFormat & "
" If NOT isHoliday(DFormat) AND NOT (arrDayNow(0) = "SATURDAY" AND arrDayNow(0) = "SUNDAY") AND (TimeNow >= FormatDateTime(StartTime, 4) AND TimeNow <= FormatDateTime(EndTime, 4)) Then %>

Please enter the following information so that we can assist you:

First Name:
Last Name:
Company (When Applicable):
Phone Number: (please include country and area code)
e-mail address: (for example, joe@aol.com)
Product:
Product model: (for example, Armada E500)
Serial Number:
Operating System:
Country:
Language:

<% Else %>

<% If ISHoliday(Date()) Then %> <% Else %> <% End If %>
Thank you for visiting COMPAQ web page. Our office is closed today due to the holiday: <%=HolidayDesc%>. Please come again on the next business day. Have a nice day!
Our office is now closed.
Live chat is available from 8:00 AM to 6:00 PM US Central Time (except holidays).
Please try again during normal business hours or contact us as follows:

Thank you for your interest in live chat by Compaq Servicecenter.
<% End If %> <% function isHoliday(Today) dim oConn dim RS Set oConn = Server.CreateObject("ADODB.Connection") oConn.ConnectionTimeout = 900 oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "\DynamicSession.mdb" QString = "SELECT * FROM Holidays WHERE Date_of_Holiday=#" & Today & "#;" set RS = oConn.Execute(QString) if not RS.eof and not RS.bof then isHoliday = true HolidayDesc = RS("Holiday") else isHoliday = false end if set RS = nothing oConn.Close set oConn=nothing end function %>