<!--#include file="ewconfig.asp"-->
<!--#include file="db.asp"-->
<!--#include file="chapterinfo.asp"-->
<!--#include file="advsecu.asp"-->
<!--#include file="aspmkrfn.asp"-->
<!--#include file="ewupload.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 ewAllowList) <> ewAllowList Then Response.Redirect "login.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
%>
<%
sExport = Request.QueryString("export") ' Load Export Request
If sExport = "html" Then

	' Printer Friendly
End If
If sExport = "excel" Then
	Response.ContentType = "application/vnd.ms-excel"
	Response.AddHeader "Content-Disposition", "attachment; filename=" & ewTblVar & ".xls"
End If
If sExport = "word" Then
	Response.ContentType = "application/vnd.ms-word"
	Response.AddHeader "Content-Disposition:", "attachment; filename=" & ewTblVar & ".doc"
End If
%>
<%
nStartRec = 0
nStopRec = 0
nTotalRecs = 0
nRecCount = 0
nRecActual = 0
sDbWhereMaster = ""
sDbWhereDetail = ""
sSrchAdvanced = ""
psearch = ""
psearchtype = ""
sSrchBasic = ""
sSrchWhere = ""
sDbWhere = ""
sOrderBy = ""
sSqlMaster = ""
sDeleteConfirmMsg = "Do you want to delete the selected records?"
nDisplayRecs = 20
nRecRange = 10

' Open connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

' Handle Reset Command
ResetCmd()

' Get Search Criteria for Advanced Search
SetUpAdvancedSearch()

' Get Search Criteria for Basic Search
SetUpBasicSearch()

' Build Search Criteria
If sSrchAdvanced <> "" Then
	If sSrchWhere <> "" Then sSrchWhere = sSrchWhere & " AND "
	sSrchWhere = sSrchWhere & "(" & sSrchAdvanced & ")"
End If
If sSrchBasic <> "" Then
	If sSrchWhere <> "" Then sSrchWhere = sSrchWhere & " AND "
	sSrchWhere = sSrchWhere & "(" & sSrchBasic & ")"
End If

' Save Search Criteria
If sSrchWhere <> "" Then
	Session(ewSessionTblSearchWhere) = sSrchWhere
	nStartRec = 1 ' reset start record counter
	Session(ewSessionTblStartRec) = nStartRec
Else
	sSrchWhere = Session(ewSessionTblSearchWhere)
	Call RestoreSearch()
End If

' Build Filter condition
sDbWhere = ""
If (ewCurSec And ewAllowList) <> ewAllowList Then
	sDbWhere = "(0=1)"
End If
If CurrentUserID <> "-1" And CurrentUserID <> "" Then ' Non system admin
	If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND "

'***	sDbWhere = sDbWhere & Replace(ewSqlUserIDFilter, "#UserID", AdjustSql(CurrentUserID))
	sDbWhere = sDbWhere & ewSqlUserIDFilter
	sDbWhere = Replace(sDbWhere, "#Key", "[memberid]")
	sDbWhere = Replace(sDbWhere, "#UserID", AdjustSql(CurrentUserID))
End If
If sDbWhereDetail <> "" Then
	If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND "
	sDbWhere = sDbWhere & "(" & sDbWhereDetail & ")"
End If
If sSrchWhere <> "" Then
	If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND "
	sDbWhere = sDbWhere & "(" & sSrchWhere & ")"
End If

' Set Up Sorting Order
sOrderBy = ""
SetUpSortOrder()

' Set up SQL
sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sDbWhere, sOrderBy)

'Response.Write sSql ' Uncomment to show SQL for debugging
%>
<% If sExport <> "word" And sExport <> "excel" Then %>
<!--#include file="header.asp"-->
<script type="text/javascript">
<!--
EW_LookupFn = "ewlookup.asp"; // ewlookup file name
EW_AddOptFn = "ewaddopt.asp"; // ewaddopt.asp file name
//-->
</script>
<script type="text/javascript" src="ew.js"></script>
<script type="text/javascript">
<!--
EW_dateSep = "/"; // set date separator
EW_UploadAllowedFileExt = "gif,jpg,jpeg,bmp"; // allowd upload file extension
//-->
</script>
<script type="text/javascript">
<!--
var firstrowoffset = 1; // first data row start at
var tablename = 'ewlistmain'; // table name
var usecss = true; // use css
//var usecss = false; // use css
var rowclass = 'ewTableRow'; // row class
var rowaltclass = 'ewTableAltRow'; // row alternate class
var rowmoverclass = 'ewTableHighlightRow'; // row mouse over class
var rowselectedclass = 'ewTableSelectRow'; // row selected class
var roweditclass = 'ewTableEditRow'; // row edit class
var rowcolor = '#FFFFFF'; // row color
var rowaltcolor = '#F5F5F5'; // row alternate color
var rowmovercolor = '#FFCCFF'; // row mouse over color
var rowselectedcolor = '#CCFFFF'; // row selected color
var roweditcolor = '#FFFF99'; // row edit color
//-->
</script>
<script type="text/javascript">
<!--
var EW_DHTMLEditors = [];
//-->
</script>
<script type="text/javascript">
<!--
function EW_selectKey(elem) {
	var f = elem.form;	
	if (!f.key_d) return;
	if (f.key_d[0]) {
		for (var i=0; i<f.key_d.length; i++)
			f.key_d[i].checked = elem.checked;	
	} else {
		f.key_d.checked = elem.checked;	
	}
	ew_clickall(elem);
}
function EW_selected(elem) {
	var f = elem.form;	
	if (!f.key_d) return false;
	if (f.key_d[0]) {
		for (var i=0; i<f.key_d.length; i++)
			if (f.key_d[i].checked) return true;
	} else {
		return f.key_d.checked;
	}
	return false;
}
//-->
</script>
<% End If %>
<%

