<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(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")) = "form1") Then MM_editConnection = MM_WebData_STRING MM_editTable = "PartnerInfoRequests" MM_editRedirectUrl = "ThankYou.html" MM_fieldsStr = "thedate|value|Name|value|VisitorType|value|StudyWorkscheckbox|value|goalcheckbox|value|WhoWhocheckbox|value|EmailAddr|value|Address|value|City|value|State|value|Zipcode|value|PhoneNumber|value" MM_columnsStr = "RequestedDate|',none,NULL|Name|',none,''|VisitorType|',none,''|StudyWorkdInfo|none,1,0|GoalInfo|none,1,0|WhosWhoInfo|none,1,0|EmailAddress|',none,''|StreetAddress|',none,''|City|',none,''|State|',none,''|ZipCode|',none,''|PhoneNumber|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> The Complete Guide to Financing College and Admissions

The Complete Guide to Financing College and Admissions
Home  | Learn More |  Results |  Testimonials  |  Order  |  About Mr. Wilfong |  CD Updates  |  Partners in Education |  Contact Us

Our Partners In Education

Study Works
Goal Financial
Whos Who Among American High School Students
For the past three decades, StudyWorks has made it their mission to increase students’ SAT scores. StudyWorks provides the best-trained SAT teachers in the country and offers small class sizes so students get individualized attention and instruction. Whether you need 50 points or 300 points to be accepted to your preferred school, StudyWorks GUARANTEES that your score will improve.
A nationally recognized provider of guaranteed student loans, Goal Financial’s success stems from their customer-oriented approach. Goal Financial is committed to meeting and possibly exceeding an individual’s unique financing needs through personalized service, knowledgeable loan counselors, and a customer-focused application and processing service.
For nearly 40 years, Who’s Who Among American High School Students has been honoring student achievement. It is their tradition to honor students who have excelled academically, served in their community, and succeeded in extracurricular activities. Who’s Who Among American High School Students is dedicated to offering services and information to assist students in reaching their highest educational goals.

To learn more about our Partners in Education, please complete the following:

*Denotes required field


Your Name:*

I am a :*

I would like information about (check all that apply):*

StudyWorks



E-mail address:*

Address:*

City/State/Zipcode:*

Phone Number:

   

 

www.collegeoptions.net | Copyright 2005 | All Rights Reserved
Website Created by 4g Software