IST Department Website ~ La Roche College

<% Public Function Clean(s) Clean = Trim(Replace(s, "'", "''")) End Function Public Function IsChecked( val1, val2 ) IsChecked = "" If val1 = val2 Then IsChecked = "checked" End If End Function Public Function IsSelected( val1, val2 ) IsSelected = "" If val1 = val2 Then IsSelected = "selected" End If End Function Function Nz(value,defaultValue) If VarType(value) > 1 Then Nz = value Else Nz = defaultValue End If End Function LastPage = Request.ServerVariables("HTTP_REFERER") function how_many(str, char) Dim char_count Length = Len(str) count = 1 Do while count <= Length character = Mid(str,count, 1) 'Read one character from the string at position count If character = char Then char_count = char_count + 1 End If count = count + 1 Loop how_many = char_count end function Sub mail_pirate(regarding, messagetext) Dim MailTo_Array() Dim Send_To_Array If Application("AllowEmails") = 0 Then Default_SendTo = Session("DefaultEmail") 'Write to the default table for recordkeeping and no emails Screen = Request.ServerVariables("PATH_TRANSLATED") Person = Session("admin_name") When = Date What = regarding Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Application("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Application("DataConn_CommandTimeout") DataConn.Open Application("DataConn_ConnectionString"), Application("DataConn_RuntimeUserName"), Application("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set objRst = Server.CreateObject("ADODB.Recordset") sql = "INSERT INTO AuditTrail Values('" & Person & "','" & When & "','" & What & "','" & Screen & "')" cmdTemp.CommandText = sql cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn objRst.Open cmdTemp, , 0, 1 Else temp_SendTo = Application("NotifyAddr") 'The Senders List occurence_count = how_many(temp_SendTo, ";") + 1 'How many ;'s are in this string of emails arraySize = occurence_count ReDim MailTo_Array(arraySize) count = 0 Do While count <= arraySize occurence_index = InStr(temp_SendTo, ";") 'The position of the first ; if occurence_index = 0 then MailTo_Array(count) = temp_SendTo exit do end if amount_to_read = occurence_index - 1 Send_To_Array = Left(temp_SendTo, amount_to_read) 'read that many characters excluding the ; into the array MailTo_Array(count) = Send_To_Array occurence_index = occurence_index + 1 temp_SendTo = Mid(temp_SendTo,occurence_index) count = count + 1 Loop count = 0 Do While count < UBound(MailTo_Array) Set Mail = Server.createobject("Persits.MailSender") Mail.Host = Session("MailHost") Mail.UserName = Session("MailUser") Mail.Password = Session("MailPass") Mail.Subject = regarding Mail.From = "sirokid1@laroche.edu" Mail.Body = messagetext Mail.AddAddress MailTo_Array(count) Mail.Send count = count + 1 Loop Default_SendTo = Session("DefaultEmail") 'Write to the default table for recordkeeping and no emails Screen = Request.ServerVariables("PATH_TRANSLATED") Person = Session("admin_name") When = Date What = regarding Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.ConnectionTimeout = Application("DataConn_ConnectionTimeout") DataConn.CommandTimeout = Application("DataConn_CommandTimeout") DataConn.Open Application("DataConn_ConnectionString"), Application("DataConn_RuntimeUserName"), Application("DataConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set objRst = Server.CreateObject("ADODB.Recordset") sql = "INSERT INTO AuditTrail Values('" & Person & "','" & When & "','" & What & "','" & Screen & "')" cmdTemp.CommandText = sql cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DataConn objRst.Open cmdTemp, , 0, 1 End If End Sub %>

counter easy hit

School of the Professions Banner

	The Professions - Home
	Dean of the School
	Faculty & Staff Directory
	Latest News & Announcements
	Department Informational Brochures
	Academic Programs:

	Business Programs:
	Accounting
	Finance
	Information Systems & Technology
	--	CIS Program
	--	IT Program
	--	CS Program
	Int'l Management
	Management
	Marketing
	Real Estate

	Education
	Facility Management
	Graphic & Communication Design
	Interior Design
	Nursing

	Course Catalog Listing of all The Professions Programs/Majors

Home | The Info World & Careers | 3 Computer Majors | FAQS
CIS/IT Student Life | Course Descriptions | Tentative Course Rotation
Faculty & Staff Directory | Informational Brochure | AITP Website

Welcome to the

Interested in working with computers or maybe working with the latest gadgets available through technology? Well then perhaps you are a technologist!

The Information Systems and Technology (IST) department prepares students to be professionals in the fields of Information Technology (IT) and Computer Information Systems (CIS). These 2 programs provide students with the theoretical knowledge and technical skills required to function in our information led technology world. To this end, our approach to students and the curriculum is one of interactivity with real world problem solving exercises/experiences. Knowledge, problem-solving, critical thinking, and communication skills are central to all IST courses. Given the ever changing technology environment, life long learning is also emphasized.

Click the links at the top of this page
to find out further information about our programs.