<%@ LCID = 3081 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.addHeader "cache-control", "no-cache" Response.addHeader "cache-control", "no-store" Response.CacheControl = "no-cache" %> <% ewCurSec = 0 ' Initialise ' User levels Const ewAllowAdd = 1 Const ewAllowDelete = 2 Const ewAllowEdit = 4 Const ewAllowView = 8 Const ewAllowList = 8 Const ewAllowReport = 8 Const ewAllowSearch = 8 Const ewAllowAdmin = 16 %> <% ' Initialize common variables x_VENUE_CODE = Null: ox_VENUE_CODE = Null x_CREDITOR_CODE = Null: ox_CREDITOR_CODE = Null x_VENUE_NAME = Null: ox_VENUE_NAME = Null x_ADDRESS_1 = Null: ox_ADDRESS_1 = Null x_ADDRESS_2 = Null: ox_ADDRESS_2 = Null x_ADDRESS_3 = Null: ox_ADDRESS_3 = Null x_ADDRESS_4 = Null: ox_ADDRESS_4 = Null x_POST_CODE = Null: ox_POST_CODE = Null x_COUNTRY = Null: ox_COUNTRY = Null x_PHONE_NUMBER = Null: ox_PHONE_NUMBER = Null x_FAX_NUMBER = Null: ox_FAX_NUMBER = Null x_CONTACT_NAME = Null: ox_CONTACT_NAME = Null x_EMAIL_ADDRESS = Null: ox_EMAIL_ADDRESS = Null x_ROOM_NAME = Null: ox_ROOM_NAME = Null x_DFRECNUM = Null: ox_DFRECNUM = Null %> <% nStartRec = 0 nStopRec = 0 nTotalRecs = 0 nRecCount = 0 nRecActual = 0 sDbWhereMaster = "" sDbWhereDetail = "" sSrchAdvanced = "" sSrchBasic = "" sSrchWhere = "" sDbWhere = "" sDefaultOrderBy = "" sDefaultFilter = "" sWhere = "" sGroupBy = "" sHaving = "" sOrderBy = "" sSqlMasterBase = "" sSqlMaster = "" 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 Basic Search SetUpBasicSearch() ' Build Search Criteria If sSrchAdvanced <> "" Then sSrchWhere = sSrchAdvanced ' Advanced Search ElseIf sSrchBasic <> "" Then sSrchWhere = sSrchBasic ' Basic Search End If ' Save Search Criteria If sSrchWhere <> "" Then Session("VENUES_searchwhere") = sSrchWhere ' Reset start record counter (new search) nStartRec = 1 Session("VENUES_REC") = nStartRec Else sSrchWhere = Session("VENUES_searchwhere") End If ' Build SQL sSql = "SELECT * FROM [VENUES]" ' Load Default Filter sDefaultFilter = "" sGroupBy = "" sHaving = "" ' Load Default Order sDefaultOrderBy = "" ' Build WHERE condition sDbWhere = "" If sDbWhereDetail <> "" Then sDbWhere = sDbWhere & "(" & sDbWhereDetail & ") AND " End If If sSrchWhere <> "" Then sDbWhere = sDbWhere & "(" & sSrchWhere & ") AND " End If If Len(sDbWhere) > 5 Then sDbWhere = Mid(sDbWhere, 1, Len(sDbWhere)-5) ' Trim rightmost AND End If sWhere = "" If sDefaultFilter <> "" Then sWhere = sWhere & "(" & sDefaultFilter & ") AND " End If If sDbWhere <> "" Then sWhere = sWhere & "(" & sDbWhere & ") AND " End If If Right(sWhere, 5) = " AND " Then sWhere = Left(sWhere, Len(sWhere)-5) If sWhere <> "" Then sSql = sSql & " WHERE " & sWhere End If If sGroupBy <> "" Then sSql = sSql & " GROUP BY " & sGroupBy End If If sHaving <> "" Then sSql = sSql & " HAVING " & sHaving End If ' Set Up Sorting Order sOrderBy = "" SetUpSortOrder() If sOrderBy <> "" Then sSql = sSql & " ORDER BY " & sOrderBy End If 'Response.Write sSql ' Uncomment to show SQL for debugging %> <% ' Set up Record Set Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 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 %>

TABLE: VENUES

   Show all  
