<% @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 & ":00 AM" response.write (tmpTime) else CStr(tmpTime) varLen = len(tmpTime)-2 tmpTime = Left(tmpTime, varLen) tmpTime = tmpTime & ":30 AM" response.write (tmpTime) end if elseif tmpTime >= 13 then tmpTime = tmpTime - 12 if ((tmpTime*10) mod 10) = 0 then CStr(tmpTime) tmpTime = tmpTime & ":00 PM" response.write (tmpTime) else CStr(tmpTime) varLen = len(tmpTime)-2 tmpTime = Left(tmpTime, varLen) tmpTime = tmpTime & ":30 PM" response.write (tmpTime) end if else if ((tmpTime*10) mod 10) = 0 then CStr(tmpTime) tmpTime = tmpTime & ":00 PM" response.write (tmpTime) else CStr(tmpTime) varLen = len(tmpTime)-2 tmpTime = Left(tmpTime, varLen) tmpTime = tmpTime & ":30 PM" response.write (tmpTime) end if end if End Function dim objCN, objRS, strConn, strSQL, optionStr, ur_good dim compStr, chanStr, locStr, user_name, dropStr Set objCN=server.createobject("ADODB.Connection") if Application("LogonConnectString")<>"" then strConn = Application("LogonConnectString") else strConn="DSN=DigitalDB;UID=digitalit;PWD=digital00124;" end if objCN.open strConn set objRS = server.createobject("ADODB.recordset") strSQL = "Select * from events " strSQL = strSQL & "WHERE e_date > '"&DateAdd("d",-1,now) strSQL = strSQL & "' ORDER BY e_date" set objRS = objCN.execute(strSQL) %>

Digital IT Education Seminars Join us to learn about... Which companies in our area are hiring and the skills they are searching for The current metro area's Information Technology employment trends Speak with a Training Advisor to discuss your career path Digital's certification programs Digital's extensive course offerings and complimenting e-Learning New technologies and career options IT Education Seminar Schedule <% if objRS.EOF then response.write ("") while not objRS.EOF response.write ("") objRS.movenext wend objRS.close objCN.close set objRS = nothing set objCN = nothing %> Event Date Day Location Time Register Please check back soon. "&objRS("e_date")) response.write (" ") select case datepart("w",objrs("e_date")) case 1 response.write "Sunday" case 2 response.write "Monday" case 3 response.write "Tuesday" case 4 response.write "Wednesday" case 5 response.write "Thursday" case 6 response.write "Friday" case 7 response.write "Saturday" end select response.write (" "&objRS("location")) response.write (" ") CTime(objRS("s_time")) response.write (" ") 'CTime(objRS("e_time")) 'response.write (" ") response.write ("") response.write ("