CALIFORNIA GRADUATE SCHOOL OF THEOLOGY

<%@LANGUAGE="VBSCRIPT"%> <% 'NSL 060905 FOR NOW, we are connecting to the DB DSNLESS. Neverthless, 'i left the include file here, just in case we decide to change. 'view code below %> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_CGSOT_STRING MM_editConnection= "dsn=access_cgsot;" MM_editTable = "tblAlumni" MM_editRedirectUrl = "InfoReceived.html" MM_fieldsStr = "First Name|value|Last Name|value|Address1|value|Address2|value|City|value|State|value|Zip|value|Phone|value|Email|value|Degree|value|Highest Degree|value|Present Business|value|Comments|value|chkMailingList|value" MM_columnsStr = "txtfName|',none,''|txtlName|',none,''|txtAddress1|',none,''|txtAddress2|',none,''|txtCity|',none,''|txtState|',none,''|txtZip|',none,''|txtPhone|',none,''|txtEmail|',none,''|nDegree|none,none,NULL|txtHighDegree|',none,''|txtPresentBus|',none,''|txtComments|',none,''|ynMailingList|none,none,NULL" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then Dim MyConn Dim MdbFilePath Set MyConn = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("/access_db/cgsot.mdb") MyConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" Set oRS= MyConn.execute(cstr(MM_editQuery)) MyConn.close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> CALIFORNIA GRADUATE SCHOOL OF THEOLOGY

41st Annual Commencement Ceremony

California Graduate School of Theology

Honor. Integrity. Cal Grad, since 1969. Email us for more information about finishing your degree program. We have many academic programs, flexible schedules, tutorial programs, & on-site scholars to assist you. The wait is over. info@cgsot.edu

Congratulations D.Min. Class of 2010.

2009-2010 Faculty.

The Rev. Dr. Fatu Auau leads the procession with our school flag.

The processional continues with Chancellor, Dr. Paul Lee, Dr. Lawrence Wilkes (Dean of the Graduate School), Dr. Daniel Yom (Academic Dean), followed by Honorary D.D. recipient Dr. John Stensether.

They are followed by Dr. Sandra Herron, Dr. Daniel Kim, and Dr. Juan Carlos Ortiz.

The ceremony begins with Dr. Wilkes giving the invocation.

Dr. Wilkes introduces the hymn.

Special guests, the Emmanuelu Congregational Christian Church Choir lead our singing.

Dr. John Stensether shares a special message with our graduates and guests.

Some of our graduates receiving Pastor John's message.

Dr. Wilkes and Chancellor Lee present the candidates.

Over 400 guests look on with anticipation.

One of our D.Min. graduates, Dr. Ed Chambers receiving his diploma from Chancellor Lee.

Dr. Wilkes brings the ceremony to a close.

Congratulations Class of 2010.

View all of the photos from the 41st commencement ceremony. Click here. Pick "Online Proofing" on the bottom right. On the top left, enter "calgrad" under "Find Your Photos," and choose "05/22/2010" for the date. Password is "2010."

CLASS RING

Donations

If you have any questions, contact or visit the Office Administration at CAL GRAD

California Graduate School of Theology
501 South Idaho Street
La Habra, CA 90631

Phone:       1.562.691.5219
Fax:            1.562.266.1578
E-mail:        info@cgsot.edu

2010 Commencement
at the
Crystal Cathedral

Copyright © 2010. California Graduate School Of Theology. All Rights Reserved