<% 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 %>
School of the Professions Banner LRC Search Events News & Features LRC Site Map
Menu Navigation
 The Professions - Home
Faculty & Staff Directory
Department
Informational Brochures



Academic Programs:
  Business Programs:
Accounting
Finance
Information
Systems & Technology
-- CIS Program
-- IT Program
-- CS Program
Real Estate
Education
Facility Management
Graphic &
Communication Design
Interior Design
Nursing
Course Catalog Listing
of all The Professions Programs/Majors
School of Arts and Sciences Website
School og Graduate Studies Website
LRC Cranberry Woods Website

Information Systems & Technology

                    Lynn Archer, Ed.D.
                    Professor
                    Interim Dean, Graduate Studies and Adult Education
                    College Center 254
                    Lynn.Archer@LaRoche.edu
                    412.536.1182

                    Irene Joos, Ph.D. [Profile Page]
                    Assistant Professor
                    Director, On-Line Learning
                    Wright Library 203
                    Irene.Joos@LaRoche.edu
                    412.536.1278

                    Leona "Lee" Whiteman, M.S. [Profile Page]
                    Senior Lecturer
                    Department Chair, Information Systems & Technology
                    Interim Director, Business Programs
                    College Center 257
                    Leona.Whiteman@LaRoche.edu
                    412.536.1169


IST Department Adjuncts:

NAME COURSE SPECIALTY E-MAIL
James (Jim) Barnett IST 105 - Practical Computer Applications IST 208 - Intro to Cyberspace IST 250 - Distributed Data Processing Barnetj1@laroche.edu
Valerie (Val) Bainbridge IST 105 - Practical Computer Applications Bainbrv1@laroche.edu
Kathryn Griffin IST 105 - Practical Computer Applications Griffik2@laroche.edu
Ron Gilardi IST 230 - Networking IST 331 - Advanced Networking IST 330 - LINUX IST 305 - Legal Issues in IT Gilarde1@laroche.edu
Mike McCauley IST 125 - Hardware IST 300 - Adv. Hardware IST 346 - Adv. Database IST 205 - IT: Global Perspective IST 308 - Web Page Design & Programming IST 330 - LINUX IST 334 - JAVA AITP - Faculty Advisor Mccaull1@laroche.edu
Heather Pollier IST 105 - Practical Computer Applications IST 245 - Database Pollierh1@laroche.edu

 
Top of Page
Footer
Apply to La Roche College Request Information Contact La Roche College