<%@ CodePage=65001 %> <% Const EW_PAGE_ID = "list" Const EW_TABLE_NAME = "newsletter_request" %> <% Session.Timeout = 100 %> <% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% ' Open connection to the database Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open EW_DB_CONNECTION_STRING %> <% Dim Security Set Security = New cAdvancedSecurity %> <% If Not Security.IsLoggedIn() Then Call Security.AutoLogin() If Not Security.IsLoggedIn() Then Call Security.SaveLastUrl() Call Page_Terminate("login.asp") End If %> <% ' Common page loading event (in userfn60.asp) Call Page_Loading() %> <% ' Page load event, used in current page Call Page_Load() %> <% newsletter_request.Export = Request.QueryString("export") ' Get export parameter sExport = newsletter_request.Export ' Get export parameter, used in header sExportFile = newsletter_request.TableVar ' Get export file, used in header If newsletter_request.Export = "html" Then ' Printer friendly, no action required End If If newsletter_request.Export = "excel" Then Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment; filename=" & sExportFile & ".xls" End If %> <% ' Paging variables Dim Pager, PagerItem ' Pager Dim nDisplayRecs ' Number of display records Dim nRecRange ' Record display range Dim nStartRec, nStopRec, nTotalRecs nStartRec = 0 ' Start record index nStopRec = 0 ' Stop record index nTotalRecs = 0 ' Total number of records nDisplayRecs = 20 nRecRange = 10 Dim i Dim nRecCount nRecCount = 0 ' Record count Dim RowCnt, RowIndex, OptionCnt ' Sort Dim sSortOrder ' Search filters Dim sSrchAdvanced, sSrchBasic, sSrchWhere, sFilter sSrchAdvanced = "" ' Advanced search filter sSrchBasic = "" ' Basic search filter sSrchWhere = "" ' Search where clause sFilter = "" Dim bEditRow, nEditRowCnt ' Edit row Dim sDeleteConfirmMsg ' Delete confirm message sDeleteConfirmMsg = "Do you want to delete this record?" ' Master/Detail Dim sDbMasterFilter, sDbDetailFilter sDbMasterFilter = "" ' Master filter sDbDetailFilter = "" ' Detail filter Dim sSqlMaster sSqlMaster = "" ' Sql for master record ' Set up records per page dynamically SetUpDisplayRecs() ' Handle reset command ResetCmd() ' Get basic search criteria sSrchBasic = BasicSearchWhere() ' Build search criteria If sSrchAdvanced <> "" Then If sSrchWhere <> "" Then sSrchWhere = "(" & sSrchWhere & ") AND (" & sSrchAdvanced & ")" Else sSrchWhere = sSrchAdvanced End If End If If sSrchBasic <> "" Then If sSrchWhere <> "" Then sSrchWhere = "(" & sSrchWhere & ") AND (" & sSrchBasic & ")" Else sSrchWhere = sSrchBasic End If End If ' Save search criteria If sSrchWhere <> "" Then If sSrchBasic = "" Then Call ResetBasicSearchParms() newsletter_request.SearchWhere = sSrchWhere ' Save to Session nStartRec = 1 ' Reset start record counter newsletter_request.StartRecordNumber = nStartRec Else Call RestoreSearchParms() End If ' Build filter sFilter = "" If sDbDetailFilter <> "" Then If sFilter <> "" Then sFilter = "(" & sFilter & ") AND (" & sDbDetailFilter & ")" Else sFilter = sDbDetailFilter End If End If If sSrchWhere <> "" Then If sFilter <> "" Then sFilter = "(" & sFilter & ") AND (" & sSrchWhere & ")" Else sFilter = sSrchWhere End If End If ' Set up filter in Session newsletter_request.SessionWhere = sFilter newsletter_request.CurrentFilter = "" ' Set Up Sorting Order SetUpSortOrder() ' Set Return Url newsletter_request.ReturnUrl = "newsletter_requestlist.asp" %> <% If newsletter_request.Export = "" Then %> <% End If %> <% If newsletter_request.Export = "" Then %> <% End If %> <% ' Load recordset Dim rs Set rs = LoadRecordset() nTotalRecs = rs.RecordCount nStartRec = 1 If nDisplayRecs <= 0 Then ' Display all records nDisplayRecs = nTotalRecs End If If Not (EW_EXPORT_ALL And newsletter_request.Export <> "") Then SetUpStartRec() ' Set up start record position End If %>

TABLE: newsletter request <% If newsletter_request.Export = "" Then %>   Printer Friendly   Export to Excel <% End If %>

