<!--#include file="ewconfig.asp"-->
<!--#include file="db.asp"-->
<!--#include file="chapterinfo.asp"-->
<!--#include file="advsecu.asp"-->
<!--#include file="aspmkrfn.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>
<%
If Not IsLoggedIn And Request.Cookies(ewProjectName)("autologin") = "autologin" And Request.Cookies(ewProjectName)("password") <> "" Then Response.Redirect "login.asp"
Call LoadUserLevel()
If IsLoggedIn Then
	ewCurSec = CurrentUserLevelPriv("chapter")
Else
	ewCurSec = GetAnonymousPriv("chapter")
End If
If (ewCurSec And ewAllowSearch) <> ewAllowSearch Then Response.Redirect "chapterlist.asp"
If IsLoggedIn And CurrentUserID = "" Then
	Session(ewSessionMessage) = "You do not have the right permission to view the page"
	Response.Redirect "login.asp"
End If
%>
<%

' Initialize common variables
x_chapter_pkey = Null: ox_chapter_pkey = Null: z_chapter_pkey = Null
x_chapter_FFAid = Null: ox_chapter_FFAid = Null: z_chapter_FFAid = Null
x_chapter_schoolname = Null: ox_chapter_schoolname = Null: z_chapter_schoolname = Null
x_chapter_schooladdress1 = Null: ox_chapter_schooladdress1 = Null: z_chapter_schooladdress1 = Null
x_chapter_schooladdress2 = Null: ox_chapter_schooladdress2 = Null: z_chapter_schooladdress2 = Null
x_chapter_schooladdress3 = Null: ox_chapter_schooladdress3 = Null: z_chapter_schooladdress3 = Null
x_chapter_schoolcity = Null: ox_chapter_schoolcity = Null: z_chapter_schoolcity = Null
x_chapter_schoolstate = Null: ox_chapter_schoolstate = Null: z_chapter_schoolstate = Null
x_chapter_schoolzipcode = Null: ox_chapter_schoolzipcode = Null: z_chapter_schoolzipcode = Null
x_chapter_schoolzipcode4 = Null: ox_chapter_schoolzipcode4 = Null: z_chapter_schoolzipcode4 = Null
x_chapter_schooladvisor = Null: ox_chapter_schooladvisor = Null: z_chapter_schooladvisor = Null
x_chapter_region = Null: ox_chapter_region = Null: z_chapter_region = Null
x_chapter_website = Null: ox_chapter_website = Null: z_chapter_website = Null
x_chapter_email = Null: ox_chapter_email = Null: z_chapter_email = Null
x_chapter_picture = Null: ox_chapter_picture = Null: z_chapter_picture = Null
fs_x_chapter_picture = 0: fn_x_chapter_picture = "": ct_x_chapter_picture = ""
wd_x_chapter_picture = 0: ht_x_chapter_picture = 0: a_x_chapter_picture = ""
x_chapter_picturename = Null: ox_chapter_picturename = Null: z_chapter_picturename = Null
fs_x_chapter_picturename = 0: fn_x_chapter_picturename = "": ct_x_chapter_picturename = ""
wd_x_chapter_picturename = 0: ht_x_chapter_picturename = 0: a_x_chapter_picturename = ""
x_chapter_picturetype = Null: ox_chapter_picturetype = Null: z_chapter_picturetype = Null
x_chapter_theme = Null: ox_chapter_theme = Null: z_chapter_theme = Null
x_chapter_bio = Null: ox_chapter_bio = Null: z_chapter_bio = Null
x_chapter_links = Null: ox_chapter_links = Null: z_chapter_links = Null
x_chapter_officers = Null: ox_chapter_officers = Null: z_chapter_officers = Null
x_chapter_advisors = Null: ox_chapter_advisors = Null: z_chapter_advisors = Null
x_chapter_courses = Null: ox_chapter_courses = Null: z_chapter_courses = Null
x_chapter_news = Null: ox_chapter_news = Null: z_chapter_news = Null
x_chapter_events = Null: ox_chapter_events = Null: z_chapter_events = Null
x_memberid = Null: ox_memberid = Null: z_memberid = Null
%>
<%
Response.Buffer = True

