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 %>

	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

PROGRAMS:
CIS Major | IT Major | CS Major

39 credits in IST
48 credits in Business (Management)
34 credits in Liberal Arts Core

CIS specialists focus on integrating information technology solutions and business processes to meet the information needs of business and other organizations and enable organizations to achieve their objectives in an effective and efficient way. CIS professionals require a sound understanding of organizational principles and practices so that they can be the liaison between technical and management personnel.

Click here for College Catalog Listing of CIS Program.