' Set up Record Set
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 2
rs.Open sSql, conn, 1, 2
nTotalRecs = rs.RecordCount
If nDisplayRecs <= 0 Then ' Display All Records
	nDisplayRecs = nTotalRecs
End If
nStartRec = 1
SetUpStartRec() ' Set Up Start Record Position
%>
<p><span class="aspmaker">TABLE: chapter
<% If sExport = "" Then %>
&nbsp;&nbsp;<a href="chapterlist.asp?export=html">Printer Friendly</a>
&nbsp;&nbsp;<a href="chapterlist.asp?export=excel">Export to Excel</a>
&nbsp;&nbsp;<a href="chapterlist.asp?export=word">Export to Word</a>
<% End If %>
</span></p>
<% If sExport = "" Then %>
<form id="fchapterlistsrch" name="fchapterlistsrch" action="chapterlist.asp" >
<table class="ewBasicSearch">
	<tr>
		<td><span class="aspmaker">
			<input type="text" name="<%=ewTblBasicSrch%>" size="20" value="<%=psearch%>">
			<input type="Submit" name="Submit" value="Search&nbsp;(*)">&nbsp;<input type="Button" name="Reset" value="Reset" onclick="EW_clearForm(this.form);this.form.<%=ewTblBasicSrchType%>[0].checked = true;">&nbsp;
			<a href="chapterlist.asp?cmd=reset">Show all</a>&nbsp;
			<a href="chaptersrch.asp">Advanced Search</a>
		</span></td>
	</tr>
	<tr>
	<td><span class="aspmaker"><input type="radio" name="<%=ewTblBasicSrchType%>" value="" <% If psearchtype = "" Then %>checked<% End If %>>Exact phrase&nbsp;&nbsp;<input type="radio" name="<%=ewTblBasicSrchType%>" value="AND" <% If psearchtype = "AND" Then %>checked<% End If %>>All words&nbsp;&nbsp;<input type="radio" name="<%=ewTblBasicSrchType%>" value="OR" <% If psearchtype = "OR" Then %>checked<% End If %>>Any word</span></td>
	</tr>
</table>
</form>
<% End If %>
<% If (ewCurSec And ewAllowAdd) = ewAllowAdd Then %>
<% If sExport = "" Then %>
<table class="ewListAdd">
	<tr>
		<td><span class="aspmaker"><a href="chapteradd.asp">Add</a></span></td>
	</tr>
</table>
<p>
<% End If %>
<% End If %>
<%
If Session(ewSessionMessage) <> "" Then
%>
<p><span class="ewmsg"><%= Session(ewSessionMessage) %></span></p>
<%
	Session(ewSessionMessage) = "" ' Clear message
End If
%>
<% If nTotalRecs > 0 Then %>
<form method="post">
<table id="ewlistmain" class="ewTable">
	<!-- Table header -->
	<tr class="ewTableHeader">
		<td valign="top"><span>
<% If sExport <> "" Then %>
ID
<% Else %>
	<a href="chapterlist.asp?order=<%= Server.URLEncode("chapter_pkey") %>">ID<% If Session(ewSessionTblSort & "_x_chapter_pkey") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_chapter_pkey") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
<% End If %>
		</span></td>
		<td valign="top"><span>
<% If sExport <> "" Then %>
School Name
<% Else %>
	<a href="chapterlist.asp?order=<%= Server.URLEncode("chapter_schoolname") %>">School Name&nbsp;(*)<% If Session(ewSessionTblSort & "_x_chapter_schoolname") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_chapter_schoolname") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
<% End If %>
		</span></td>
		<td valign="top"><span>
<% If sExport <> "" Then %>
City
<% Else %>
	<a href="chapterlist.asp?order=<%= Server.URLEncode("chapter_schoolcity") %>">City&nbsp;(*)<% If Session(ewSessionTblSort & "_x_chapter_schoolcity") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_chapter_schoolcity") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
<% End If %>
		</span></td>
		<td valign="top"><span>
<% If sExport <> "" Then %>
Region
<% Else %>
	<a href="chapterlist.asp?order=<%= Server.URLEncode("chapter_region") %>">Region<% If Session(ewSessionTblSort & "_x_chapter_region") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_chapter_region") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
<% End If %>
		</span></td>
<% If sExport = "" Then %>
<% If (ewCurSec And ewAllowView) = ewAllowView Then %>
<td>&nbsp;</td>
<% End If %>
<% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %>
<td>&nbsp;</td>
<% End If %>
<% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %>
<td><input type="checkbox" class="aspmaker" onClick="EW_selectKey(this);"></td>
<% End If %>
<% End If %>
	</tr>
<%

' Set the last record to display
nStopRec = nStartRec + nDisplayRecs - 1

' Move to first record directly for performance reason
nRecCount = nStartRec - 1
If Not rs.Eof Then
	rs.MoveFirst
	rs.Move nStartRec - 1
