" Response.write " Ordering A Transcript
" Response.write ""
Response.write " "
Response.write " Printer Friendly Version"
Response.write "
Please wait while we transfer you to Online Student Services
" else ' ----------------------------------------------------------------------------- ' When switch is Down, choose between Downtime messages (default or date/time scheduled) ' ----------------------------------------------------------------------------- ' Construct current date/time in Year/Month/Day Hour:Minute format ' ----------------------------------------------------------------------------- d_year = Year(Date) d_month = Month(Date) d_day = Day(Date) d_hour = Hour(Time) d_minute = Minute(Time) If d_month <= 9 Then d_month = "0" & d_month End If If d_day <= 9 Then d_day = "0" & d_day End If If d_hour <= 9 Then d_hour = "0" & d_hour End If If d_minute <= 9 Then d_minute = "0" & d_minute End If url = "https://fannin4.wcjc.edu/online_services_scheduled_downtime.txt" set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", url, false xmlhttp.send "" TextArray = split(xmlhttp.responseText,vbCRLF) 'Response.write xmlhttp.responseText set xmlhttp = nothing ' ----------------------------------------------------------------------------- ' Open the Scheduled Downtime Message file ' ----------------------------------------------------------------------------- L = 1 Scheduled = 0 tablew = 0 ' ----------------------------------------------------------------------------- ' Read the Scheduled Downtime Message file ' ' ignore comment lines (*) ' Line 2 - Start Downtime Date/Time in Year/Month/Day Hour:Minute format ' Line 3 - End Downtime Date/Time in Year/Month/Day Hour:Minute format ' Line 4+ - Actual Message lines to display ' Display Scheduled message between the specified Start/End Date/Time ' Otherwise display the default message ' ----------------------------------------------------------------------------- For i=0 to UBound(TextArray) Line = TextArray(i) 'Response.write "|" & Line & "" Response.write " Ordering A Transcript
" Response.write ""
Response.write " "
Response.write " Printer Friendly Version"
Response.write "
"
End If
Line = "
" & Line
Response.write Line
End If
End If
End If
L = L + 1
End If
Next
If Scheduled = 0 Then
Response.write "
" Response.write " Ordering A Transcript
" Response.write ""
Response.write " "
Response.write " Printer Friendly Version"
Response.write "
"
Response.Write "
Online Student Services is currently unavailable."
Response.Write "
We apologize for any inconvenience this may cause."
End If
Response.write "
