<%@LANGUAGE="VBSCRIPT"%> <% ' *** 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_conn_BethDB_STRING MM_editTable = "alumni" MM_editRedirectUrl = "insertthanks.asp" MM_fieldsStr = "First|value|Last|value|Maiden|value|Year|value|Email|value" MM_columnsStr = "First|',none,''|Last|',none,''|Maiden|',none,''|Year|',none,''|Email|',none,''" ' 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: construct a sql insert statement and execute it 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 ' 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 %> Search - Alumni - Bethlehem CSD, Bethlehem, NY
spacer
Announcements heading

Why are the flags at half-staff?

Learn more...

Superintendent's Note

Read the latest from Dr. Douglas

2011-12 Events Calendar

View calendar [PDF - large file]

New to the district?

If you have a child aged 0-4, we may need your child's information for long term planning.

Registering your child for school

Grades 3-8 State Testing Dates Available

Download the dates. [PDF]

Flu Information

Read educational information from New York State regarding the flu. [PDF]

Seasonal flu guide for parents.

Spring 2012 Driver Education

Download the information [PDF]

Employee HazCom Online Training

Learn more and access training

Free and Reduced Price Meals Program

Application for 2011-12

Information & FAQs

BC@Home Support and Help Resources

Parents have four troubleshooting options

 

school tax calculator

 

 

Bethlehem A to Z heading

Alumni

Search For Alumni

Enter your search word in the box provided below and click 'Search'. You can search by last name, first name, maiden name, email address or year of graduation.

Search Word(s):