' Get action
sAction = Request.Form("a_search")
Select Case sAction
	Case "S": ' Get Search Criteria

	' Build search string for advanced search, remove blank field
	sSrchStr = ""

	' Field chapter_pkey
	x_chapter_pkey = Request.Form("x_chapter_pkey")
	z_chapter_pkey = Request.Form("z_chapter_pkey")
	sSrchWrk = ""
	If x_chapter_pkey <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_pkey=" & Server.URLEncode(x_chapter_pkey)
		sSrchWrk = sSrchWrk & "&z_chapter_pkey=" & Server.URLEncode(z_chapter_pkey)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_FFAid
	x_chapter_FFAid = Request.Form("x_chapter_FFAid")
	z_chapter_FFAid = Request.Form("z_chapter_FFAid")
	sSrchWrk = ""
	If x_chapter_FFAid <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_FFAid=" & Server.URLEncode(x_chapter_FFAid)
		sSrchWrk = sSrchWrk & "&z_chapter_FFAid=" & Server.URLEncode(z_chapter_FFAid)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolname
	x_chapter_schoolname = Request.Form("x_chapter_schoolname")
	z_chapter_schoolname = Request.Form("z_chapter_schoolname")
	sSrchWrk = ""
	If x_chapter_schoolname <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolname=" & Server.URLEncode(x_chapter_schoolname)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolname=" & Server.URLEncode(z_chapter_schoolname)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schooladdress1
	x_chapter_schooladdress1 = Request.Form("x_chapter_schooladdress1")
	z_chapter_schooladdress1 = Request.Form("z_chapter_schooladdress1")
	sSrchWrk = ""
	If x_chapter_schooladdress1 <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schooladdress1=" & Server.URLEncode(x_chapter_schooladdress1)
		sSrchWrk = sSrchWrk & "&z_chapter_schooladdress1=" & Server.URLEncode(z_chapter_schooladdress1)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schooladdress2
	x_chapter_schooladdress2 = Request.Form("x_chapter_schooladdress2")
	z_chapter_schooladdress2 = Request.Form("z_chapter_schooladdress2")
	sSrchWrk = ""
	If x_chapter_schooladdress2 <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schooladdress2=" & Server.URLEncode(x_chapter_schooladdress2)
		sSrchWrk = sSrchWrk & "&z_chapter_schooladdress2=" & Server.URLEncode(z_chapter_schooladdress2)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schooladdress3
	x_chapter_schooladdress3 = Request.Form("x_chapter_schooladdress3")
	z_chapter_schooladdress3 = Request.Form("z_chapter_schooladdress3")
	sSrchWrk = ""
	If x_chapter_schooladdress3 <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schooladdress3=" & Server.URLEncode(x_chapter_schooladdress3)
		sSrchWrk = sSrchWrk & "&z_chapter_schooladdress3=" & Server.URLEncode(z_chapter_schooladdress3)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolcity
	x_chapter_schoolcity = Request.Form("x_chapter_schoolcity")
	z_chapter_schoolcity = Request.Form("z_chapter_schoolcity")
	sSrchWrk = ""
	If x_chapter_schoolcity <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolcity=" & Server.URLEncode(x_chapter_schoolcity)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolcity=" & Server.URLEncode(z_chapter_schoolcity)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolstate
	x_chapter_schoolstate = Request.Form("x_chapter_schoolstate")
	z_chapter_schoolstate = Request.Form("z_chapter_schoolstate")
	sSrchWrk = ""
	If x_chapter_schoolstate <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolstate=" & Server.URLEncode(x_chapter_schoolstate)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolstate=" & Server.URLEncode(z_chapter_schoolstate)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolzipcode
	x_chapter_schoolzipcode = Request.Form("x_chapter_schoolzipcode")
	z_chapter_schoolzipcode = Request.Form("z_chapter_schoolzipcode")
	sSrchWrk = ""
	If x_chapter_schoolzipcode <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolzipcode=" & Server.URLEncode(x_chapter_schoolzipcode)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolzipcode=" & Server.URLEncode(z_chapter_schoolzipcode)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolzipcode4
	x_chapter_schoolzipcode4 = Request.Form("x_chapter_schoolzipcode4")
	z_chapter_schoolzipcode4 = Request.Form("z_chapter_schoolzipcode4")
	sSrchWrk = ""
	If x_chapter_schoolzipcode4 <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolzipcode4=" & Server.URLEncode(x_chapter_schoolzipcode4)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolzipcode4=" & Server.URLEncode(z_chapter_schoolzipcode4)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schooladvisor
	x_chapter_schooladvisor = Request.Form("x_chapter_schooladvisor")
	z_chapter_schooladvisor = Request.Form("z_chapter_schooladvisor")
	sSrchWrk = ""
	If x_chapter_schooladvisor <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schooladvisor=" & Server.URLEncode(x_chapter_schooladvisor)
		sSrchWrk = sSrchWrk & "&z_chapter_schooladvisor=" & Server.URLEncode(z_chapter_schooladvisor)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_region
	x_chapter_region = Request.Form("x_chapter_region")
	z_chapter_region = Request.Form("z_chapter_region")
	sSrchWrk = ""
	If x_chapter_region <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_region=" & Server.URLEncode(x_chapter_region)
		sSrchWrk = sSrchWrk & "&z_chapter_region=" & Server.URLEncode(z_chapter_region)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_website
	x_chapter_website = Request.Form("x_chapter_website")
	z_chapter_website = Request.Form("z_chapter_website")
	sSrchWrk = ""
	If x_chapter_website <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_website=" & Server.URLEncode(x_chapter_website)
		sSrchWrk = sSrchWrk & "&z_chapter_website=" & Server.URLEncode(z_chapter_website)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_email
	x_chapter_email = Request.Form("x_chapter_email")
	z_chapter_email = Request.Form("z_chapter_email")
	sSrchWrk = ""
	If x_chapter_email <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_email=" & Server.URLEncode(x_chapter_email)
		sSrchWrk = sSrchWrk & "&z_chapter_email=" & Server.URLEncode(z_chapter_email)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_theme
	x_chapter_theme = Request.Form("x_chapter_theme")
	z_chapter_theme = Request.Form("z_chapter_theme")
	sSrchWrk = ""
	If x_chapter_theme <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_theme=" & Server.URLEncode(x_chapter_theme)
		sSrchWrk = sSrchWrk & "&z_chapter_theme=" & Server.URLEncode(z_chapter_theme)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_bio
	x_chapter_bio = Request.Form("x_chapter_bio")
	z_chapter_bio = Request.Form("z_chapter_bio")
	sSrchWrk = ""
	If ((Left(LCase(x_chapter_bio), 3) = "<p>") And (Right(LCase(x_chapter_bio), 4) = "</p>")) Then x_chapter_bio = Trim(Mid(x_chapter_bio, 4, Len(x_chapter_bio)-7)) ' Remove <p></p>
	If x_chapter_bio <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_bio=" & Server.URLEncode(x_chapter_bio)
		sSrchWrk = sSrchWrk & "&z_chapter_bio=" & Server.URLEncode(z_chapter_bio)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_links
	x_chapter_links = Request.Form("x_chapter_links")
	z_chapter_links = Request.Form("z_chapter_links")
	sSrchWrk = ""
	If ((Left(LCase(x_chapter_links), 3) = "<p>") And (Right(LCase(x_chapter_links), 4) = "</p>")) Then x_chapter_links = Trim(Mid(x_chapter_links, 4, Len(x_chapter_links)-7)) ' Remove <p></p>
	If x_chapter_links <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_links=" & Server.URLEncode(x_chapter_links)
		sSrchWrk = sSrchWrk & "&z_chapter_links=" & Server.URLEncode(z_chapter_links)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_officers
	x_chapter_officers = Request.Form("x_chapter_officers")
	z_chapter_officers = Request.Form("z_chapter_officers")
	sSrchWrk = ""
	If ((Left(LCase(x_chapter_officers), 3) = "<p>") And (Right(LCase(x_chapter_officers), 4) = "</p>")) Then x_chapter_officers = Trim(Mid(x_chapter_officers, 4, Len(x_chapter_officers)-7)) ' Remove <p></p>
	If x_chapter_officers <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_officers=" & Server.URLEncode(x_chapter_officers)
		sSrchWrk = sSrchWrk & "&z_chapter_officers=" & Server.URLEncode(z_chapter_officers)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_advisors
	x_chapter_advisors = Request.Form("x_chapter_advisors")
	z_chapter_advisors = Request.Form("z_chapter_advisors")
	sSrchWrk = ""
	If ((Left(LCase(x_chapter_advisors), 3) = "<p>") And (Right(LCase(x_chapter_advisors), 4) = "</p>")) Then x_chapter_advisors = Trim(Mid(x_chapter_advisors, 4, Len(x_chapter_advisors)-7)) ' Remove <p></p>
	If x_chapter_advisors <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_advisors=" & Server.URLEncode(x_chapter_advisors)
		sSrchWrk = sSrchWrk & "&z_chapter_advisors=" & Server.URLEncode(z_chapter_advisors)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_courses
	x_chapter_courses = Request.Form("x_chapter_courses")
	z_chapter_courses = Request.Form("z_chapter_courses")
	sSrchWrk = ""
	If ((Left(LCase(x_chapter_courses), 3) = "<p>") And (Right(LCase(x_chapter_courses), 4) = "</p>")) Then x_chapter_courses = Trim(Mid(x_chapter_courses, 4, Len(x_chapter_courses)-7)) ' Remove <p></p>
	If x_chapter_courses <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_courses=" & Server.URLEncode(x_chapter_courses)
		sSrchWrk = sSrchWrk & "&z_chapter_courses=" & Server.URLEncode(z_chapter_courses)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_news
	x_chapter_news = Request.Form("x_chapter_news")
	z_chapter_news = Request.Form("z_chapter_news")
	sSrchWrk = ""
	If ((Left(LCase(x_chapter_news), 3) = "<p>") And (Right(LCase(x_chapter_news), 4) = "</p>")) Then x_chapter_news = Trim(Mid(x_chapter_news, 4, Len(x_chapter_news)-7)) ' Remove <p></p>
	If x_chapter_news <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_news=" & Server.URLEncode(x_chapter_news)
		sSrchWrk = sSrchWrk & "&z_chapter_news=" & Server.URLEncode(z_chapter_news)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_events
	x_chapter_events = Request.Form("x_chapter_events")
	z_chapter_events = Request.Form("z_chapter_events")
	sSrchWrk = ""
	If ((Left(LCase(x_chapter_events), 3) = "<p>") And (Right(LCase(x_chapter_events), 4) = "</p>")) Then x_chapter_events = Trim(Mid(x_chapter_events, 4, Len(x_chapter_events)-7)) ' Remove <p></p>
	If x_chapter_events <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_events=" & Server.URLEncode(x_chapter_events)
		sSrchWrk = sSrchWrk & "&z_chapter_events=" & Server.URLEncode(z_chapter_events)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field memberid
	x_memberid = Request.Form("x_memberid")
	z_memberid = Request.Form("z_memberid")
	sSrchWrk = ""
	If x_memberid <> "" Then
		sSrchWrk = sSrchWrk & "x_memberid=" & Server.URLEncode(x_memberid)
		sSrchWrk = sSrchWrk & "&z_memberid=" & Server.URLEncode(z_memberid)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If
	If sSrchStr <> "" Then
		Response.Clear
		Response.Redirect "chapterlist.asp" & "?" & sSrchStr
	End If
	Case Else ' Restore search settings
		x_chapter_pkey = Session(ewSessionTblAdvSrch & "_x_chapter_pkey")
		x_chapter_FFAid = Session(ewSessionTblAdvSrch & "_x_chapter_FFAid")
		x_chapter_schoolname = Session(ewSessionTblAdvSrch & "_x_chapter_schoolname")
		x_chapter_schooladdress1 = Session(ewSessionTblAdvSrch & "_x_chapter_schooladdress1")
		x_chapter_schooladdress2 = Session(ewSessionTblAdvSrch & "_x_chapter_schooladdress2")
		x_chapter_schooladdress3 = Session(ewSessionTblAdvSrch & "_x_chapter_schooladdress3")
		x_chapter_schoolcity = Session(ewSessionTblAdvSrch & "_x_chapter_schoolcity")
		x_chapter_schoolstate = Session(ewSessionTblAdvSrch & "_x_chapter_schoolstate")
		x_chapter_schoolzipcode = Session(ewSessionTblAdvSrch & "_x_chapter_schoolzipcode")
		x_chapter_schoolzipcode4 = Session(ewSessionTblAdvSrch & "_x_chapter_schoolzipcode4")
		x_chapter_schooladvisor = Session(ewSessionTblAdvSrch & "_x_chapter_schooladvisor")
		x_chapter_region = Session(ewSessionTblAdvSrch & "_x_chapter_region")
		x_chapter_website = Session(ewSessionTblAdvSrch & "_x_chapter_website")
		x_chapter_email = Session(ewSessionTblAdvSrch & "_x_chapter_email")
		x_chapter_theme = Session(ewSessionTblAdvSrch & "_x_chapter_theme")
		x_chapter_bio = Session(ewSessionTblAdvSrch & "_x_chapter_bio")
		x_chapter_links = Session(ewSessionTblAdvSrch & "_x_chapter_links")
		x_chapter_officers = Session(ewSessionTblAdvSrch & "_x_chapter_officers")
		x_chapter_advisors = Session(ewSessionTblAdvSrch & "_x_chapter_advisors")
		x_chapter_courses = Session(ewSe<!--#include file="ewconfig.asp"-->
<!--#include file="db.asp"-->
<!--#include file="chapterinfo.asp"-->
<!--#include file="advsecu.asp"-->
<!--#include file="aspmkrfn.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>
<%
If Not IsLoggedIn And Request.Cookies(ewProjectName)("autologin") = "autologin" And Request.Cookies(ewProjectName)("password") <> "" Then Response.Redirect "login.asp"
Call LoadUserLevel()
If IsLoggedIn Then
	ewCurSec = CurrentUserLevelPriv("chapter")
Else
	ewCurSec = GetAnonymousPriv("chapter")
End If
If (ewCurSec And ewAllowSearch) <> ewAllowSearch Then Response.Redirect "chapterlist.asp"
If IsLoggedIn And CurrentUserID = "" Then
	Session(ewSessionMessage) = "You do not have the right permission to view the page"
	Response.Redirect "login.asp"
End If
%>
<%

' Initialize common variables
x_chapter_pkey = Null: ox_chapter_pkey = Null: z_chapter_pkey = Null
x_chapter_FFAid = Null: ox_chapter_FFAid = Null: z_chapter_FFAid = Null
x_chapter_schoolname = Null: ox_chapter_schoolname = Null: z_chapter_schoolname = Null
x_chapter_schooladdress1 = Null: ox_chapter_schooladdress1 = Null: z_chapter_schooladdress1 = Null
x_chapter_schooladdress2 = Null: ox_chapter_schooladdress2 = Null: z_chapter_schooladdress2 = Null
x_chapter_schooladdress3 = Null: ox_chapter_schooladdress3 = Null: z_chapter_schooladdress3 = Null
x_chapter_schoolcity = Null: ox_chapter_schoolcity = Null: z_chapter_schoolcity = Null
x_chapter_schoolstate = Null: ox_chapter_schoolstate = Null: z_chapter_schoolstate = Null
x_chapter_schoolzipcode = Null: ox_chapter_schoolzipcode = Null: z_chapter_schoolzipcode = Null
x_chapter_schoolzipcode4 = Null: ox_chapter_schoolzipcode4 = Null: z_chapter_schoolzipcode4 = Null
x_chapter_schooladvisor = Null: ox_chapter_schooladvisor = Null: z_chapter_schooladvisor = Null
x_chapter_region = Null: ox_chapter_region = Null: z_chapter_region = Null
x_chapter_website = Null: ox_chapter_website = Null: z_chapter_website = Null
x_chapter_email = Null: ox_chapter_email = Null: z_chapter_email = Null
x_chapter_picture = Null: ox_chapter_picture = Null: z_chapter_picture = Null
fs_x_chapter_picture = 0: fn_x_chapter_picture = "": ct_x_chapter_picture = ""
wd_x_chapter_picture = 0: ht_x_chapter_picture = 0: a_x_chapter_picture = ""
x_chapter_picturename = Null: ox_chapter_picturename = Null: z_chapter_picturename = Null
fs_x_chapter_picturename = 0: fn_x_chapter_picturename = "": ct_x_chapter_picturename = ""
wd_x_chapter_picturename = 0: ht_x_chapter_picturename = 0: a_x_chapter_picturename = ""
x_chapter_picturetype = Null: ox_chapter_picturetype = Null: z_chapter_picturetype = Null
x_chapter_theme = Null: ox_chapter_theme = Null: z_chapter_theme = Null
x_chapter_bio = Null: ox_chapter_bio = Null: z_chapter_bio = Null
x_chapter_links = Null: ox_chapter_links = Null: z_chapter_links = Null
x_chapter_officers = Null: ox_chapter_officers = Null: z_chapter_officers = Null
x_chapter_advisors = Null: ox_chapter_advisors = Null: z_chapter_advisors = Null
x_chapter_courses = Null: ox_chapter_courses = Null: z_chapter_courses = Null
x_chapter_news = Null: ox_chapter_news = Null: z_chapter_news = Null
x_chapter_events = Null: ox_chapter_events = Null: z_chapter_events = Null
x_memberid = Null: ox_memberid = Null: z_memberid = Null
%>
<%
Response.Buffer = True

' Get action
sAction = Request.Form("a_search")
Select Case sAction
	Case "S": ' Get Search Criteria

	' Build search string for advanced search, remove blank field
	sSrchStr = ""

	' Field chapter_pkey
	x_chapter_pkey = Request.Form("x_chapter_pkey")
	z_chapter_pkey = Request.Form("z_chapter_pkey")
	sSrchWrk = ""
	If x_chapter_pkey <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_pkey=" & Server.URLEncode(x_chapter_pkey)
		sSrchWrk = sSrchWrk & "&z_chapter_pkey=" & Server.URLEncode(z_chapter_pkey)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_FFAid
	x_chapter_FFAid = Request.Form("x_chapter_FFAid")
	z_chapter_FFAid = Request.Form("z_chapter_FFAid")
	sSrchWrk = ""
	If x_chapter_FFAid <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_FFAid=" & Server.URLEncode(x_chapter_FFAid)
		sSrchWrk = sSrchWrk & "&z_chapter_FFAid=" & Server.URLEncode(z_chapter_FFAid)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolname
	x_chapter_schoolname = Request.Form("x_chapter_schoolname")
	z_chapter_schoolname = Request.Form("z_chapter_schoolname")
	sSrchWrk = ""
	If x_chapter_schoolname <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolname=" & Server.URLEncode(x_chapter_schoolname)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolname=" & Server.URLEncode(z_chapter_schoolname)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schooladdress1
	x_chapter_schooladdress1 = Request.Form("x_chapter_schooladdress1")
	z_chapter_schooladdress1 = Request.Form("z_chapter_schooladdress1")
	sSrchWrk = ""
	If x_chapter_schooladdress1 <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schooladdress1=" & Server.URLEncode(x_chapter_schooladdress1)
		sSrchWrk = sSrchWrk & "&z_chapter_schooladdress1=" & Server.URLEncode(z_chapter_schooladdress1)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schooladdress2
	x_chapter_schooladdress2 = Request.Form("x_chapter_schooladdress2")
	z_chapter_schooladdress2 = Request.Form("z_chapter_schooladdress2")
	sSrchWrk = ""
	If x_chapter_schooladdress2 <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schooladdress2=" & Server.URLEncode(x_chapter_schooladdress2)
		sSrchWrk = sSrchWrk & "&z_chapter_schooladdress2=" & Server.URLEncode(z_chapter_schooladdress2)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schooladdress3
	x_chapter_schooladdress3 = Request.Form("x_chapter_schooladdress3")
	z_chapter_schooladdress3 = Request.Form("z_chapter_schooladdress3")
	sSrchWrk = ""
	If x_chapter_schooladdress3 <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schooladdress3=" & Server.URLEncode(x_chapter_schooladdress3)
		sSrchWrk = sSrchWrk & "&z_chapter_schooladdress3=" & Server.URLEncode(z_chapter_schooladdress3)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolcity
	x_chapter_schoolcity = Request.Form("x_chapter_schoolcity")
	z_chapter_schoolcity = Request.Form("z_chapter_schoolcity")
	sSrchWrk = ""
	If x_chapter_schoolcity <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolcity=" & Server.URLEncode(x_chapter_schoolcity)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolcity=" & Server.URLEncode(z_chapter_schoolcity)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolstate
	x_chapter_schoolstate = Request.Form("x_chapter_schoolstate")
	z_chapter_schoolstate = Request.Form("z_chapter_schoolstate")
	sSrchWrk = ""
	If x_chapter_schoolstate <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolstate=" & Server.URLEncode(x_chapter_schoolstate)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolstate=" & Server.URLEncode(z_chapter_schoolstate)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolzipcode
	x_chapter_schoolzipcode = Request.Form("x_chapter_schoolzipcode")
	z_chapter_schoolzipcode = Request.Form("z_chapter_schoolzipcode")
	sSrchWrk = ""
	If x_chapter_schoolzipcode <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolzipcode=" & Server.URLEncode(x_chapter_schoolzipcode)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolzipcode=" & Server.URLEncode(z_chapter_schoolzipcode)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schoolzipcode4
	x_chapter_schoolzipcode4 = Request.Form("x_chapter_schoolzipcode4")
	z_chapter_schoolzipcode4 = Request.Form("z_chapter_schoolzipcode4")
	sSrchWrk = ""
	If x_chapter_schoolzipcode4 <> "" Then
		sSrchWrk = sSrchWrk & "x_chapter_schoolzipcode4=" & Server.URLEncode(x_chapter_schoolzipcode4)
		sSrchWrk = sSrchWrk & "&z_chapter_schoolzipcode4=" & Server.URLEncode(z_chapter_schoolzipcode4)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field chapter_schooladvisor
	x_chapter_schooladvisor = Request.Form("x_chapter_schooladvisor")
	z_chapter_schooladvisor = Request.ion] FROM [regions]"