End If
nRecActual = 0
Do While (Not rs.Eof) And (nRecCount < nStopRec)
	nRecCount = nRecCount + 1
	If CLng(nRecCount) >= CLng(nStartRec) Then
		nRecActual = nRecActual + 1

	' Set row color
	sItemRowClass = " class=""ewTableRow"""
	sListTrJs = " onmouseover='ew_mouseover(this);' onmouseout='ew_mouseout(this);' onclick='ew_click(this);'"

	' Display alternate color for rows
	If nRecCount Mod 2 <> 1 Then
		sItemRowClass = " class=""ewTableAltRow"""
	End If
	x_chapter_pkey = rs("chapter_pkey")
	x_chapter_FFAid = rs("chapter_FFAid")
	x_chapter_schoolname = rs("chapter_schoolname")
	x_chapter_schooladdress1 = rs("chapter_schooladdress1")
	x_chapter_schooladdress2 = rs("chapter_schooladdress2")
	x_chapter_schooladdress3 = rs("chapter_schooladdress3")
	x_chapter_schoolcity = rs("chapter_schoolcity")
	x_chapter_schoolstate = rs("chapter_schoolstate")
	x_chapter_schoolzipcode = rs("chapter_schoolzipcode")
	x_chapter_schoolzipcode4 = rs("chapter_schoolzipcode4")
	x_chapter_schooladvisor = rs("chapter_schooladvisor")
	x_chapter_region = rs("chapter_region")
	x_chapter_website = rs("chapter_website")
	x_chapter_email = rs("chapter_email")
	x_chapter_picture = rs("chapter_picture")
	x_chapter_picturename = rs("chapter_picturename")
	x_chapter_picturetype = rs("chapter_picturetype")
	x_chapter_theme = rs("chapter_theme")
	x_chapter_bio = rs("chapter_bio")
	x_chapter_links = rs("chapter_links")
	x_chapter_officers = rs("chapter_officers")
	x_chapter_advisors = rs("chapter_advisors")
	x_chapter_courses = rs("chapter_courses")
	x_chapter_news = rs("chapter_news")
	x_chapter_events = rs("chapter_events")
	x_memberid = rs("memberid")
%>
	<!-- Table body -->
	<tr<%=sItemRowClass%><%=sListTrJs%>>
		<!-- chapter_pkey -->
		<td><span>
<% Response.Write x_chapter_pkey %>
</span></td>
		<!-- chapter_schoolname -->
		<td><span>
<% Response.Write x_chapter_schoolname %>
</span></td>
		<!-- chapter_schoolcity -->
		<td><span>
<% Response.Write x_chapter_schoolcity %>
</span></td>
		<!-- chapter_region -->
		<td><span>
<%
If Not IsNull(x_chapter_region) Then
	sSqlWrk = "SELECT [region_description] FROM [regions]"
	sTmp = x_chapter_region
	sSqlWrk = sSqlWrk & " WHERE [region_pkey] = " & AdjustSql(sTmp) & ""
	sSqlWrk = sSqlWrk & " ORDER BY [region_description] Asc"
	Set rswrk = conn.Execute(sSqlWrk)
	If Not rswrk.Eof Then
		sTmp = rswrk("region_description")
	End If
	rswrk.Close
	Set rswrk = Nothing
Else
	sTmp = Null
End If
ox_chapter_region = x_chapter_region ' Backup Original Value
x_chapter_region = sTmp
%>
<% Response.Write x_chapter_region %>
<% x_chapter_region = ox_chapter_region ' Restore Original Value %>
</span></td>
<% If sExport = "" Then %>
<% If (ewCurSec And ewAllowView) = ewAllowView Then %>
<td><span class="aspmaker"><a href="<% If Not IsNull(x_chapter_pkey) Then Response.Write "chapterview_process.asp?chapter_pkey=" & Server.URLEncode(x_chapter_pkey) Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>">View</a></span></td>
<% End If %>
<% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %>
<td><span class="aspmaker"><a href="<% If Not IsNull(x_chapter_pkey) Then Response.Write "chapteredit.asp?chapter_pkey=" & Server.URLEncode(x_chapter_pkey) Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>">Edit</a></span></td>
<% End If %>
<% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %>
<td><span class="aspmaker"><input type="checkbox" name="key_d" value="<%= x_chapter_pkey %>" class="aspmaker" onclick='ew_clickmultidelete(this);'>Delete</span></td>
<% End If %>
<% End If %>
	</tr>
<%
	End If
	rs.MoveNext
Loop
%>
</table>
<% If sExport = "" Then %>
<% If nRecActual > 0 Then %>
<% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %>
<p>
<input type="button" name="btndelete" value="DELETE SELECTED" onClick="if (!EW_selected(this)) alert('No records selected'); else if (ew_confirm('<%=sDeleteConfirmMsg%>')) {this.form.action='chapterdelete.asp';this.form.encoding='application/x-www-form-urlencoded';this.form.submit();}">
<p>
<% End If %>
<% End If %>
<% End If %>
</form>
<% End If %>
<%

' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<% If sExport = "" Then %>
<form action="chapterlist.asp" name="ewpagerform" id="ewpagerform">
<table border="0" cellspacing="0" cellpadding="0">
	<tr>
		<td nowrap>
<span class="aspmaker">
<%

