<% 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 Graduate Studies Banner LRC Search Events News & Features LRC Site Map


Isn’t it time you did something for yourself and your future? Now you can ... close to home!

The bottom line is, you want to earn your college degree, but you would like to do it close to your home. The last thing you want to do is travel far away from home after a long day at work or taking care of the family. With La Roche College's location at the Lawrence County Learning Center, you can achieve your goals.


Our admissions counselor will work with you to help you earn your degree in as little time as possible.
La Roche College will be offering classes in the following programs:

• Bachelor’s Degree Completion Program: Psychology
• Bachelor’s Degree Completion Program:
   Leadership and Administrative Development (LEAD)
• Bachelor’s Degree Completion Program: Radiography

 

UPCOMING LAWRENCE COUNTY LEARNING CENTER OPEN HOUSE DATES
(click links to register online below)

CLICK LINKS BELOW TO REGISTER ONLINE FOR SPECIFIC OPEN HOUSE:

Tuesday, February 19 2008: 5-7 p.m.
Wednesday, April 23 2008: 5-7 p.m.
Wednesday, July 16, 2008: 5-7 p.m.
Tuesday, September 23, 2008: 5-7 p.m.
Tuesday, November 11, 2008: 5-7 p.m.

To register by phone or for more information, contact:

La Roche College
Graduate Studies & Adult Education
724-741-1034
lois.kuttesch@LaRoche.edu

 

Lawrence County Learning Center
131 Columbus Innerbelt • New Castle, PA 16101
www.lclceducation.com

About La Roche:
La Roche College was founded in 1963, and its main campus is in
Pittsburgh’s North Hills on an 80-acre campus. Nearly 1,600 students
pursue studies at La Roche, coming from 16 states and more than
30 nations. In its three schools – the School of Arts and Sciences, the
School of the Professions and the School of Graduate Studies & Adult
Education – the college offers more than 50 undergraduate majors,
20 undergraduate minors and three graduate programs.
Top of Page
Footer