sSqlWrk = sSqlWrk & " ORDER BY [region_description] Asc"
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sSqlWrk, conn
If Not rswrk.Eof Then
	datawrk = rswrk.GetRows
	rowswrk = UBound(datawrk, 2)
	For rowcntwrk = 0 To rowswrk
		lst_x_chapter_region = lst_x_chapter_region & "<option value='" & datawrk(0, rowcntwrk) & "'"
		If CStr(datawrk(0, rowcntwrk)&"") = CStr(x_chapter_region&"") Then
			lst_x_chapter_region = lst_x_chapter_region & " selected"
		End If
		lst_x_chapter_region = lst_x_chapter_region & ">" & datawrk(1, rowcntwrk) & "</option>"
	Next
End If
rswrk.Close
Set rswrk = Nothing
lst_x_chapter_region = lst_x_chapter_region & "</select>"
Response.Write lst_x_chapter_region
%>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Website</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_website" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<input type="text" name="x_chapter_website" id="x_chapter_website" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_chapter_website&"") %>">
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Email</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_email" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<input type="text" name="x_chapter_email" id="x_chapter_email" size="30" maxlength="50" value="<%= Server.HTMLEncode(x_chapter_email&"") %>">
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Theme</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">=<input type="hidden" name="z_chapter_theme" value="=,,"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<%
lst_x_chapter_theme = "<select id='x_chapter_theme' name='x_chapter_theme'>"
lst_x_chapter_theme = lst_x_chapter_theme & "<option value=''>Please Select</option>"
sSqlWrk = "SELECT [theme_pkey], [theme_description] FROM [themes]"
sSqlWrk = sSqlWrk & " ORDER BY [theme_description] Asc"
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sSqlWrk, conn
If Not rswrk.Eof Then
	datawrk = rswrk.GetRows
	rowswrk = UBound(datawrk, 2)
	For rowcntwrk = 0 To rowswrk
		lst_x_chapter_theme = lst_x_chapter_theme & "<option value='" & datawrk(0, rowcntwrk) & "'"
		If CStr(datawrk(0, rowcntwrk)&"") = CStr(x_chapter_theme&"") Then
			lst_x_chapter_theme = lst_x_chapter_theme & " selected"
		End If
		lst_x_chapter_theme = lst_x_chapter_theme & ">" & datawrk(1, rowcntwrk) & "</option>"
	Next