' Display page numbers
If nTotalRecs > 0 Then
	rsEof = (nTotalRecs < (nStartRec + nDisplayRecs))
	If CLng(nTotalRecs) > CLng(nDisplayRecs) Then

		' Find out if there should be Backward or Forward Buttons on the TABLE.
		If 	nStartRec = 1 Then
			isPrev = False
		Else
			isPrev = True
			PrevStart = nStartRec - nDisplayRecs
			If PrevStart < 1 Then PrevStart = 1 %>
		<a href="chapterlist.asp?start=<%=PrevStart%>"><b>Prev</b></a>
		<%
		End If
		If (isPrev Or (Not rsEof)) Then
			x = 1
			y = 1
			dx1 = ((nStartRec-1)\(nDisplayRecs*nRecRange))*nDisplayRecs*nRecRange+1
			dy1 = ((nStartRec-1)\(nDisplayRecs*nRecRange))*nRecRange+1
			If (dx1+nDisplayRecs*nRecRange-1) > nTotalRecs Then
				dx2 = (nTotalRecs\nDisplayRecs)*nDisplayRecs+1
				dy2 = (nTotalRecs\nDisplayRecs)+1
			Else
				dx2 = dx1+nDisplayRecs*nRecRange-1
				dy2 = dy1+nRecRange-1
			End If
			While x <= nTotalRecs
				If x >= dx1 And x <= dx2 Then
					If CLng(nStartRec) = CLng(x) Then %>
		<b><%=y%></b>
					<%	Else %>
		<a href="chapterlist.asp?start=<%=x%>"><b><%=y%></b></a>
					<%	End If
					x = x + nDisplayRecs
					y = y + 1
				ElseIf x >= (dx1-nDisplayRecs*nRecRange) And x <= (dx2+nDisplayRecs*nRecRange) Then
					If x+nRecRange*nDisplayRecs < nTotalRecs Then %>
		<a href="chapterlist.asp?start=<%=x%>"><b><%=y%>-<%=y+nRecRange-1%></b></a>
					<% Else
						ny=(nTotalRecs-1)\nDisplayRecs+1
							If ny = y Then %>
		<a href="chapterlist.asp?start=<%=x%>"><b><%=y%></b></a>
							<% Else %>
		<a href="chapterlist.asp?start=<%=x%>"><b><%=y%>-<%=ny%></b></a>
							<%	End If
					End If
					x=x+nRecRange*nDisplayRecs
					y=y+nRecRange
				Else
					x=x+nRecRange*nDisplayRecs
					y=y+nRecRange
				End If
			Wend
		End If

		' Next link
		If NOT rsEof Then
			NextStart = nStartRec + nDisplayRecs
			isMore = True %>
		<a href="chapterlist.asp?start=<%=NextStart%>"><b>Next</b></a>
		<% Else
			isMore = False
		End If %>
		<br>
<%	End If
	If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs
	nStopRec = nStartRec + nDisplayRecs - 1
	nRecCount = nTotalRecs - 1
	If rsEof Then nRecCount = nTotalRecs
	If nStopRec > nRecCount Then nStopRec = nRecCount %>
	Records <%= nStartRec %> to <%= nStopRec %> of <%= nTotalRecs %>
<% Else %>
	<% If (ewCurSec And ewAllowList) = ewAllowList Then %>
	<% If sSrchWhere = "0=101" Then %>
	<% Else %>
	No records found
	<% End If %>
	<% Else %>
	You do not have the right permission to view the page
	<% End If %>
<% End If %>
</span>
		</td>
	</tr>
</table>
</form>
<% End If %>
<% If sExport = "" Then %>
<% End If %>
<% If sExport <> "word" And sExport <> "excel" Then %>
<!--#include file="footer.asp"-->
<% End If %>
<%

'-------------------------------------------------------------------------------
' Function SetUpAdvancedSearch
' - Set up Advanced Search parameter based on querystring parameters from Advanced Search Page
' - Variables setup: sSrchAdvanced

Sub SetUpAdvancedSearch()
	Dim arrFldOpr, arrFldOpr2, sSrchStr

	' Field chapter_pkey
	sSrchStr = ""
	x_chapter_pkey = Request.QueryString("x_chapter_pkey")
	z_chapter_pkey = Request.QueryString("z_chapter_pkey")
	arrFldOpr = Split(z_chapter_pkey, ",")
	If x_chapter_pkey <> "" And IsNumeric(x_chapter_pkey) And IsValidOpr(arrFldOpr) Then
		sSrchStr = sSrchStr & "[chapter_pkey] " & arrFldOpr(0) & " " & _
			arrFldOpr(1) & AdjustSql(x_chapter_pkey) & arrFldOpr(2)
	End If
	If sSrchStr <> "" Then
		If sSrchAdvanced <> "" Then sSrchAdvanced = sSrchAdvanced & " AND "
		sSrchAdvanced = sSrchAdvanced & "(" & sSrchStr & ")"
	End If

	' Field chapter_FFAid
	sSrchStr = ""
	x_chapter_FFAid = Request.QueryString("x_chapter_FFAid")
	z_chapter_FFAid = Request.QueryString("z_chapter_FFAid")
	arrFldOpr = Split(z_chapter_FFAid, ",")
	If x_chapter_FFAid <> "" And IsValidOpr(arrFldOpr) Then
		sSrchStr = sSrchStr & "[chapter_FFAid] " & arrFldOpr(0) & " " & _
			arrFldOpr(1) & AdjustSql(x_chapter_FFAid) & arrFldOpr(2)
	End If
	If sSrchStr <> "" Then
		If sSrchAdvanced <> "" Then sSrchAdvanced = sSrchAdvanced & " AND "
		sSrchAdvanced = sSrchAdvanced & "(" & sSrchStr & ")"
	End If

	' Field chapter_schoolname
	sSrchStr = ""
	x_chapter_schoolname = Request.QueryString("x_chapter_schoolname")
	z_chapter_schoolname = Request.QueryString("z_chapter_schoolname")
	arrFldOpr = Split(z_chapter_schoolname, ",")
	If x_chapter_schoolname <> "" And IsValidOpr(arrFldOpr) Then
		sSrchStr = sSrchStr & "[chapter_schoolname] " & arrFldOpr(0) & " " & _
			arrFldOpr(1) & AdjustSql(x_chapter_schoolname) & arrFldOpr(2)
	End If
	If sSrchStr <> "" Then
		If sSrchAdvanced <> "" Then sSrchAdvanced = sSrchAdvanced & " AND "
		sSrchAdvanced = sSrchAdvanced & "(" & sSrchStr & ")"
	End If

	' Field chapter_schooladdress1
	sSrchStr = ""
	x_chapter_schooladdress1 = Request.QueryString("x_chapter_schooladdress1")
	z_chapter_schooladdress1 = Request.QueryString("z_chapter_schooladdress1")
	arrFldOpr = Split(z_chapter_schooladdress1, ",")
	If x_chapter_schooladdress1 <> "" And IsValidOpr(arrFldOpr) Then
		sSrchStr = sSrchStr & "[chapter_schooladdress1] " & arrFldOpr(0) & " " & _
			arrFldOpr(1) & AdjustSql(x_chapter_schooladdress1) & arrFldOpr(2)
	End If
	If sSrchStr <> "" Then
		If sSrchAdvanced <> "" Then sSrchAdvanced = sSrchAdvanced & " AND "
		sSrchAdvanced = sSrchAdvanced & "(" & sSrchStr & ")"
	End If

	' Field chapter_schooladdress2
	sSrchStr = ""
	x_chapter_schooladdress2 = Request.QueryString("x_chapter_schooladdress2")
	z_chapter_schooladdress2 = Request.QueryString("z_chapter_schooladdress2")
	arrFldOpr = Split(z_chapter_schooladdress2, ",")
	If x_chapter_schooladdress2 <> "" And IsValidOpr(arrFldOpr) Then
		sSrchStr = sSrchStr & "[chapter_schooladdress2] " & arrFldOpr(0) & " " & _
			arrFldOpr(1) & AdjustSql(x_chapter_schooladdress2) & arrFldOpr(2)
	End If
	If sSrchStr <> "" Then
		If sSrchAdvanced <> "" Then sSrchAdvanced = sSrchAdvanced & " AND "
		sSrchAdvanced = sSrchAdvanced & "(" & sSrchStr & ")"
	End If

	' Field chapter_schooladdress3
	sSrchStr = ""
	x_chapter_schooladdress3 = Request.QueryString("x_chapter_schooladdress3")
	z_chapter_schooladdress3 = Request.QueryString("z_chapter_schooladdress3")
	arrFldOpr = Split(z_chapter_schooladdress3, ",")
	If x_chapter_schooladdress3 <> "" And IsValidOpr(arrFldOpr) Then
		sSrchStr = sSrchStr & "[chapter_schooladdress3] " & arrFldOpr(0) & " " & _
			arrFldOpr(1) & AdjustSql(x_chapter_schooladdress3) & arrFldOpr(2)
	End If
	If sSrchStr <> "" Then
		If sSrchAdvanced <> "" Then sSrchAdvanced = sSrchAdvanced & " AND "
		sSrchAdvanced = sSrchAdvanced & "(" & sSrchStr & ")"
	End If

	' Field chapter_schoolcity
	sSrchStr = ""
	x_chapter_schoolcity = Request.QueryString("x_chapter_schoolcity")
	z_chapter_schoolcity = Request.QueryString("z_chapter_schoolcity")
	arrFldOpr = Split(z_chapter_schoolcity, ",")
	If x_chapter_schoolcity <> "" And IsValidOpr<!--#include file="ewconfig.asp"-->
