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

2008 President's Banquet Gallery

President's Banquet at the Crystal Cathedral on May 16, 2008.

The 2008 President's Banquet entrance.

2008 President's Banquet held at Crystal Cathedral's Art Gallery.

Three Cal Grad students outside of Crystal Cathedral's main sanctuary.

Chancellor, Dr. Paul Lee greeting one of our guests before the event.

D.Min. program director, Dr. Lawrence Wilkes giving a warm welcome to our graduates, students, faculty, and guests.

Guests enjoying a catered dinner.

President, Dr. Roger Beckwith speaking to our guests.

Listening to Dr. Beckwith's address.

Academic Dean and V.P. of Academics, Dr. Scott de Hart making introductions.

Chancellor, Dr. Paul Lee.

2008 graduating students being recognized and they stand.

Dr. Wilkes receiving the Distinguished Roger T. Beckwith Professor of the Year Award.

(From right to left):
Dr. Lee, Dr. Beckwith,
Mrs. Beckwith, Mrs. Lee.

(From left to right):
David Christenson (graduate), Sharon Barnes,
Paul Barnes (graduate),
Tony Booker (graduate), Helen Booker, Kathryn Christenson.

(From left to right):
Rachel Gutierrez,
Dr. John Michael Gutierrez (prof)
Dr. Paul Uhlig (Honoree),
Ronald Uhlig, and Beverly Uhlig.

(From left to right):
Ardon Lockyer (graduate),
Lisa Lockyer, Mrs. Harris,
David Harris (graduate).

(From left to right):
Marilyn Vitek, Dick Vitek,
Dr. Lawrence Wilkes (prof), Nancy Wilkes,
Mercedes Richardson,
Lonnie Richardson (graduate).

Dr. de Hart presenting President Beckwith with a gift of appreciation.

Cal Grad professor, Dr. Kevin Shim offers a closing prayer.

(Right): Dr. Sandra Herron speaking with student and guest.

Dr. Wilkes waives goodbye as students leave.

Dr. Beckwith and Mrs. Beckwith wearing their gift (Hawaiian shirts).

Pro Excelsis Newsletter

Click HERE to subscribe.

CLASS RING

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

2008 President's Banquet
at the
Crystal Cathedral

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