Conditional time calculation

scotthrogers · 11-08-2011, 03:53 PM

I have the following script that is used to disable logins from 9am to 11:30am EST excluding Saturday and Sundays. The script seems to be working from 10:30am EST to 11:30am EST excluding sat/sun but its not working from 9am to 10:30am EST.

Anyone have ideas for me?

Here is the scpirt

Code:

<%
'get PST time
ServerToOrgHourOffset = 2 ' Daylight saving change Set to three before Nov and set to 2 after
mvarOrgCurDtTime = DateAdd("H", mintServerToOrgHourOffset, Now())
mvarOrgCurDt = DateValue(mvarOrgCurDtTime)
mvarOrgCurDtDay = Weekday(Date)
mvarOrgCurTime = TimeValue(mvarOrgCurDtTime)
mvarOrgCurTimeHour = Hour(mvarOrgCurTime) - 2 
%>      
<% 
Response.Write  mvarOrgCurTime
Response.Write  mvarOrgCurDtDay
Response.Write mvarOrgCurTimeHour 
%>    
          
            <P>&nbsp;</P></td><td width="732">
    <% if (mvarOrgCurTime  < "11:30:00 AM")And mvarOrgCurTimeHour >= 7 And mvarOrgCurDtDay <> 7 And mvarOrgCurDtDay <> 1 then   %>

login box is disabled

Code:

<% Else %>

Show login box

Code:

<% End If %>

Old Pedant · 11-08-2011, 07:35 PM

IN VBScript code, date and time constants are *NOT* surrounded by "....". Instead, you need to use #...#.

SO:

Code:

<% 
if mvarOrgCurTime  < #11:30:00 AM# And mvarOrgCurTimeHour >= 7 _
   And mvarOrgCurDtDay <> 7 And mvarOrgCurDtDay <> 1 then   
%>

When you use a string ("...") you get a string comparison. And "9" is not less than "11".