<!--#include file="db.asp"-->
<!--#include file="chapterinfo.asp"-->
<!--#include file="advsecu.asp"-->
<!--#include file="aspmkrfn.asp"-->
<!--#include file="ewupload.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 ewAllowList) <> ewAllowList Then Response.Redirect "login.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
%>
<%
sExport = Request.QueryString("export") ' Load Export Request
If sExport = "html" Then

	' Printer Friendly
End If
If sExport = "excel" Then
	Response.ContentType = "application/vnd.ms-excel"
	Response.AddHeader "Content-Disposition", "attachment; filename=" & ewTblVar & ".xls"
End If
If sExport = "word" Then
	Response.ContentType = "application/vnd.ms-word"
	Response.AddHeader "Content-Disposition:", "attachment; filename=" & ewTblVar & ".doc"
End If
%>
<%
nStartRec = 0
nStopRec = 0
nTotalRecs = 0
nRecCount = 0
nRecActual = 0
sDbWhereMaster = ""
sDbWhereDetail = ""
sSrchAdvanced = ""
psearch = ""
psearchtype = ""
sSrchBasic = ""
sSrchWhere = ""
sDbWhere = ""
sOrderBy = ""
sSqlMaster = ""
sDeleteConfirmMsg = "Do you want to delete the selected records?"
nDisplayRecs = 20
nRecRange = 10

' Open connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

' Handle Reset Command
ResetCmd()

' Get Search Criteria for Advanced Search
SetUpAdvancedSearch()

' Get Search Criteria for Basic Search
SetUpBasicSearch()

' Build Search Criteria
If sSrchAdvanced <> "" Then
	If sSrchWhere <> "" Then sSrchWhere = sSrchWhere & " AND "
	sSrchWhere = sSrchWhere & "(" & sSrchAdvanced & ")"
End If
If sSrchBasic <> "" Then
	If sSrchWhere <> "" Then sSrchWhere = sSrchWhere & " AND "
	sSrchWhere = sSrchWhere & "(" & sSrchBasic & ")"
End If

' Save Search Criteria
If sSrchWhere <> "" Then
	Session(ewSessionTblSearchWhere) = sSrchWhere
	nStartRec = 1 ' reset start record counter
	Session(ewSessionTblStartRec) = nStartRec
Else
	sSrchWhere = Session(ewSessionTblSearchWhere)
	Call RestoreSearch()
End If

' Build Filter condition
sDbWhere = ""
If (ewCurSec And ewAllowList) <> ewAllowList Then
	sDbWhere = "(0=1)"
End If
If CurrentUserID <> "-1" And CurrentUserID <> "" Then ' Non system admin
	If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND "

'***	sDbWhere = sDbWhere & Replace(ewSqlUserIDFilter, "#UserID", AdjustSql(CurrentUserID))
	sDbWhere = sDbWhere & ewSqlUserIDFilter
	sDbWhere = Replace(sDbWhere, "#Key", "[memberid]")
	sDbWhere = Replace(sDbWhere, "#UserID", AdjustSql(CurrentUserID))
