% Call RequireLogin() Dim sch Dim Field Dim Message Dim Result Private Function WriteField(Field) If IsObject(sch) Then WriteField = sch(Field) End If End Function If Request.ServerVariables("HTTP_METHOD") = "POST" Then Set sch = OpenRecordSet("AddSchools",adCmdTable) sch.AddNew For Each Field In sch.Fields If Not IsEmpty(Request.Form(Field.Name)) Then sch(Field.Name) = Request.Form(Field.Name) End If Next sch("as_submitter") = Session("u_id") sch.Update sch.Resync 'Notify administration Message = "A new school or update has been submitted for IHSICH." & vbCrLf & vbCrLf & _ "Please go to: http://ntjazz.com/admin/addschool_compare.asp?as_id=" & _ sch("as_id") & "&sch_id=" & sch("sch_id") & vbCrLf & vbCrLf Sendmail "webmaster@ntjazz.com",Array("jwarrick@ntjazz.com","tony@tonytang.com"),"IHSICH Submission",Message 'Send confirmation to submitter Message = "Dear " & Session("u_fname") & "," & vbCrLf & vbCrLf & _ "Thank you for submitting a school update to IHSICH at http://ntjazz.com. " & _ "Submissions from users like you keep IHSICH the most up-to-date Internet database of Illinois high schools. " & _ "Your submission will be reviewed by a human within 24-48 hours and added to our database if approved. " & _ vbCrLf & vbCrLf & "Sincerely," & vbCrLf & vbCrLf & _ "Jim Warrick" & vbCrLf & _ "Coordinator of Jazz Studies" & vbCrLf & _ "New Trier High School" & vbCrLf & _ "http://ntjazz.com" Result = Sendmail("webmaster@ntjazz.com",Array(Session("u_email"),"jwarrick@ntjazz.com","ntjazz@tonytang.com"),"IHSICH Thank You!",Message) CloseRecordSet(sch) CloseConnection() Response.Redirect "update_school_confirm.htm" Else If Request("sch_id") <> "" Then Set sch = OpenRecordSet("SELECT * FROM Schools WHERE (sch_id = " & Request("sch_id") & ");",adCmdText) End If End If %>
|
|
New Trier High School - 385 Winnetka Ave. - Winnetka, IL 60093 (847) 784-6701 - FAX: (847) 501-6400 |
|
Copyright ©2009 New Trier High
School. All rights reserved. |