Exact phrase  All words  Any word
Add

<% If Session("ewmsg") <> "" Then %>

<%= Session("ewmsg") %>

<% Session("ewmsg") = "" ' Clear message End If %> <% If nTotalRecs > 0 Then %>
<% ' Avoid starting record > total records If CLng(nStartRec) > CLng(nTotalRecs) Then nStartRec = nTotalRecs End If ' 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 = " bgcolor=""#FFFFFF""" 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 = " bgcolor=""#F5F5F5""" End If x_VENUE_CODE = rs("VENUE_CODE") x_CREDITOR_CODE = rs("CREDITOR_CODE") x_VENUE_NAME = rs("VENUE_NAME") x_ADDRESS_1 = rs("ADDRESS_1") x_ADDRESS_2 = rs("ADDRESS_2") x_ADDRESS_3 = rs("ADDRESS_3") x_ADDRESS_4 = rs("ADDRESS_4") x_POST_CODE = rs("POST_CODE") x_COUNTRY = rs("COUNTRY") x_PHONE_NUMBER = rs("PHONE_NUMBER") x_FAX_NUMBER = rs("FAX_NUMBER") x_CONTACT_NAME = rs("CONTACT_NAME") x_EMAIL_ADDRESS = rs("EMAIL_ADDRESS") x_ROOM_NAME = rs("ROOM_NAME") x_DFRECNUM = rs("DFRECNUM") %> <%=sListTrJs%>> <% End If rs.MoveNext Loop %>
" class="aspmaker" style="color: #FFFFFF;">VENUE CODE (*)<% If Session("VENUES_x_VENUE_CODE_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_VENUE_CODE_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">CREDITOR CODE<% If Session("VENUES_x_CREDITOR_CODE_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_CREDITOR_CODE_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">VENUE NAME (*)<% If Session("VENUES_x_VENUE_NAME_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_VENUE_NAME_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">ADDRESS 1 (*)<% If Session("VENUES_x_ADDRESS_1_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_ADDRESS_1_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">ADDRESS 2 (*)<% If Session("VENUES_x_ADDRESS_2_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_ADDRESS_2_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">ADDRESS 3 (*)<% If Session("VENUES_x_ADDRESS_3_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_ADDRESS_3_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">ADDRESS 4 (*)<% If Session("VENUES_x_ADDRESS_4_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_ADDRESS_4_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">POST CODE (*)<% If Session("VENUES_x_POST_CODE_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_POST_CODE_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">COUNTRY (*)<% If Session("VENUES_x_COUNTRY_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_COUNTRY_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">PHONE NUMBER (*)<% If Session("VENUES_x_PHONE_NUMBER_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_PHONE_NUMBER_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">FAX NUMBER (*)<% If Session("VENUES_x_FAX_NUMBER_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_FAX_NUMBER_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">CONTACT NAME (*)<% If Session("VENUES_x_CONTACT_NAME_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_CONTACT_NAME_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">EMAIL ADDRESS (*)<% If Session("VENUES_x_EMAIL_ADDRESS_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_EMAIL_ADDRESS_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">ROOM NAME (*)<% If Session("VENUES_x_ROOM_NAME_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_ROOM_NAME_Sort") = "DESC" Then %><% End If %> " class="aspmaker" style="color: #FFFFFF;">DFRECNUM<% If Session("VENUES_x_DFRECNUM_Sort") = "ASC" Then %><% ElseIf Session("VENUES_x_DFRECNUM_Sort") = "DESC" Then %><% End If %>        
<% Response.Write x_VENUE_CODE %> <% If Not IsNull(x_CREDITOR_CODE) Then sSqlWrk = "SELECT [CREDITOR_NAME] FROM [CRSMAST]" sTmp = x_CREDITOR_CODE sSqlWrk = sSqlWrk & " WHERE [CREDITOR_CODE] = '" & AdjustSql(sTmp) & "'" sSqlWrk = sSqlWrk & " ORDER BY [CREDITOR_NAME] Asc" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then sTmp = rswrk("CREDITOR_NAME") End If rswrk.Close Set rswrk = Nothing Else sTmp = Null End If ox_CREDITOR_CODE = x_CREDITOR_CODE ' Backup Original Value x_CREDITOR_CODE = sTmp %> <% Response.Write x_CREDITOR_CODE %> <% x_CREDITOR_CODE = ox_CREDITOR_CODE ' Restore Original Value %> <% Response.Write x_VENUE_NAME %> <% Response.Write x_ADDRESS_1 %> <% Response.Write x_ADDRESS_2 %> <% Response.Write x_ADDRESS_3 %> <% Response.Write x_ADDRESS_4 %> <% Response.Write x_POST_CODE %> <% Response.Write x_COUNTRY %> <% Response.Write x_PHONE_NUMBER %> <% Response.Write x_FAX_NUMBER %> <% Response.Write x_CONTACT_NAME %> <% Response.Write x_EMAIL_ADDRESS %> <% Response.Write x_ROOM_NAME %> <% Response.Write x_DFRECNUM %> ">View ">Edit ">Copy ">Delete
<% End If %> <% ' Close recordset and connection rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>
<% If nTotalRecs > 0 Then rsEof = (nTotalRecs < (nStartRec + nDisplayRecs)) PrevStart = nStartRec - nDisplayRecs If PrevStart < 1 Then PrevStart = 1 NextStart = nStartRec + nDisplayRecs If NextStart > nTotalRecs Then NextStart = nStartRec LastStart = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 %> <% If CLng(nStartRec)=1 Then %> <% Else %> <% End If %> <% If CLng(PrevStart) = CLng(nStartRec) Then %> <% Else %> <% End If %> <% If CLng(NextStart) = CLng(nStartRec) Then %> <% Else %> <% End If %> <% If CLng(LastStart) = CLng(nStartRec) Then %> <% Else %> <% End If %>
Page  FirstFirstPreviousPrevious NextNextLastLast of <%=(nTotalRecs-1)\nDisplayRecs+1%>
<% 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 %> No records found <% End If %>
<% '------------------------------------------------------------------------------- ' Function BasicSearchSQL ' - Build WHERE clause for a keyword Function BasicSearchSQL(Keyword) Dim sKeyword sKeyword = AdjustSql(Keyword) BasicSearchSQL = "" BasicSearchSQL = BasicSearchSQL & "[VENUE_CODE] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[CREDITOR_CODE] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[VENUE_NAME] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[ADDRESS_1] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[ADDRESS_2] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[ADDRESS_3] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[ADDRESS_4] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[POST_CODE] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[COUNTRY] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[PHONE_NUMBER] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[FAX_NUMBER] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[CONTACT_NAME] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[EMAIL_ADDRESS] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[ROOM_NAME] 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 sSearch, sSearchType, arKeyword, sKeyword sSearch = Request.QueryString("psearch") sSearchType = Request.QueryString("psearchType") If sSearch <> "" Then If sSearchType <> "" Then While InStr(sSearch, " ") > 0 sSearch = Replace(sSearch, " ", " ") Wend arKeyword = Split(Trim(sSearch), " ") For Each sKeyword In arKeyword sSrchBasic = sSrchBasic & "(" & BasicSearchSQL(sKeyword) & ") " & sSearchType & " " Next Else sSrchBasic = BasicSearchSQL(sSearch) 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) End Sub '------------------------------------------------------------------------------- ' Function SetUpSortOrder ' - Set up Sort parameters based on Sort Links clicked ' - Variables setup: sOrderBy, Session("Table_OrderBy"), Session("Table_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 VENUE_CODE If sOrder = "VENUE_CODE" Then sSortField = "[VENUE_CODE]" sLastSort = Session("VENUES_x_VENUE_CODE_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_VENUE_CODE_Sort") = sThisSort Else If Session("VENUES_x_VENUE_CODE_Sort") <> "" Then Session("VENUES_x_VENUE_CODE_Sort") = "" End If ' Field CREDITOR_CODE If sOrder = "CREDITOR_CODE" Then sSortField = "[CREDITOR_CODE]" sLastSort = Session("VENUES_x_CREDITOR_CODE_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_CREDITOR_CODE_Sort") = sThisSort Else If Session("VENUES_x_CREDITOR_CODE_Sort") <> "" Then Session("VENUES_x_CREDITOR_CODE_Sort") = "" End If ' Field VENUE_NAME If sOrder = "VENUE_NAME" Then sSortField = "[VENUE_NAME]" sLastSort = Session("VENUES_x_VENUE_NAME_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_VENUE_NAME_Sort") = sThisSort Else If Session("VENUES_x_VENUE_NAME_Sort") <> "" Then Session("VENUES_x_VENUE_NAME_Sort") = "" End If ' Field ADDRESS_1 If sOrder = "ADDRESS_1" Then sSortField = "[ADDRESS_1]" sLastSort = Session("VENUES_x_ADDRESS_1_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_ADDRESS_1_Sort") = sThisSort Else If Session("VENUES_x_ADDRESS_1_Sort") <> "" Then Session("VENUES_x_ADDRESS_1_Sort") = "" End If ' Field ADDRESS_2 If sOrder = "ADDRESS_2" Then sSortField = "[ADDRESS_2]" sLastSort = Session("VENUES_x_ADDRESS_2_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_ADDRESS_2_Sort") = sThisSort Else If Session("VENUES_x_ADDRESS_2_Sort") <> "" Then Session("VENUES_x_ADDRESS_2_Sort") = "" End If ' Field ADDRESS_3 If sOrder = "ADDRESS_3" Then sSortField = "[ADDRESS_3]" sLastSort = Session("VENUES_x_ADDRESS_3_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_ADDRESS_3_Sort") = sThisSort Else If Session("VENUES_x_ADDRESS_3_Sort") <> "" Then Session("VENUES_x_ADDRESS_3_Sort") = "" End If ' Field ADDRESS_4 If sOrder = "ADDRESS_4" Then sSortField = "[ADDRESS_4]" sLastSort = Session("VENUES_x_ADDRESS_4_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_ADDRESS_4_Sort") = sThisSort Else If Session("VENUES_x_ADDRESS_4_Sort") <> "" Then Session("VENUES_x_ADDRESS_4_Sort") = "" End If ' Field POST_CODE If sOrder = "POST_CODE" Then sSortField = "[POST_CODE]" sLastSort = Session("VENUES_x_POST_CODE_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_POST_CODE_Sort") = sThisSort Else If Session("VENUES_x_POST_CODE_Sort") <> "" Then Session("VENUES_x_POST_CODE_Sort") = "" End If ' Field COUNTRY If sOrder = "COUNTRY" Then sSortField = "[COUNTRY]" sLastSort = Session("VENUES_x_COUNTRY_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_COUNTRY_Sort") = sThisSort Else If Session("VENUES_x_COUNTRY_Sort") <> "" Then Session("VENUES_x_COUNTRY_Sort") = "" End If ' Field PHONE_NUMBER If sOrder = "PHONE_NUMBER" Then sSortField = "[PHONE_NUMBER]" sLastSort = Session("VENUES_x_PHONE_NUMBER_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_PHONE_NUMBER_Sort") = sThisSort Else If Session("VENUES_x_PHONE_NUMBER_Sort") <> "" Then Session("VENUES_x_PHONE_NUMBER_Sort") = "" End If ' Field FAX_NUMBER If sOrder = "FAX_NUMBER" Then sSortField = "[FAX_NUMBER]" sLastSort = Session("VENUES_x_FAX_NUMBER_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_FAX_NUMBER_Sort") = sThisSort Else If Session("VENUES_x_FAX_NUMBER_Sort") <> "" Then Session("VENUES_x_FAX_NUMBER_Sort") = "" End If ' Field CONTACT_NAME If sOrder = "CONTACT_NAME" Then sSortField = "[CONTACT_NAME]" sLastSort = Session("VENUES_x_CONTACT_NAME_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_CONTACT_NAME_Sort") = sThisSort Else If Session("VENUES_x_CONTACT_NAME_Sort") <> "" Then Session("VENUES_x_CONTACT_NAME_Sort") = "" End If ' Field EMAIL_ADDRESS If sOrder = "EMAIL_ADDRESS" Then sSortField = "[EMAIL_ADDRESS]" sLastSort = Session("VENUES_x_EMAIL_ADDRESS_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_EMAIL_ADDRESS_Sort") = sThisSort Else If Session("VENUES_x_EMAIL_ADDRESS_Sort") <> "" Then Session("VENUES_x_EMAIL_ADDRESS_Sort") = "" End If ' Field ROOM_NAME If sOrder = "ROOM_NAME" Then sSortField = "[ROOM_NAME]" sLastSort = Session("VENUES_x_ROOM_NAME_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_ROOM_NAME_Sort") = sThisSort Else If Session("VENUES_x_ROOM_NAME_Sort") <> "" Then Session("VENUES_x_ROOM_NAME_Sort") = "" End If ' Field DFRECNUM If sOrder = "DFRECNUM" Then sSortField = "[DFRECNUM]" sLastSort = Session("VENUES_x_DFRECNUM_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("VENUES_x_DFRECNUM_Sort") = sThisSort Else If Session("VENUES_x_DFRECNUM_Sort") <> "" Then Session("VENUES_x_DFRECNUM_Sort") = "" End If Session("VENUES_OrderBy") = sSortField & " " & sThisSort Session("VENUES_REC") = 1 End If sOrderBy = Session("VENUES_OrderBy") If sOrderBy = "" Then sOrderBy = sDefaultOrderBy Session("VENUES_OrderBy") = sOrderBy 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("start").Count > 0 Then nStartRec = Request.QueryString("start") Session("VENUES_REC") = 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("VENUES_REC") = nStartRec Else nStartRec = Session("VENUES_REC") If Not IsNumeric(nStartRec) Or nStartRec = "" Then nStartRec = 1 ' Reset start record counter Session("VENUES_REC") = nStartRec End If End If Else nStartRec = Session("VENUES_REC") If Not IsNumeric(nStartRec) Or nStartRec = "" Then nStartRec = 1 'Reset start record counter Session("VENUES_REC") = nStartRec End If 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 UCase(sCmd) = "RESET" Then sSrchWhere = "" Session("VENUES_searchwhere") = sSrchWhere ' Reset Search Criteria & Session Keys ElseIf UCase(sCmd) = "RESETALL" Then sSrchWhere = "" Session("VENUES_searchwhere") = sSrchWhere ' Reset Sort Criteria ElseIf UCase(sCmd) = "RESETSORT" Then sOrderBy = "" Session("VENUES_OrderBy") = sOrderBy If Session("VENUES_x_VENUE_CODE_Sort") <> "" Then Session("VENUES_x_VENUE_CODE_Sort") = "" If Session("VENUES_x_CREDITOR_CODE_Sort") <> "" Then Session("VENUES_x_CREDITOR_CODE_Sort") = "" If Session("VENUES_x_VENUE_NAME_Sort") <> "" Then Session("VENUES_x_VENUE_NAME_Sort") = "" If Session("VENUES_x_ADDRESS_1_Sort") <> "" Then Session("VENUES_x_ADDRESS_1_Sort") = "" If Session("VENUES_x_ADDRESS_2_Sort") <> "" Then Session("VENUES_x_ADDRESS_2_Sort") = "" If Session("VENUES_x_ADDRESS_3_Sort") <> "" Then Session("VENUES_x_ADDRESS_3_Sort") = "" If Session("VENUES_x_ADDRESS_4_Sort") <> "" Then Session("VENUES_x_ADDRESS_4_Sort") = "" If Session("VENUES_x_POST_CODE_Sort") <> "" Then Session("VENUES_x_POST_CODE_Sort") = "" If Session("VENUES_x_COUNTRY_Sort") <> "" Then Session("VENUES_x_COUNTRY_Sort") = "" If Session("VENUES_x_PHONE_NUMBER_Sort") <> "" Then Session("VENUES_x_PHONE_NUMBER_Sort") = "" If Session("VENUES_x_FAX_NUMBER_Sort") <> "" Then Session("VENUES_x_FAX_NUMBER_Sort") = "" If Session("VENUES_x_CONTACT_NAME_Sort") <> "" Then Session("VENUES_x_CONTACT_NAME_Sort") = "" If Session("VENUES_x_EMAIL_ADDRESS_Sort") <> "" Then Session("VENUES_x_EMAIL_ADDRESS_Sort") = "" If Session("VENUES_x_ROOM_NAME_Sort") <> "" Then Session("VENUES_x_ROOM_NAME_Sort") = "" If Session("VENUES_x_DFRECNUM_Sort") <> "" Then Session("VENUES_x_DFRECNUM_Sort") = "" End If ' Reset Start Position (Reset Command) nStartRec = 1 Session("VENUES_REC") = nStartRec End If End Sub %>