End If
If sDbWhereDetail <> "" Then
	If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND "
	sDbWhere = sDbWhere & "(" & sDbWhereDetail & ")"
End If
If sSrchWhere <> "" Then
	If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND "
	sDbWhere = sDbWhere & "(" & sSrchWhere & ")"
End If

' Set Up Sorting Order
sOrderBy = ""
SetUpSortOrder()

' Set up SQL
sSql = ewBuildSql(ewSqlSelect, ewSqlWhere, ewSqlGroupBy, ewSqlHaving, ewSqlOrderBy, sDbWhere, sOrderBy)

'Response.Write sSql ' Uncomment to show SQL for debugging
%>
<% If sExport <> "word" And sExport <> "excel" Then %>
<!--#include file="header.asp"-->
<script type="text/javascript">
<!--
EW_LookupFn = "ewlookup.asp"; // ewlookup file name
EW_AddOptFn = "ewaddopt.asp"; // ewaddopt.asp file name
//-->
</script>
<script type="text/javascript" src="ew.js"></script>
<script type="text/javascript">
<!--
EW_dateSep = "/"; // set date separator
EW_UploadAllowedFileExt = "gif,jpg,jpeg,bmp"; // allowd upload file extension
//-->
</script>
<script type="text/javascript">
<!--
var firstrowoffset = 1; // first data row start at
var tablename = 'ewlistmain'; // table name
var usecss = true; // use css
//var usecss = false; // use css
var rowclass = 'ewTableRow'; // row class
var rowaltclass = 'ewTableAltRow'; // row alternate class
var rowmoverclass = 'ewTableHighlightRow'; // row mouse over class
var rowselectedclass = 'ewTableSelectRow'; // row selected class
var roweditclass = 'ewTableEditRow'; // row edit class
var rowcolor = '#FFFFFF'; // row color
var rowaltcolor = '#F5F5F5'; // row alternate color
var rowmovercolor = '#FFCCFF'; // row mouse over color
var rowselectedcolor = '#CCFFFF'; // row selected color
var roweditcolor = '#FFFF99'; // row edit color
//-->
</script>
<script type="text/javascript">
<!--
var EW_DHTMLEditors = [];
//-->
</script>
<script type="text/javascript">
<!--
function EW_selectKey(elem) {
	var f = elem.form;	
	if (!f.key_d) return;
	if (f.key_d[0]) {
		for (var i=0; i<f.key_d.length; i++)
			f.key_d[i].checked = elem.checked;	
	} else {
		f.key_d.checked = elem.checked;	
	}
	ew_clickall(elem);
}
function EW_selected(elem) {
	var f = elem.form;	
	if (!f.key_d) return false;
	if (f.key_d[0]) {
		for (var i=0; i<f.key_d.length; i++)
			if (f.key_d[i].checked) return true;
	} else {
		return f.key_d.checked;
	}
	return false;
}
//-->
</script>
<% End If %>
<%

' Set up Record Set
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 2
rs.Open sSql, conn, 1, 2
nTotalRecs = rs.RecordCount
If nDisplayRecs <= 0 Then ' Display All Records
	nDisplayRecs = nTotalRecs
End If
nStartRec = 1
SetUpStartRec() ' Set Up Start Record Position
%>
<p><span class="aspmaker">TABLE: chapter
<% If sExport = "" Then %>
&nbsp;&nbsp;<a href="chapterlist.asp?export=html">Printer Friendly</a>
&nbsp;&nbsp;<a href="chapterlist.asp?export=excel">Export to Excel</a>
&nbsp;&nbsp;<a href="chapterlist.asp?export=word">Export to Word</a>
<% End If %>
</span></p>
<% If sExport = "" Then %>
<form id="fchapterlistsrch" name="fchapterlistsrch" action="chapterlist.asp" >
<table class="ewBasicSearch">
	<tr>
		<td><span class="aspmaker">
			<input type="text" name="<%=ewTblBasicSrch%>" size="20" value="<%=psearch%>">
			<input type="Submit" name="Submit" value="Search&nbsp;(*)">&nbsp;<input type="Button" name="Reset" value="Reset" onclick="EW_clearForm(this.form);this.form.<%=ewTblBasicSrchType%>[0].checked = true;">&nbsp;
			<a href="chapterlist.asp?cmd=reset">Show all</a>&nbsp;
			<a href="chaptersrch.asp">Advanced Search</a>
		</span></td>
	</tr>
	<tr>
	<td><span class="aspmaker"><input type="radio" name="<%=ewTblBasicSrchType%>" value="" <% If psearchtype = "" Then %>checked<% End If %>>Exact phrase&nbsp;&nbsp;<input type="radio" name="<%=ewTblBasicSrchType%>" value="AND" <% If psearchtype = "AND" Then %>checked<% End If %>>All words&nbsp;&nbsp;<input type="radio" name="<%=ewTblBasicSrchType%>" value="OR" <% If psearchtype = "OR" Then %>checked<% End If %>>Any word</span></td>
	</tr>
</table>
</form>
<% End If %>
<% If (ewCurSec And ewAllowAdd) = ewAllowAdd Then %>
<% If sExport = "" Then %>
<table class="ewListAdd">
	<tr>
		<td><span class="aspmaker"><a href="chapteradd.asp">Add</a></span></td>
	</tr>
</table>
<p>
<% End If %>
<% End If %>
<%
If Session(ewSessionMessage) <> "" Then
%>
<p><span class="ewmsg"><%= Session(ewSessionMessage) %></span></p>
<%
	Session(ewSessionMessage) = "" ' Clear message
End If
%>
<% If nTotalRecs > 0 Then %>
<form method="post">
<table id="ewlistmain" class="ewTable">
	<!-- Table header -->
	<tr class="ewTableHeader">
		<td valign="top"><span>
