<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> <% vTitle2=" - Course Registration" vTitleVis="Course Registration" %>
 
<% If Request.Form("Submitted") = "Yes" Then vRChallenge = replace(Request.Form("RChallenge"),"'","''") vRBackground = replace(Request.Form("RBackground"),"'","''") vRDevotions = replace(Request.Form("RDevotions"),"'","''") vRRelationship = replace(Request.Form("RRelationship"),"'","''") vRCalling = replace(Request.Form("RCalling"),"'","''") vRService = replace(Request.Form("RService"),"'","''") vRFirst = Request.Form("RFirst") sql = "INSERT INTO sitefirst.GLU_Registrations (RFirst, RLast, REmail, RAddress1, RAddress2, RCity, RState, RZip, RPhone1, RPhone2, RClasses1, RClasses2, RClasses3, RClasses4, RChallenge, RBackground, RDevotions, RRelationship, RCalling, RService, TOpt, CCName, CCType, CCNum, CCExp, CCCode) VALUES ('" & Request.Form("RFirst") & "', '" & Request.Form("RLast") & "', '" & Request.Form("REmail") & "', '" & Request.Form("RAddress1") & "', '" & Request.Form("RAddress2") & "', '" & Request.Form("RCity") & "', '" & Request.Form("RState") & "', '" & Request.Form("RZip") & "', '" & Request.Form("RPhone1") & "', '" & Request.Form("RPhone2") & "', '" & Request.Form("RClasses1") & "', '" & Request.Form("RClasses2") & "', '" & Request.Form("RClasses3") & "', '" & Request.Form("RClasses4") & "', '" & vRChallenge & "', '" & vRBackground & "', '" & vRDevotions & "', '" & vRRelationship & "', '" & vRCalling & "', '" & vRService & "', '" & Request.Form("Tuition_Option") & "', '" & Request.Form("Credit_Card_Name") & "', '" & Request.Form("Credit_Card") & "', '" & Request.Form("Credit_Card_Number") & "', '" & Request.Form("Credit_Card_Expire") & "', '" & Request.Form("Credit_Card_Code") & "' )" %> <% vDebug ="0" If vDebug = "1" Then %> SQL = "<%= SQL %>"
Name:
<%= Request.Form("RFirst") %>
<%= Request.Form("RLast") %>
<%= Request.Form("REmail") %>
Address:
<%= Request.Form("RAddress1") %>
<%= Request.Form("RAddress2") %>
<%= Request.Form("RCity") %>
<%= Request.Form("RState") %>
<%= Request.Form("RZip") %>
Phone:
<%= Request.Form("RPhone1") %>
<%= Request.Form("RPhone2") %>
Classes:
<%= Request.Form("RClasses1") %>
<%= Request.Form("RClasses2") %>
<%= Request.Form("RClasses3") %>
<%= Request.Form("RClasses4") %>
Text:
<%= Request.Form("RChallenge") %>
<%= Request.Form("RBackground") %>
<%= Request.Form("RDevotions") %>
<%= Request.Form("RRelationship") %>
<%= Request.Form("RCalling") %>
<%= Request.Form("RService") %>
CC Info:
TOpt: <%= Request.Form("Tuition_Option") %>
CCName: <%= Request.Form("Credit_Card_Name") %>
CCType: <%= Request.Form("Credit_Card") %>
CC#: <%= Request.Form("Credit_Card_Number") %>
CCExp: <%= Request.Form("Credit_Card_Expire") %>
CCCode: <%= Request.Form("Credit_Card_Code") %>
<% Else %> <% End If %> <% Sub SendEmailMessage() Dim objMail Dim strBody Set objMail= CreateObject("CDONTS.Newmail") strBody = "" strBody = strBody &"" strBody = strBody &"" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" 'CC INfo strBody = strBody & "" '/CC INfo strBody = strBody & "" strBody = strBody & " " strBody = strBody & "
" strBody = StrBody & "

GLU Course Registration

" & chr(10) strBody = strBody & "
" strBody = StrBody & "Name: " & Request.Form("RFfirst") & " " & Request.Form("RLast") & chr(10) strBody = strBody & "
" strBody = StrBody & "Email: " & Request.Form("Remail") & chr(10) strBody = strBody & "
" strBody = StrBody & "Tuotion Option: " & Request.Form("Tuition_Option") & "
" & chr(10) strBody = StrBody & "CCName: " & Request.Form("Credit_Card_Name") & "
" & chr(10) strBody = StrBody & "CCType: " & Request.Form("Credit_Card") & "
" & chr(10) strBody = StrBody & "CCNum: " & Request.Form("Credit_Card_Number") & "
" & chr(10) strBody = StrBody & "CCExp: " & Request.Form("Credit_Card_Expire") & "
" & chr(10) strBody = StrBody & "CCCode: " & Request.Form("Credit_Card_Code") & "
" & chr(10) strBody = strBody & "
" strBody = StrBody & "Check here: Current Registrations" strBody = strBody & "
" strBody = strBody & "" objMail.BodyFormat = 0'HTML objMail.Body = strBody objMail.MailFormat = 0'Mime format objMail.Importance = 2'High objMail.From = "GLU Registration" objMail.To = "sara@thegreatnessfactor.com" ' objMail.To = "mtate@sitefirst.com" objMail.Subject = "GLU Course Registration" objMail.Send Set objMail = Nothing End Sub %>

Thank you, <%= vRFirst %>!


Someone will contact you shortly!




<% Else %>

Registration Application Form

<% strCourseSelect = "" SQL = "SELECT * FROM sitefirst.GLU_Courses WHERE CActive = '1' ORDER BY CID" Set dcData = server.CreateObject("ADODB.Connection") dcData.Open ConnCC Set cmdData = Server.CreateObject("ADODB.Command") cmdData.ActiveConnection = dcData cmdData.CommandText = SQL Set rsData = Server.CreateObject("ADODB.Recordset") rsData.Open cmdData, , 0, 1 If not rsData.EOF Then rsData.MoveFirst Do While not rsData.EOF strCourseSelect = strCourseSelect & "" rsData.MoveNext Loop Else NoData = "True" End if rsData.Close Set rsData = Nothing dcData.Close Set dcData = Nothing %>
   First Name:
   Last Name:
   Email Address:
   Address 1:
   Address 2:
   City:
   State/PR:
   Zip/PC:
   Phone 1:
   Phone 2:
 

                     Enter the Course Name(s) You Are Applying For:

   Course Name:
   Course Name:
   Course Name:
   Course Name:
Answer All Questions Completely:
1. Tell us about your relationship with Christ; your conversion experience. (When, where and how you got saved.)
2. Church Background: Where have you attended church, for how long, and if you no longer attend there, why not?
3. Tell us about your devotional life. (The when, where and how of your daily prayer and Bible study.)
4. How do you characterize your relationship wiith God? (What is it that you want out of your Christianity?)
5. What "evidences" or "urgings" are leading you into Christian Ministry? What do you feel is your calling?
6. What kinds of service, if any, have you given through your local church? (Teaching children's or adult classes, singing in choir or worship team, administrative helps, outreach events, etc.)

   Tuition Option:
   Credit Card:
   Name as it appears on Card:
   Credit Card Number:
   Expiration Date (MM/YY):      Security Code:
                                                                                                                     

Upon receiving your completed application, we will contact you by email confirming registration, and will schedule a consultation with your instructor to set up your class schedule and ship your course texts.

                                

<% End If %>