% 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 %>
Students may pay tuition bills via one of four methods. The first method is to pay the
entire amount by the published due date for that particular semester. The second
method is via financial aid (in the form of a loan). La Roche College is pleased to work
with Nellie Mae as our preferred lender (www.nelliemae.com). The third payment
option is Visa/Mastercard. Payments with Visa/Mastercard will be accepted in
person or over the telephone. The fourth method is a formal payment plan set up by
the finance office. Payments will be set up in four installments of 25 percent of total
costs less financial aid plus a finance charge. You must sign a promissory note for each
semester. Please contact the La Roche College Finance Office at (412) 536-1031 for
more information.
Company Billing
Some companies and government agencies pay their employee's tuition directly to the
College. If tuition is to be paid in this manner, you must supply authorizing forms or
letters from your employer to the Finance Office.
Tuition Reimbursement
All students are expected to pay in advance, obtain financial aid (in the form of a loan),
charge the balance to their credit card, or commit themselves to one of La Roche’s
payment options discussed above. Students who are eligible for tuition reimbursement
through their employers are still expected to pay the first semester's tuition in one of
the four ways described under payment options.
Financial Aid
Financial aid is available to graduate students at La Roche through Federal Stafford
Loans, banks and other lending institutions. All students seeking aid, including the
Stafford Student Loan, should contact the Financial Aid Office (412) 536-1120 for
information on application procedures.
In general, a graduate student is considered full time if he/she is taking nine to
twelve (9-12) credits per semester. A half-time student is one taking six (6) credits.
A quarter-time student takes three (3) credits. Certificate students are not eligible for financial aid.
Now Offering Scholarships for Part-Time Students
We’ve made it more affordable for you to return to College and complete your education. La Roche College has become one of the only institutions of higher learning in Greater Pittsburgh to offer continuing education scholarships to part-time students. When you apply as a part-time graduate student, the Office of Graduate Studies & Adult Education will automatically review your application to determine if you are eligible for scholarships of up to $2,250 per year. Full-time graduate students will also be evaluated to determine scholarship availability.
If you have any questions regarding this process, please contact:
The Office of Graduate Studies & Adult Education at (412) 536-1262.