<% If newsletter_request.Export = "" Then %> <% If Security.IsLoggedIn() Then %>
  Show all 
checked<% End If %>>Exact phrase  checked<% End If %>>All words  checked<% End If %>>Any word
<% End If %> <% End If %> <% If Session(EW_SESSION_MESSAGE) <> "" Then %>

<%= Session(EW_SESSION_MESSAGE) %>

<% Session(EW_SESSION_MESSAGE) = "" ' Clear message End If %>
<% If newsletter_request.Export = "" Then %>
<% End If %> <% If nTotalRecs > 0 Then %> <% OptionCnt = 0 %> <% If newsletter_request.Export = "" Then %> <% End If %> <% If (EW_EXPORT_ALL And newsletter_request.Export <> "") Then nStopRec = nTotalRecs Else nStopRec = nStartRec + nDisplayRecs - 1 ' Set the last record to display End If ' Move to first record directly for performance reason nRecCount = nStartRec - 1 If Not rs.Eof Then rs.MoveFirst If nStartRec > 1 Then rs.Move nStartRec - 1 End If RowCnt = 0 Do While (Not rs.Eof) And (nRecCount < nStopRec) nRecCount = nRecCount + 1 If CLng(nRecCount) >= CLng(nStartRec) Then RowCnt = RowCnt + 1 ' Init row class and style newsletter_request.CssClass = "ewTableRow" newsletter_request.CssStyle = "" ' Init row event newsletter_request.RowClientEvents = "onmouseover='ew_MouseOver(this);' onmouseout='ew_MouseOut(this);' onclick='ew_Click(this);'" ' Display alternate color for rows If RowCnt Mod 2 = 0 Then newsletter_request.CssClass = "ewTableAltRow" End If Call LoadRowValues(rs) ' Load row values newsletter_request.RowType = EW_ROWTYPE_VIEW ' Render view Call RenderRow() %> > <% If newsletter_request.Export = "" Then %> <% End If %> > ><%= newsletter_request.id.ViewValue %> > ><%= newsletter_request.webpage.ViewValue %> > ><%= newsletter_request.refpage.ViewValue %> > ><%= newsletter_request.company.ViewValue %> > ><%= newsletter_request.department.ViewValue %> > ><%= newsletter_request.typeofsponsorship.ViewValue %> > ><%= newsletter_request.typeofbusiness.ViewValue %> > ><%= newsletter_request.email.ViewValue %> > ><%= newsletter_request.title.ViewValue %> > ><%= newsletter_request.fullname.ViewValue %> > ><%= newsletter_request.designation.ViewValue %> > ><%= newsletter_request.phone.ViewValue %> > ><%= newsletter_request.fax.ViewValue %> > ><%= newsletter_request.mobile.ViewValue %> > ><%= newsletter_request.pobox.ViewValue %> > ><%= newsletter_request.city.ViewValue %> > ><%= newsletter_request.country.ViewValue %> > ><%= newsletter_request.Website.ViewValue %> > ><%= newsletter_request.event_name.ViewValue %> > ><%= newsletter_request.Subject.ViewValue %> > ><%= newsletter_request.forumdate.ViewValue %> > ><%= newsletter_request.enter_date.ViewValue %> <% End If rs.MoveNext Loop %>
<% If newsletter_request.Export <> "" Then %> id <% Else %> &ordertype=<%= newsletter_request.id.ReverseSort %>">id<% If newsletter_request.id.Sort = "ASC" Then %><% ElseIf newsletter_request.id.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> webpage <% Else %> &ordertype=<%= newsletter_request.webpage.ReverseSort %>">webpage (*)<% If newsletter_request.webpage.Sort = "ASC" Then %><% ElseIf newsletter_request.webpage.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> refpage <% Else %> &ordertype=<%= newsletter_request.refpage.ReverseSort %>">refpage (*)<% If newsletter_request.refpage.Sort = "ASC" Then %><% ElseIf newsletter_request.refpage.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> company <% Else %> &ordertype=<%= newsletter_request.company.ReverseSort %>">company (*)<% If newsletter_request.company.Sort = "ASC" Then %><% ElseIf newsletter_request.company.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> department <% Else %> &ordertype=<%= newsletter_request.department.ReverseSort %>">department (*)<% If newsletter_request.department.Sort = "ASC" Then %><% ElseIf newsletter_request.department.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> typeofsponsorship <% Else %> &ordertype=<%= newsletter_request.typeofsponsorship.ReverseSort %>">typeofsponsorship (*)<% If newsletter_request.typeofsponsorship.Sort = "ASC" Then %><% ElseIf newsletter_request.typeofsponsorship.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> typeofbusiness <% Else %> &ordertype=<%= newsletter_request.typeofbusiness.ReverseSort %>">typeofbusiness (*)<% If newsletter_request.typeofbusiness.Sort = "ASC" Then %><% ElseIf newsletter_request.typeofbusiness.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> email <% Else %> &ordertype=<%= newsletter_request.email.ReverseSort %>">email (*)<% If newsletter_request.email.Sort = "ASC" Then %><% ElseIf newsletter_request.email.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> title <% Else %> &ordertype=<%= newsletter_request.title.ReverseSort %>">title (*)<% If newsletter_request.title.Sort = "ASC" Then %><% ElseIf newsletter_request.title.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> fullname <% Else %> &ordertype=<%= newsletter_request.fullname.ReverseSort %>">fullname (*)<% If newsletter_request.fullname.Sort = "ASC" Then %><% ElseIf newsletter_request.fullname.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> designation <% Else %> &ordertype=<%= newsletter_request.designation.ReverseSort %>">designation (*)<% If newsletter_request.designation.Sort = "ASC" Then %><% ElseIf newsletter_request.designation.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> phone <% Else %> &ordertype=<%= newsletter_request.phone.ReverseSort %>">phone (*)<% If newsletter_request.phone.Sort = "ASC" Then %><% ElseIf newsletter_request.phone.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> fax <% Else %> &ordertype=<%= newsletter_request.fax.ReverseSort %>">fax (*)<% If newsletter_request.fax.Sort = "ASC" Then %><% ElseIf newsletter_request.fax.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> mobile <% Else %> &ordertype=<%= newsletter_request.mobile.ReverseSort %>">mobile (*)<% If newsletter_request.mobile.Sort = "ASC" Then %><% ElseIf newsletter_request.mobile.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> pobox <% Else %> &ordertype=<%= newsletter_request.pobox.ReverseSort %>">pobox (*)<% If newsletter_request.pobox.Sort = "ASC" Then %><% ElseIf newsletter_request.pobox.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> city <% Else %> &ordertype=<%= newsletter_request.city.ReverseSort %>">city (*)<% If newsletter_request.city.Sort = "ASC" Then %><% ElseIf newsletter_request.city.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> country <% Else %> &ordertype=<%= newsletter_request.country.ReverseSort %>">country (*)<% If newsletter_request.country.Sort = "ASC" Then %><% ElseIf newsletter_request.country.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> Website <% Else %> &ordertype=<%= newsletter_request.Website.ReverseSort %>">Website (*)<% If newsletter_request.Website.Sort = "ASC" Then %><% ElseIf newsletter_request.Website.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> event name <% Else %> &ordertype=<%= newsletter_request.event_name.ReverseSort %>">event name (*)<% If newsletter_request.event_name.Sort = "ASC" Then %><% ElseIf newsletter_request.event_name.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> Subject <% Else %> &ordertype=<%= newsletter_request.Subject.ReverseSort %>">Subject (*)<% If newsletter_request.Subject.Sort = "ASC" Then %><% ElseIf newsletter_request.Subject.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> forumdate <% Else %> &ordertype=<%= newsletter_request.forumdate.ReverseSort %>">forumdate<% If newsletter_request.forumdate.Sort = "ASC" Then %><% ElseIf newsletter_request.forumdate.Sort = "DESC" Then %><% End If %> <% End If %> <% If newsletter_request.Export <> "" Then %> enter date <% Else %> &ordertype=<%= newsletter_request.enter_date.ReverseSort %>">enter date<% If newsletter_request.enter_date.Sort = "ASC" Then %><% ElseIf newsletter_request.enter_date.Sort = "DESC" Then %><% End If %> <% End If %>
<% If newsletter_request.Export = "" Then %>
<% End If %> <% End If %>
<% ' Close recordset and connection rs.Close Set rs = Nothing %> <% If newsletter_request.Export = "" Then %>
<% If nTotalRecs > 0 Then %> <% End If %>
<% If Not IsObject(Pager) Then Set Pager = ew_NewPrevNextPager(nStartRec, nDisplayRecs, nTotalRecs) %> <% If Pager.RecordCount > 0 Then %> <% If Pager.FirstButton.Enabled Then %> <% Else %> <% End If %> <% If Pager.PrevButton.Enabled Then %> <% Else %> <% End If %> <% If Pager.NextButton.Enabled Then %> <% Else %> <% End If %> <% If Pager.LastButton.Enabled Then %> <% Else %> <% End If %>
Page  FirstFirstPreviousPrevious NextNextLastLast of <%= Pager.PageCount %>
Records <%= Pager.FromIndex %> to <%= Pager.ToIndex %> of <%= Pager.RecordCount %> <% Else %> <% If sSrchWhere = "0=101" Then %> Please enter search criteria <% Else %> No records found <% End If %> <% End If %> 		     Records Per Page 
<% End If %> <% If newsletter_request.Export = "" Then %> <% End If %> <% If newsletter_request.Export = "" Then %> <% End If %> <% ' If control is passed here, simply terminate the page without redirect Call Page_Terminate("") ' ----------------------------------------------------------------- ' Subroutine Page_Terminate ' - called when exit page ' - clean up ADO connection and objects ' - if url specified, redirect to url, otherwise end response ' Sub Page_Terminate(url) ' Page unload event, used in current page Call Page_Unload() ' Global page unloaded event (in userfn60.asp) Call Page_Unloaded() conn.Close ' Close Connection Set conn = Nothing Set Security = Nothing Set newsletter_request = Nothing ' Go to url if specified If url <> "" Then Response.Clear Response.Redirect url End If ' Terminate response Response.End End Sub ' ' Subroutine Page_Terminate (End) ' ---------------------------------------- %> <% ' Set up number of records displayed per page Sub SetUpDisplayRecs() Dim sWrk sWrk = Request.QueryString(EW_TABLE_REC_PER_PAGE) If sWrk <> "" Then If IsNumeric(sWrk) Then nDisplayRecs = CInt(sWrk) Else If LCase(sWrk) = "all" Then ' Display all records nDisplayRecs = -1 Else nDisplayRecs = 20 ' Non-numeric, load default End If End If newsletter_request.RecordsPerPage = nDisplayRecs ' Save to Session ' Reset start position nStartRec = 1 newsletter_request.StartRecordNumber = nStartRec Else If newsletter_request.RecordsPerPage <> "" Then nDisplayRecs = newsletter_request.RecordsPerPage ' Restore from Session Else nDisplayRecs = 20 ' Load default End If End If End Sub ' Return Basic Search sql Function BasicSearchSQL(Keyword) Dim sKeyword sKeyword = ew_AdjustSql(Keyword) BasicSearchSQL = "" BasicSearchSQL = BasicSearchSQL & "[webpage] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[refpage] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[suggestion] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[comment] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[request] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[company] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[department] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[typeofsponsorship] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[typeofbusiness] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[email] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[title] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[fullname] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[designation] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[phone] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[fax] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[mobile] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[pobox] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[address] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[city] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[country] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Website] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[event_name] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[options] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Subject] LIKE '%" & sKeyword & "%' OR " If Right(BasicSearchSQL, 4) = " OR " Then BasicSearchSQL = Left(BasicSearchSQL, Len(BasicSearchSQL)-4) End Function ' Return Basic Search Where based on search keyword and type Function BasicSearchWhere() Dim sSearchStr, sSearchKeyword, sSearchType Dim sSearch, arKeyword, sKeyword sSearchStr = "" sSearchKeyword = Request.QueryString(EW_TABLE_BASIC_SEARCH) sSearchType = Request.QueryString(EW_TABLE_BASIC_SEARCH_TYPE) If sSearchKeyword <> "" Then sSearch = Trim(sSearchKeyword) If sSearchType <> "" Then While InStr(sSearch, " ") > 0 sSearch = Replace(sSearch, " ", " ") Wend arKeyword = Split(Trim(sSearch), " ") For Each sKeyword In arKeyword If sSearchStr <> "" Then sSearchStr = sSearchStr & " " & sSearchType & " " sSearchStr = sSearchStr & "(" & BasicSearchSQL(sKeyword) & ")" Next Else sSearchStr = BasicSearchSQL(sSearch) End If End If If sSearchKeyword <> "" then newsletter_request.BasicSearchKeyword = sSearchKeyword newsletter_request.BasicSearchType = sSearchType End If BasicSearchWhere = sSearchStr End Function ' Clear all search parameters Sub ResetSearchParms() ' Clear search where sSrchWhere = "" newsletter_request.SearchWhere = sSrchWhere ' Clear basic search parameters Call ResetBasicSearchParms() End Sub ' Clear all basic search parameters Sub ResetBasicSearchParms() ' Clear basic search parameters newsletter_request.BasicSearchKeyword = "" newsletter_request.BasicSearchType = "" End Sub ' Restore all search parameters Sub RestoreSearchParms() sSrchWhere = newsletter_request.SearchWhere End Sub ' Set up Sort parameters based on Sort Links clicked Sub SetUpSortOrder() Dim sOrderBy Dim sSortField, sLastSort, sThisSort Dim bCtrl ' Check for an Order parameter If Request.QueryString("order").Count > 0 Then newsletter_request.CurrentOrder = Request.QueryString("order") newsletter_request.CurrentOrderType = Request.QueryString("ordertype") ' Field id Call newsletter_request.UpdateSort(newsletter_request.id) ' Field webpage Call newsletter_request.UpdateSort(newsletter_request.webpage) ' Field refpage Call newsletter_request.UpdateSort(newsletter_request.refpage) ' Field company Call newsletter_request.UpdateSort(newsletter_request.company) ' Field department Call newsletter_request.UpdateSort(newsletter_request.department) ' Field typeofsponsorship Call newsletter_request.UpdateSort(newsletter_request.typeofsponsorship) ' Field typeofbusiness Call newsletter_request.UpdateSort(newsletter_request.typeofbusiness) ' Field email Call newsletter_request.UpdateSort(newsletter_request.email) ' Field title Call newsletter_request.UpdateSort(newsletter_request.title) ' Field fullname Call newsletter_request.UpdateSort(newsletter_request.fullname) ' Field designation Call newsletter_request.UpdateSort(newsletter_request.designation) ' Field phone Call newsletter_request.UpdateSort(newsletter_request.phone) ' Field fax Call newsletter_request.UpdateSort(newsletter_request.fax) ' Field mobile Call newsletter_request.UpdateSort(newsletter_request.mobile) ' Field pobox Call newsletter_request.UpdateSort(newsletter_request.pobox) ' Field city Call newsletter_request.UpdateSort(newsletter_request.city) ' Field country Call newsletter_request.UpdateSort(newsletter_request.country) ' Field Website Call newsletter_request.UpdateSort(newsletter_request.Website) ' Field event_name Call newsletter_request.UpdateSort(newsletter_request.event_name) ' Field Subject Call newsletter_request.UpdateSort(newsletter_request.Subject) ' Field forumdate Call newsletter_request.UpdateSort(newsletter_request.forumdate) ' Field enter_date Call newsletter_request.UpdateSort(newsletter_request.enter_date) newsletter_request.StartRecordNumber = 1 ' Reset start position End If sOrderBy = newsletter_request.SessionOrderBy ' Get order by from Session If sOrderBy = "" Then If newsletter_request.SqlOrderBy <> "" Then sOrderBy = newsletter_request.SqlOrderBy newsletter_request.SessionOrderBy = sOrderBy End If End If End Sub ' Reset command based on querystring parameter cmd= ' - 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" Or LCase(sCmd) = "resetall" Then Call ResetSearchParms() End If ' Reset Sort Criteria If LCase(sCmd) = "resetsort" Then Dim sOrderBy sOrderBy = "" newsletter_request.SessionOrderBy = sOrderBy newsletter_request.id.Sort = "" newsletter_request.webpage.Sort = "" newsletter_request.refpage.Sort = "" newsletter_request.company.Sort = "" newsletter_request.department.Sort = "" newsletter_request.typeofsponsorship.Sort = "" newsletter_request.typeofbusiness.Sort = "" newsletter_request.email.Sort = "" newsletter_request.title.Sort = "" newsletter_request.fullname.Sort = "" newsletter_request.designation.Sort = "" newsletter_request.phone.Sort = "" newsletter_request.fax.Sort = "" newsletter_request.mobile.Sort = "" newsletter_request.pobox.Sort = "" newsletter_request.city.Sort = "" newsletter_request.country.Sort = "" newsletter_request.Website.Sort = "" newsletter_request.event_name.Sort = "" newsletter_request.Subject.Sort = "" newsletter_request.forumdate.Sort = "" newsletter_request.enter_date.Sort = "" End If ' Reset start position nStartRec = 1 newsletter_request.StartRecordNumber = nStartRec End If End Sub %> <% ' Set up Starting Record parameters based on Pager Navigation Sub SetUpStartRec() Dim nPageNo ' Exit if nDisplayRecs = 0 If nDisplayRecs = 0 Then Exit Sub ' Check for a START parameter If Request.QueryString(EW_TABLE_START_REC).Count > 0 Then nStartRec = Request.QueryString(EW_TABLE_START_REC) newsletter_request.StartRecordNumber = nStartRec ElseIf Request.QueryString(EW_TABLE_PAGE_NO).Count > 0 Then nPageNo = Request.QueryString(EW_TABLE_PAGE_NO) 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 newsletter_request.StartRecordNumber = nStartRec Else nStartRec = newsletter_request.StartRecordNumber End If Else nStartRec = newsletter_request.StartRecordNumber 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 newsletter_request.StartRecordNumber = nStartRec ElseIf CLng(nStartRec) > CLng(nTotalRecs) Then ' Avoid starting record > total records nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to last page first record newsletter_request.StartRecordNumber = nStartRec ElseIf (nStartRec-1) Mod nDisplayRecs <> 0 Then nStartRec = ((nStartRec-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to page boundary newsletter_request.StartRecordNumber = nStartRec End If End Sub %> <% ' Load recordset Function LoadRecordset() ' Call Recordset Selecting event Call newsletter_request.Recordset_Selecting(newsletter_request.CurrentFilter) ' Load list page sql Dim sSql sSql = newsletter_request.ListSQL ' Response.Write sSql ' Uncomment to show SQL for debugging ' Load recordset Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = EW_CURSORLOCATION rs.Open sSql, conn, 1, 2 ' Call Recordset Selected event Call newsletter_request.Recordset_Selected(rs) Set LoadRecordset = rs End Function %> <% ' Load row based on key values Function LoadRow() Dim rs, sSql, sFilter sFilter = newsletter_request.SqlKeyFilter ' Call Row Selecting event Call newsletter_request.Row_Selecting(sFilter) ' Load sql based on filter newsletter_request.CurrentFilter = sFilter sSql = newsletter_request.SQL Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadRow = False Else LoadRow = True rs.MoveFirst Call LoadRowValues(rs) ' Load row values ' Call Row Selected event Call newsletter_request.Row_Selected(rs) End If rs.Close Set rs = Nothing End Function ' Load row values from recordset Sub LoadRowValues(rs) newsletter_request.id.DbValue = rs("id") newsletter_request.webpage.DbValue = rs("webpage") newsletter_request.refpage.DbValue = rs("refpage") newsletter_request.suggestion.DbValue = rs("suggestion") newsletter_request.comment.DbValue = rs("comment") newsletter_request.request.DbValue = rs("request") newsletter_request.company.DbValue = rs("company") newsletter_request.department.DbValue = rs("department") newsletter_request.typeofsponsorship.DbValue = rs("typeofsponsorship") newsletter_request.typeofbusiness.DbValue = rs("typeofbusiness") newsletter_request.email.DbValue = rs("email") newsletter_request.title.DbValue = rs("title") newsletter_request.fullname.DbValue = rs("fullname") newsletter_request.designation.DbValue = rs("designation") newsletter_request.phone.DbValue = rs("phone") newsletter_request.fax.DbValue = rs("fax") newsletter_request.mobile.DbValue = rs("mobile") newsletter_request.pobox.DbValue = rs("pobox") newsletter_request.address.DbValue = rs("address") newsletter_request.city.DbValue = rs("city") newsletter_request.country.DbValue = rs("country") newsletter_request.Website.DbValue = rs("Website") newsletter_request.event_name.DbValue = rs("event_name") newsletter_request.options.DbValue = rs("options") newsletter_request.Subject.DbValue = rs("Subject") newsletter_request.forumdate.DbValue = rs("forumdate") newsletter_request.enter_date.DbValue = rs("enter_date") End Sub %> <% ' Render row values based on field settings Sub RenderRow() ' Call Row Rendering event Call newsletter_request.Row_Rendering() ' Common render codes for all row types ' id newsletter_request.id.CellCssStyle = "" newsletter_request.id.CellCssClass = "" ' webpage newsletter_request.webpage.CellCssStyle = "" newsletter_request.webpage.CellCssClass = "" ' refpage newsletter_request.refpage.CellCssStyle = "" newsletter_request.refpage.CellCssClass = "" ' company newsletter_request.company.CellCssStyle = "" newsletter_request.company.CellCssClass = "" ' department newsletter_request.department.CellCssStyle = "" newsletter_request.department.CellCssClass = "" ' typeofsponsorship newsletter_request.typeofsponsorship.CellCssStyle = "" newsletter_request.typeofsponsorship.CellCssClass = "" ' typeofbusiness newsletter_request.typeofbusiness.CellCssStyle = "" newsletter_request.typeofbusiness.CellCssClass = "" ' email newsletter_request.email.CellCssStyle = "" newsletter_request.email.CellCssClass = "" ' title newsletter_request.title.CellCssStyle = "" newsletter_request.title.CellCssClass = "" ' fullname newsletter_request.fullname.CellCssStyle = "" newsletter_request.fullname.CellCssClass = "" ' designation newsletter_request.designation.CellCssStyle = "" newsletter_request.designation.CellCssClass = "" ' phone newsletter_request.phone.CellCssStyle = "" newsletter_request.phone.CellCssClass = "" ' fax newsletter_request.fax.CellCssStyle = "" newsletter_request.fax.CellCssClass = "" ' mobile newsletter_request.mobile.CellCssStyle = "" newsletter_request.mobile.CellCssClass = "" ' pobox newsletter_request.pobox.CellCssStyle = "" newsletter_request.pobox.CellCssClass = "" ' city newsletter_request.city.CellCssStyle = "" newsletter_request.city.CellCssClass = "" ' country newsletter_request.country.CellCssStyle = "" newsletter_request.country.CellCssClass = "" ' Website newsletter_request.Website.CellCssStyle = "" newsletter_request.Website.CellCssClass = "" ' event_name newsletter_request.event_name.CellCssStyle = "" newsletter_request.event_name.CellCssClass = "" ' Subject newsletter_request.Subject.CellCssStyle = "" newsletter_request.Subject.CellCssClass = "" ' forumdate newsletter_request.forumdate.CellCssStyle = "" newsletter_request.forumdate.CellCssClass = "" ' enter_date newsletter_request.enter_date.CellCssStyle = "" newsletter_request.enter_date.CellCssClass = "" If newsletter_request.RowType = EW_ROWTYPE_VIEW Then ' View row ' id newsletter_request.id.ViewValue = newsletter_request.id.CurrentValue newsletter_request.id.CssStyle = "" newsletter_request.id.CssClass = "" newsletter_request.id.ViewCustomAttributes = "" ' webpage newsletter_request.webpage.ViewValue = newsletter_request.webpage.CurrentValue newsletter_request.webpage.CssStyle = "" newsletter_request.webpage.CssClass = "" newsletter_request.webpage.ViewCustomAttributes = "" ' refpage newsletter_request.refpage.ViewValue = newsletter_request.refpage.CurrentValue newsletter_request.refpage.CssStyle = "" newsletter_request.refpage.CssClass = "" newsletter_request.refpage.ViewCustomAttributes = "" ' company newsletter_request.company.ViewValue = newsletter_request.company.CurrentValue newsletter_request.company.CssStyle = "" newsletter_request.company.CssClass = "" newsletter_request.company.ViewCustomAttributes = "" ' department newsletter_request.department.ViewValue = newsletter_request.department.CurrentValue newsletter_request.department.CssStyle = "" newsletter_request.department.CssClass = "" newsletter_request.department.ViewCustomAttributes = "" ' typeofsponsorship newsletter_request.typeofsponsorship.ViewValue = newsletter_request.typeofsponsorship.CurrentValue newsletter_request.typeofsponsorship.CssStyle = "" newsletter_request.typeofsponsorship.CssClass = "" newsletter_request.typeofsponsorship.ViewCustomAttributes = "" ' typeofbusiness newsletter_request.typeofbusiness.ViewValue = newsletter_request.typeofbusiness.CurrentValue newsletter_request.typeofbusiness.CssStyle = "" newsletter_request.typeofbusiness.CssClass = "" newsletter_request.typeofbusiness.ViewCustomAttributes = "" ' email newsletter_request.email.ViewValue = newsletter_request.email.CurrentValue newsletter_request.email.CssStyle = "" newsletter_request.email.CssClass = "" newsletter_request.email.ViewCustomAttributes = "" ' title newsletter_request.title.ViewValue = newsletter_request.title.CurrentValue newsletter_request.title.CssStyle = "" newsletter_request.title.CssClass = "" newsletter_request.title.ViewCustomAttributes = "" ' fullname newsletter_request.fullname.ViewValue = newsletter_request.fullname.CurrentValue newsletter_request.fullname.CssStyle = "" newsletter_request.fullname.CssClass = "" newsletter_request.fullname.ViewCustomAttributes = "" ' designation newsletter_request.designation.ViewValue = newsletter_request.designation.CurrentValue newsletter_request.designation.CssStyle = "" newsletter_request.designation.CssClass = "" newsletter_request.designation.ViewCustomAttributes = "" ' phone newsletter_request.phone.ViewValue = newsletter_request.phone.CurrentValue newsletter_request.phone.CssStyle = "" newsletter_request.phone.CssClass = "" newsletter_request.phone.ViewCustomAttributes = "" ' fax newsletter_request.fax.ViewValue = newsletter_request.fax.CurrentValue newsletter_request.fax.CssStyle = "" newsletter_request.fax.CssClass = "" newsletter_request.fax.ViewCustomAttributes = "" ' mobile newsletter_request.mobile.ViewValue = newsletter_request.mobile.CurrentValue newsletter_request.mobile.CssStyle = "" newsletter_request.mobile.CssClass = "" newsletter_request.mobile.ViewCustomAttributes = "" ' pobox newsletter_request.pobox.ViewValue = newsletter_request.pobox.CurrentValue newsletter_request.pobox.CssStyle = "" newsletter_request.pobox.CssClass = "" newsletter_request.pobox.ViewCustomAttributes = "" ' city newsletter_request.city.ViewValue = newsletter_request.city.CurrentValue newsletter_request.city.CssStyle = "" newsletter_request.city.CssClass = "" newsletter_request.city.ViewCustomAttributes = "" ' country newsletter_request.country.ViewValue = newsletter_request.country.CurrentValue newsletter_request.country.CssStyle = "" newsletter_request.country.CssClass = "" newsletter_request.country.ViewCustomAttributes = "" ' Website newsletter_request.Website.ViewValue = newsletter_request.Website.CurrentValue newsletter_request.Website.CssStyle = "" newsletter_request.Website.CssClass = "" newsletter_request.Website.ViewCustomAttributes = "" ' event_name newsletter_request.event_name.ViewValue = newsletter_request.event_name.CurrentValue newsletter_request.event_name.CssStyle = "" newsletter_request.event_name.CssClass = "" newsletter_request.event_name.ViewCustomAttributes = "" ' Subject newsletter_request.Subject.ViewValue = newsletter_request.Subject.CurrentValue newsletter_request.Subject.CssStyle = "" newsletter_request.Subject.CssClass = "" newsletter_request.Subject.ViewCustomAttributes = "" ' forumdate newsletter_request.forumdate.ViewValue = newsletter_request.forumdate.CurrentValue newsletter_request.forumdate.ViewValue = ew_FormatDateTime(newsletter_request.forumdate.ViewValue, 7) newsletter_request.forumdate.CssStyle = "" newsletter_request.forumdate.CssClass = "" newsletter_request.forumdate.ViewCustomAttributes = "" ' enter_date newsletter_request.enter_date.ViewValue = newsletter_request.enter_date.CurrentValue newsletter_request.enter_date.ViewValue = ew_FormatDateTime(newsletter_request.enter_date.ViewValue, 7) newsletter_request.enter_date.CssStyle = "" newsletter_request.enter_date.CssClass = "" newsletter_request.enter_date.ViewCustomAttributes = "" ' id ' *** view refer script newsletter_request.id.HrefValue = "" ' webpage ' *** view refer script newsletter_request.webpage.HrefValue = "" ' refpage ' *** view refer script newsletter_request.refpage.HrefValue = "" ' company ' *** view refer script newsletter_request.company.HrefValue = "" ' department ' *** view refer script newsletter_request.department.HrefValue = "" ' typeofsponsorship ' *** view refer script newsletter_request.typeofsponsorship.HrefValue = "" ' typeofbusiness ' *** view refer script newsletter_request.typeofbusiness.HrefValue = "" ' email ' *** view refer script newsletter_request.email.HrefValue = "" ' title ' *** view refer script newsletter_request.title.HrefValue = "" ' fullname ' *** view refer script newsletter_request.fullname.HrefValue = "" ' designation ' *** view refer script newsletter_request.designation.HrefValue = "" ' phone ' *** view refer script newsletter_request.phone.HrefValue = "" ' fax ' *** view refer script newsletter_request.fax.HrefValue = "" ' mobile ' *** view refer script newsletter_request.mobile.HrefValue = "" ' pobox ' *** view refer script newsletter_request.pobox.HrefValue = "" ' city ' *** view refer script newsletter_request.city.HrefValue = "" ' country ' *** view refer script newsletter_request.country.HrefValue = "" ' Website ' *** view refer script newsletter_request.Website.HrefValue = "" ' event_name ' *** view refer script newsletter_request.event_name.HrefValue = "" ' Subject ' *** view refer script newsletter_request.Subject.HrefValue = "" ' forumdate ' *** view refer script newsletter_request.forumdate.HrefValue = "" ' enter_date ' *** view refer script newsletter_request.enter_date.HrefValue = "" ElseIf newsletter_request.RowType = EW_ROWTYPE_ADD Then ' Add row ElseIf newsletter_request.RowType = EW_ROWTYPE_EDIT Then ' Edit row ElseIf newsletter_request.RowType = EW_ROWTYPE_SEARCH Then ' Search row End If ' Call Row Rendered event Call newsletter_request.Row_Rendered() End Sub %> <% ' Page Load event Sub Page_Load() '***Response.Write "Page Load" End Sub ' Page Unload event Sub Page_Unload() '***Response.Write "Page Unload" End Sub %>