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

MAY 2009 SCHEDULE OF EVENTS

AT THE CRYSTAL CATHEDRAL

SCHEDULE (Updated 04/29/09)

Saturday, May 16, 2009 – 40th COMMENCEMENT

Cal Grad will hold its 40th annual commencement ceremony on Saturday, May 16th at 4:00p.m. at the Crystal Cathedral, 13280 Chapman Ave., Garden Grove, CA 92840. Dr. Jim Poit, the school President, will be delivering the Commencement address. It is our hope that many of our alumni and guests will be present to meet with Dr. Poit, hear his address to the students, and support the school in this milestone of our school’s history.

Please see the Spring 2009 newsletter for updates

Our President

President's Banquet 2008

Commencement 2007

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

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