End If
rswrk.Close
Set rswrk = Nothing
lst_x_chapter_theme = lst_x_chapter_theme & "</select>"
Response.Write lst_x_chapter_theme
%>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Bio</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_bio" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="35" rows="4" id="x_chapter_bio" name="x_chapter_bio"><%= x_chapter_bio %></textarea>
<script type="text/javascript">
<!--
var editor = new EW_DHTMLEditor("x_chapter_bio");
editor.create = function() {
	var sBasePath = 'fckeditor/';
	var oFCKeditor = new FCKeditor('x_chapter_bio', 35*_width_multiplier, 4*_height_multiplier);
	oFCKeditor.BasePath = sBasePath;
	oFCKeditor.ReplaceTextarea();
	this.active = true;
}
EW_DHTMLEditors[EW_DHTMLEditors.length] = editor;
-->
</script>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Links</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_links" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="30" rows="5" id="x_chapter_links" name="x_chapter_links"><%= x_chapter_links %></textarea>
<script type="text/javascript">
<!--
var editor = new EW_DHTMLEditor("x_chapter_links");
editor.create = function() {
	var sBasePath = 'fckeditor/';
	var oFCKeditor = new FCKeditor('x_chapter_links', 30*_width_multiplier, 5*_height_multiplier);
	oFCKeditor.BasePath = sBasePath;
	oFCKeditor.ReplaceTextarea();
	this.active = true;
}
EW_DHTMLEditors[EW_DHTMLEditors.length] = editor;
-->
</script>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Officers</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_officers" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="30" rows="5" id="x_chapter_officers" name="x_chapter_officers"><%= x_chapter_officers %></textarea>
<script type="text/javascript">
<!--
var editor = new EW_DHTMLEditor("x_chapter_officers");
editor.create = function() {
	var sBasePath = 'fckeditor/';
	var oFCKeditor = new FCKeditor('x_chapter_officers', 30*_width_multiplier, 5*_height_multiplier);
	oFCKeditor.BasePath = sBasePath;
	oFCKeditor.ReplaceTextarea();
	this.active = true;
}
EW_DHTMLEditors[EW_DHTMLEditors.length] = editor;
-->
</script>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Advisors</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_advisors" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="30" rows="5" id="x_chapter_advisors" name="x_chapter_advisors"><%= x_chapter_advisors %></textarea>
<script type="text/javascript">
<!--
var editor = new EW_DHTMLEditor("x_chapter_advisors");
editor.create = function() {
	var sBasePath = 'fckeditor/';
	var oFCKeditor = new FCKeditor('x_chapter_advisors', 30*_width_multiplier, 5*_height_multiplier);
	oFCKeditor.BasePath = sBasePath;
	oFCKeditor.ReplaceTextarea();
	this.active = true;
}
EW_DHTMLEditors[EW_DHTMLEditors.length] = editor;
-->
</script>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Courses</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_courses" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="30" rows="5" id="x_chapter_courses" name="x_chapter_courses"><%= x_chapter_courses %></textarea>
<script type="text/javascript">
<!--
var editor = new EW_DHTMLEditor("x_chapter_courses");
editor.create = function() {
	var sBasePath = 'fckeditor/';
	var oFCKeditor = new FCKeditor('x_chapter_courses', 30*_width_multiplier, 5*_height_multiplier);
	oFCKeditor.BasePath = sBasePath;
	oFCKeditor.ReplaceTextarea();
	this.active = true;
}
EW_DHTMLEditors[EW_DHTMLEditors.length] = editor;
-->
</script>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>News</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_news" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="30" rows="5" id="x_chapter_news" name="x_chapter_news"><%= x_chapter_news %></textarea>
<script type="text/javascript">
<!--
var editor = new EW_DHTMLEditor("x_chapter_news");
editor.create = function() {
	var sBasePath = 'fckeditor/';
	var oFCKeditor = new FCKeditor('x_chapter_news', 30*_width_multiplier, 5*_height_multiplier);
	oFCKeditor.BasePath = sBasePath;
	oFCKeditor.ReplaceTextarea();
	this.active = true;
}
EW_DHTMLEditors[EW_DHTMLEditors.length] = editor;
-->
</script>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Events</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_chapter_events" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="30" rows="5" id="x_chapter_events" name="x_chapter_events"><%= x_chapter_events %></textarea>
<script type="text/javascript">
<!--
var editor = new EW_DHTMLEditor("x_chapter_events");
editor.create = function() {
	var sBasePath = 'fckeditor/';
	var oFCKeditor = new FCKeditor('x_chapter_events', 30*_width_multiplier, 5*_height_multiplier);
	oFCKeditor.BasePath = sBasePath;
	oFCKeditor.ReplaceTextarea();
	this.active = true;
}
EW_DHTMLEditors[EW_DHTMLEditors.length] = editor;
-->
</script>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>memberid</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">=<input type="hidden" name="z_memberid" value="=,,"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<input type="text" id="x_memberid" name="x_memberid" value="<%= x_memberid %>">
</span></td>
	</tr>
</table>
<p>
<input type="button" name="Action" value="Search" onClick="EW_submitForm(this.form);">
<input type="button" name="Reset" value="Reset" onclick="EW_clearForm(this.form);">
</form>
<script type="text/javascript">
<!--
EW_createEditor();  // Create DHTML editor(s)
//-->
</script>
<!--#include file="footer.asp"-->
<%
conn.Close ' Close Connection
Set conn = Nothing
%>