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

2007 President's Banquet Gallery

President's Banquet at the Crystal Cathedral on May 18, 2007.

The 2007 Presdient's Banquet Entrance

Table setting of our President, Dr. Roger T. Beckwith

Dr. Beckwith

Chancellor, Dr. Paul Lee speaking with Dr. Beckwith before the event.

Chancellor Lee and his wife, Eunice.

Cal Grad's faculty in attendance
Dr. Lawrence Wilkes,
Dr. Alex Pak,
Dr. Scott de Hart,
Dr. Paul Lee,
Dr. Roger Beckwith,
Dr. John Gutierrez,
Dr. Samuel Park,
Dr. Joseph Farrell,
Dr. John Kwon

(From left to right)
Dr. Haygood and wife, Shirley,
Lynn, wife of student William Richard.

Dr. Kwon with students from Korea.

D.D. Honoree, Dr. de Hart speaking with Dean of Students, Dr. Gutierrez.

Dr. Wilkes and his wife, Nancy enjoying conversation with
Dr. Samuel Park.

President Beckwith speaking with Dr. Park.

Dr. Kwon enjoying coffee with his wife, Young.

Darrell and Robin Clardy speaking with Dr. Beckwith.

Guests starting to sit down for our formal dinner honoring President Beckwith.

Chancellor's Table
(From left to right):
Eunice Lee,
Dr. Paul Lee,
Dr. Randy Furushima (President of Hawaii Theological Seminary), Dr. Roger Beckwith,
Dr. Samuel Park,
Joanne Park

Chancellor Lee greeting guests at the Academic Dean's Table.

Dr. Kwon and Dr. de Hart giving a brief welcome.

President Beckwith being presented with an award prepared by Cal Grad's faculty, staff, and alumni.

Chancellor Lee is presented with an award for his continued dedication and sacrifice.

Dr. John Michael Gutierrez is awarded the "Roger T. Beckwith Distinguished Professor of the Year Award" for the 2006 - 2007 academic year.

Students, alumni, faculty, staff, and guests viewing a presentation of Cal Grad.

President Beckwith speaks to our guests.

Dr. Beckwith continues his address, "The Christian and the Future."

The unveiling of a special gift to Cal Grad from artist, Jacqueline de Hart.

Banquet guests applauding as the painting is revealed.

President of Hawaii Theological Seminary, Dr. Randy Furushima presents Dr. de Hart with a gift.

Dr. Furushima's gift... A special message of hope and fulfillment.

Dr. Furushima stands and applauds as the special announcement is given.

Guests begin to stand as the announcement is given.

Chancellor Lee gives a closing message of hope and promise.

President Furushima with President Beckwith.

President Beckwith.

CLASS RING

Commencement 2007

Donations

President's Banquet 2008

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

2007 President's Banquet
at the
Crystal Cathedral

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