<%@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
View in English

View in Korean
About Us Program Admission Faculty Students Newsletter Alumni Contact

38th Annual Commencement Ceremony

California Graduate School of Theology
La Habra, California

Cal Grad's 38th Annual
Commencement Ceremony.

Congratulations Class of 2007!

Cal Grad's 38th Annual Commencement Ceremony

Excellence in Education

Academic Dean and candidates for Graduation awaiting Procession

Administrative Team

Dr. Lawrence Wilkes, Chairman of Homiletics.

Invocation.

Chancellor, Dr. Paul Lee and V.P. Development, Dr. John Kwon, welcoming guests.

Candidates for Graduation.

(From left to right) Dr.'s Farrell; Wilkes; Furushima; Lee; de Hart

Dr. Joseph Farrell - The Word of God being Proclaimed.

The Academic Dean (de Hart) Presiding.

President, Roger T. Beckwith.

President Beckwith
"Learning from the Past"

President Beckwith delivering the Commencement Address.

Faculty and Candidates for Graduation.

President Beckwith congratulates M.A. graduate, Jeffrey T. Beard.

Chancellor Paul Lee congratulates M.A. graduate, Joseph Park (medical missionary to Ethiopia).

Dean of Students, John Gutierrez with Th.D. graduate, Alex Pak.

Dr. Gutierrez and Dr. de Hart awarding the Doctor of Divinity Hood to Gary L. de Hart in recognition for contribution to Christian Education, publishing, and ministry to men and women in international banking.

The Academic Dean et al congratulating the 2007 graduating class.

Dr. Randall Furushima, President of Hawaii Theological Seminary giving the congratulatory address to the graduates of Cal Grad.

Dr. Lee is awarded special recognition for his leadership and the role Cal Grad has played in Christian Education in the State of California.

Vice President of International Development, Dr. John Kwon with D.Min. graduate.

Dr. Joseph Park with family and friend.

Dr. Beckwith with D.Min. graduate Dr. Joel Kim.

Graduates, Sae Jang and Rachel Oh. Missionaries and Christian Educators.

D.D. Honoree, Dr. Gary de Hart

Academic Dean,
Dr. Scott de Hart

M.A. graduate, Jeff Beard

Cal Grad Professor,
Dr. Daniel Kim (right) congratulates
Th.D. student, Alex Pak (left).

Reception after the Commencement at Cal Grad campus.

California Graduate School of Theology - Faculty for the 2006-2007 Academic Year.

Honor. Integrity. Cal Grad, since 1969. If you would like to join our 5,000 alumni throughout the world, email us for more information about becoming a student. We have many academic programs, flexible schedules, tutorial programs, & on-site scholars to assist you. Why wait? info@cgsot.edu


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




About Cal Grad Statement Of Faith Student Services Donations Contact Us Privacy Policy