<%@ 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") %>
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 %> <% ' Response.End() 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:
What are your goals upon completing this course?






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 %>