<% 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
Dean of the School
Faculty Members
Latest News & Announcements
Department
Informational Brochures



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

 

NORTH HILLS MULTICULTURAL CONSORTIUM

The North Hills Multicultural Consortium on Monday, Jan. 15, 2007, will sponsor the 7th Annual Martin Luther King, Jr. Unity Breakfast. The annual event honors the Rev. Dr. King for dedicating his life to uniting people and creating mutual respect for all. La Roche College is a member of the Consortium.

Sister Candace Introcaso, CDP, Ph.D., La Roche College president, will offer the opening invocation at the breakfast and will be joined by keynote speaker The Honorable Cynthia Baldwin, Justice of the Pennsylvania Supreme Court. Musical entertainment will be provided by the North Hills World Drumming Ensemble, led by Heidi Kohne. Ashok Marwah of the Indian Cultural Association will act as Master of Ceremonies. Astrid Kersten, Ph.D., professor of management at La Roche, served on the planning committee for this year’s breakfast.

As part of the event, the North Hills Multicultural Consortium will present the 2007 Spirit of Unity Award to Vikram Rawal, honoring his leadership and contributions to unity in the Indian community of the Pittsburgh area.<br><br>

The Unity Breakfast will be at the Holiday Inn North Hills, 4859 McKnight Road. Registration opens at 8 a.m., and the program begins promptly at 8:30 a.m. For reservations, please send a check by Jan. 10 in the amount of $16 for adults and $8 for students, made payable to the North Hills Anti-Racism Coalition, MLK Breakfast, P.O. Box 101519, Pittsburgh PA 15237.

The North Hills Multicultural Consortium is a group of organizations that have come together to promote unity and diversity in the North Hills area. Coalition members include AARP PA, Bahá’í Faith – Greater Pittsburgh Community, Charpai, Indian Cultural Association of Pittsburgh, La Roche College, League of Women Voters of Greater Pittsburgh, North Hills Anti-Racism Coalition, North Hills Collaborative of Women Religious, North Hills Community Outreach, North Hills Ebony Women, Inc., North Hills-McKnight AAUW, Pittsburgh North People for Peace, Sisters of Divine Providence, Vincentian Sisters of Charity, YWCA Greater Pittsburgh Center for Race Relations and Anti-Racism Training. In addition to the annual Martin Luther King Jr. Unity Breakfast, the Consortium also organizes the highly successful North Hills Multicultural Festival in June.

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