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

You’ve worked hard to help your son or daughter prepare for the future by enrolling them in La Roche College’s challenging academic programs.

HERE IS YOUR CHANCE TO ADVANCE YOUR EDUCATION AND YOUR CAREER.

The La Roche College
ACE (Adult & Continuing Education) Parent Rewards Programs
offers scholarship assistance to the parents of current students
who want to fulfill their educational goals.


With the ACE Parent Rewards Program, you can:

• Pursue a master’s degree.
• Complete an undergraduate degree.
• Attain professional certification in your discipline.
• Change careers by pursuing a new course of study.

La Roche College currently offers more than 50 undergraduate degree programs, three master’s degree programs and various degree completion and certificate tracks. By enrolling in the ACE Parent Rewards Program, you will be able to take courses at a significantly reduced rate!

To get started, please complete the online survey by clicking the button below.

If you would like more information, contact us at 412-536-1272
or e-mail us at admissions@laroche.edu.

Click here to take online survey.

Real Learning for the Real World.

 
Top of Page
Footer