<% @language=VBScript %> <% OPTION Explicit Response.Expires=0 Function cTime(tmpTime) dim varLen if tmpTime < 12 then if ((tmpTime*10) mod 10) = 0 then CStr(tmpTime) tmpTime = tmpTime & "a" response.write (tmpTime) else CStr(tmpTime) varLen = len(tmpTime)-2 tmpTime = Left(tmpTime, varLen) tmpTime = tmpTime & ":30a" response.write (tmpTime) end if elseif tmpTime >= 13 then tmpTime = tmpTime - 12 if ((tmpTime*10) mod 10) = 0 then CStr(tmpTime) tmpTime = tmpTime & "p" response.write (tmpTime) else CStr(tmpTime) varLen = len(tmpTime)-2 tmpTime = Left(tmpTime, varLen) tmpTime = tmpTime & ":30p" response.write (tmpTime) end if else if ((tmpTime*10) mod 10) = 0 then CStr(tmpTime) tmpTime = tmpTime & "p" response.write (tmpTime) else CStr(tmpTime) varLen = len(tmpTime)-2 tmpTime = Left(tmpTime, varLen) tmpTime = tmpTime & ":30p" response.write (tmpTime) end if end if End Function Function FixForSQL(tmpText1) Dim tmpText2 tmpText2 = tmpText1 tmpText2 = Replace(tmpText1,vbCrLf,Chr(13)) tmpText2 = Replace(tmpText2,Chr(39),String(2,39)) FixForSQL = tmpText2 End Function dim objCN, objRS, strConn, strSQL, optionStr, ur_good Set objCN=server.createobject("ADODB.Connection") 'strConn = "DSN=DigitalDB;UID=newlogon;PWD=newlogon;" strConn = "DSN=DigitalDB;UID=digitalit;PWD=xpdig8722;" objCN.open strConn set objRS = server.createobject("ADODB.recordset") dim locat, class_name, i locat = request.querystring("locat") class_name = cStr(request.querystring("class_name")) 'if class_name = "A " then class_name="A+" if class_name = "Network " then class_name = "Network+" if class_name = "I-Net " then class_name = "I-Net+" strSQL = "SELECT * FROM class_sched WHERE class_name = '"&class_name&"' " if locat <> "" then strSQL = strSQL & "AND locat = '"&locat&"' " strSQL = strSQL & "AND e_date >= '"&date&"' Order by s_date" else strSQL = strSQL & "AND s_date >= '"&date-7&"' Order by s_date" end if set objRS = objCN.execute(strSQL) ' %>

TRAINING         Certification         Non-Certification         Security         Web Development EDUCATION CAREERS SEMINAR SERVICES

<%=locat%> Class Schedule <%=class_name%> <% if locat = "" then %> <% end if %> <% if objRS.EOF then response.write ("") dim dayFound do until objRS.EOF response.write (vbcrlf&"") if locat = "" then response.write (vbcrlf&"") objRS.movenext loop %> LOCATION START END DAYS DURATION TIME AVAIL. PRE-REGISTER No classes available at this time. Please call us and request that we schedule a class for you!  ") response.write (objRS("locat")) end if response.write (vbcrlf&"  ") if locat = "" then response.write (left(objRS("s_date"),(len(objRS("s_date"))-5))&" "&left(objRS("e_date"),(len(objRS("e_date"))-5))&" ") else response.write (objRS("s_date")&" "&objRS("e_date")&" ") end if for i = 1 to 5 if objRS("day_"&i) = "THU" then response.write ("Th") elseif objRS("day_"&i) = "SUN" and objRS("day_2") = "SAT" then response.write ("Sa/Su") exit for elseif objRS("day_"&i) = "SAT" then response.write ("Sa") elseif objRS("day_"&i) = "SUN" then response.write ("Su") else response.write (left(objRS("day_"&i),1)) end if if i < 5 then if left(objRS("day_"&i),1) > " " AND left(objRS("day_"&i+1),1) > " " then response.write ("/") end if next response.write (" ") response.write (objRS("num_weeks")&" weeks") response.write (" ") cTime(objRS("s_time")) response.write (" - ") cTime(objRS("e_time")) if objRS("num_enroll") >= objRS("max_enroll") then response.write (" Full Closed") elseif objRS("s_date") < dateadd("ww",-1,date) then response.write (" Started Closed") elseif objRS("num_enroll") >= 6 then response.write (" Limited Click Here") else response.write (" Open Click Here") end if response.write (" Back

<% If objRS.State <> 0 Then objRS.Close set objRS=Nothing End If If objCN.State <> 0 Then objCN.Close set objCN=Nothing End If %>