<% If sExport <> "" Then %>
ID
<% Else %>
	<a href="chapterlist.asp?order=<%= Server.URLEncode("chapter_pkey") %>">ID<% If Session(ewSessionTblSort & "_x_chapter_pkey") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_chapter_pkey") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
<% End If %>
		</span></td>
		<td valign="top"><span>
<% If sExport <> "" Then %>
School Name
<% Else %>
	<a href="chapterlist.asp?order=<%= Server.URLEncode("chapter_schoolname") %>">School Name&nbsp;(*)<% If Session(ewSessionTblSort & "_x_chapter_schoolname") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_chapter_schoolname") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
<% End If %>
		</span></td>
		<td valign="top"><span>
<% If sExport <> "" Then %>
City
<% Else %>
	<a href="chapterlist.asp?order=<%= Server.URLEncode("chapter_schoolcity") %>">City&nbsp;(*)<% If Session(ewSessionTblSort & "_x_chapter_schoolcity") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_chapter_schoolcity") = "DESC" Then %><img src="images/sortdown.gif" width="10" height="9" border="0"><% End If %></a>
<% End If %>
		</span></td>
		<td valign="top"><span>
<% If sExport <> "" Then %>
Region
<% Else %>
	<a href="chapterlist.asp?order=<%= Server.URLEncode("chapter_region") %>">Region<% If Session(ewSessionTblSort & "_x_chapter_region") = "ASC" Then %><img src="images/sortup.gif" width="10" height="9" border="0"><% ElseIf Session(ewSessionTblSort & "_x_chapter_region") = "DESC" Thn BasicSearchSQL(Keyword)
	Dim sKeyword
	sKeyword = AdjustSql(Keyword)
	BasicSearchSQL = ""
	BasicSearchSQL = BasicSearchSQL & "[chapter_FFAid] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_schoolname] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_schooladdress1] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_schooladdress2] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_schooladdress3] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_schoolcity] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_schoolstate] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_schoolzipcode] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_schooladvisor] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_website] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_email] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_bio] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_links] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_officers] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_advisors] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_courses] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_news] LIKE '%" & sKeyword & "%' OR "
	BasicSearchSQL = BasicSearchSQL & "[chapter_events] LIKE '%" & sKeyword & "%' OR "
	If Right(BasicSearchSQL, 4) = " OR " Then BasicSearchSQL = Left(BasicSearchSQL, Len(BasicSearchSQL)-4)
End Function

'-------------------------------------------------------------------------------
' Function SetUpBasicSearch
' - Set up Basic Search parameter based on form elements pSearch & pSearchType
' - Variables setup: sSrchBasic

Sub SetUpBasicSearch()
	Dim arKeyword, sKeyword
	psearch = Request.QueryString(ewTblBasicSrch)
	psearchtype = Request.QueryString(ewTblBasicSrchType)
	If psearch <> "" Then
		If psearchtype <> "" Then
			While InStr(psearch, "  ") > 0
				sSearch = Replace(psearch, "  ", " ")
			Wend
			arKeyword = Split(Trim(psearch), " ")
			For Each sKeyword In arKeyword
				sSrchBasic = sSrchBasic & "(" & BasicSearchSQL(sKeyword) & ") " & psearchtype & " "
			Next
		Else
			sSrchBasic = BasicSearchSQL(psearch)
		End If
	End If
	If Right(sSrchBasic, 4) = " OR " Then sSrchBasic = Left(sSrchBasic, Len(sSrchBasic)-4)
	If Right(sSrchBasic, 5) = " AND " Then sSrchBasic = Left(sSrchBasic, Len(sSrchBasic)-5)
	If psearch <> "" then
		Session(ewSessionTblBasicSrch) = psearch
		Session(ewSessionTblBasicSrchType) = psearchtype
	End If
End Sub

'-------------------------------------------------------------------------------
' Function ResetSearch
' - Clear all search parameters
'

Sub ResetSearch()

	' Clear search where
	sSrchWhere = ""
	Session(ewSessionTblSearchWhere) = sSrchWhere

	' Clear advanced search parameters
	Session(ewSessionTblAdvSrch & "_x_chapter_pkey") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_FFAid") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schoolname") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schooladdress1") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schooladdress2") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schooladdress3") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schoolcity") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schoolstate") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schoolzipcode") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schoolzipcode4") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_schooladvisor") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_region") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_website") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_email") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_theme") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_bio") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_links") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_officers") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_advisors") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_courses") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_news") = ""
	Session(ewSessionTblAdvSrch & "_x_chapter_events") = ""
	Session(ewSessionTblAdvSrch & "_x_memberid") = ""
	Session(ewSessionTblBasicSrch) = ""
	Session(ewSessionTblBasicSrchType) = ""
End Sub

'-------------------------------------------------------------------------------
' Function RestoreSearch
' - Restore all search parameters
'

Sub RestoreSearch()

	' Restore advanced 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(ewSessionTblAdvSrch & "_x_chapter_courses")
	x_chapter_news = Session(ewSessionTblAdvSrch & "_x_chapter_news")
	x_chapter_events = Session(ewSessionTblAdvSrch & "_x_chapter_events")
	x_memberid = Session(ewSessionTblAdvSrch & "_x_memberid")
	psearch = Session(ewSessionTblBasicSrch)
	psearchtype = Session(ewSessionTblBasicSrchType)
End Sub

'-------------------------------------------------------------------------------
' Function SetUpSortOrder
' - Set up Sort parameters based on Sort Links clicked
' - Variables setup: sOrderBy, Session(TblOrderBy), Session(Tbl_Field_Sort)

