<%@ 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 %>

Por favor ingrese la siguiente información para poderle asistir:

Nombre:
Apellido:
Nombre de su Empresa (si corresponde):
Numero Teléfono:
Direccion de e-mail: (por ejemplo, joe@aol.com)
Producto:
Numero del Modelo: (por ejemplo, Armada E500)
Numero de Serie:
Sistema operativo utilizado:
País:
Lenguaje:

<% 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.
Nuestro horario de atencion es de Lunes a Viernes de 8:00AM a 6:00PM hora central de los Estados Unidos. Por favor, envienos un email y nos pondremos en contacto con Usted
<% 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 %>