Sub SetUpSortOrder()
	Dim sOrder, sSortField, sLastSort, sThisSort
	Dim bCtrl

	' Check for an Order parameter
	If Request.QueryString("order").Count > 0 Then
		sOrder = Request.QueryString("order")

		' Field [chapter_pkey]
		If sOrder = "chapter_pkey" Then
			sSortField = "[chapter_pkey]"
			sLastSort = Session(ewSessionTblSort & "_x_chapter_pkey")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session(ewSessionTblSort & "_x_chapter_pkey") = sThisSort
		Else
			If Session(ewSessionTblSort & "_x_chapter_pkey") <> "" Then Session(ewSessionTblSort & "_x_chapter_pkey") = ""
		End If

		' Field [chapter_schoolname]
		If sOrder = "chapter_schoolname" Then
			sSortField = "[chapter_schoolname]"
			sLastSort = Session(ewSessionTblSort & "_x_chapter_schoolname")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session(ewSessionTblSort & "_x_chapter_schoolname") = sThisSort
		Else
			If Session(ewSessionTblSort & "_x_chapter_schoolname") <> "" Then Session(ewSessionTblSort & "_x_chapter_schoolname") = ""
		End If

		' Field [chapter_schoolcity]
		If sOrder = "chapter_schoolcity" Then
			sSortField = "[chapter_schoolcity]"
			sLastSort = Session(ewSessionTblSort & "_x_chapter_schoolcity")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session(ewSessionTblSort & "_x_chapter_schoolcity") = sThisSort
		Else
			If Session(ewSessionTblSort & "_x_chapter_schoolcity") <> "" Then Session(ewSessionTblSort & "_x_chapter_schoolcity") = ""
		End If

		' Field [chapter_region]
		If sOrder = "chapter_region" Then
			sSortField = "[chapter_region]"
			sLastSort = Session(ewSessionTblSort & "_x_chapter_region")
			If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC"
			Session(ewSessionTblSort & "_x_chapter_region") = sThisSort
		Else
			If Session(ewSessionTblSort & "_x_chapter_region") <> "" Then Session(ewSessionTblSort & "_x_chapter_region") = ""
		End If
		Session(ewSessionTblOrderBy) = sSortField & " " & sThisSort
		Session(ewSessionTblStartRec) = 1
	End If
	sOrderBy = Session(ewSessionTblOrderBy)
	If sOrderBy = "" Then
		If ewSqlOrderBy <> "" And ewSqlOrderBySessions <> "" Then
			sOrderBy = ewSqlOrderBy
			Session(ewSessionTblOrderBy) = sOrderBy
			Dim arOrderBy, i
			arOrderBy = Split(ewSqlOrderBySessions, ",")
			For i = 0 to UBound(arOrderBy)\2
				Session(ewSessionTblSort & "_" & arOrderBy(i*2)) = arOrderBy(i*2+1)
			Next
		End If
	End If
End Sub

'-------------------------------------------------------------------------------
' Function SetUpStartRec
' - Set up Starting Record parameters based on Pager Navigation
' - Variables setup: nStartRec

Sub SetUpStartRec()
	Dim nPageNo

	' Check for a START parameter
	If Request.QueryString(ewTblStartRec).Count > 0 Then
		nStartRec = Request.QueryString(ewTblStartRec)
		Session(ewSessionTblStartRec) = nStartRec
	ElseIf Request.QueryString("pageno").Count > 0 Then
		nPageNo = Request.QueryString("pageno")
		If IsNumeric(nPageNo) Then
			nStartRec = (nPageNo-1)*nDisplayRecs+1
			If nStartRec <= 0 Then
				nStartRec = 1
			ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then
				nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1
			End If
			Session(ewSessionTblStartRec) = nStartRec
		Else
			nStartRec = Session(ewSessionTblStartRec)
		End If
	Else
		nStartRec = Session(ewSessionTblStartRec)
	End If

	' Check if correct start record counter
	If Not IsNumeric(nStartRec) Or nStartRec = "" Then ' Avoid invalid start record counter
		nStartRec = 1 ' Reset start record counter
		Session(ewSessionTblStartRec) = nStartRec
	ElseIf CLng(nStartRec) > CLng(nTotalRecs) Then ' Avoid starting record > total records
		nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 ' point to last page first record
		Session(ewSessionTblStartRec) = nStartRec
	End If
End Sub

'-------------------------------------------------------------------------------
' Function ResetCmd
' - Clear list page parameters
' - RESET: reset search parameters
' - RESETALL: reset search & master/detail parameters
' - RESETSORT: reset sort parameters

Sub ResetCmd()
	Dim sCmd

	' Get Reset Cmd
	If Request.QueryString("cmd").Count > 0 Then
		sCmd = Request.QueryString("cmd")

		' Reset Search Criteria
		If LCase(sCmd) = "reset" Then
			Call ResetSearch()

		' Reset Search Criteria & Session Keys
		ElseIf LCase(sCmd) = "resetall" Then
			Call ResetSearch()

		' Reset Sort Criteria
		ElseIf LCase(sCmd) = "resetsort" Then
			sOrderBy = ""
			Session(ewSessionTblOrderBy) = sOrderBy
			If Session(ewSessionTblSort & "_x_chapter_pkey") <> "" Then Session(ewSessionTblSort & "_x_chapter_pkey") = ""
			If Session(ewSessionTblSort & "_x_chapter_schoolname") <> "" Then Session(ewSessionTblSort & "_x_chapter_schoolname") = ""
			If Session(ewSessionTblSort & "_x_chapter_schoolcity") <> "" Then Session(ewSessionTblSort & "_x_chapter_schoolcity") = ""
			If Session(ewSessionTblSort & "_x_chapter_region") <> "" Then Session(ewSessionTblSort & "_x_chapter_region") = ""
		End If

		' Reset Start Position (Reset Command)
		nStartRec = 1
		Session(ewSessionTblStartRec) = nStartRec
	End If
End Sub
%>