<% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" 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 %> <% If Session("design-desk-shop-DAT_status") <> "login" Then Response.Redirect "login.asp" Else ' Restore Security Table - created in Login arrSecurity = Session("ewSecurity") ' Get Current Table Security sTmp1 = -1 For sTmp = 1 to UBound(arrSecurity, 2) If arrSecurity(0, sTmp) = "accessories" Then sTmp1 = sTmp Exit For End If Next ewCurLvl = Session("design-desk-shop-DAT_status_UserLevel") If IsNumeric(ewCurLvl) And sTmp1 <> -1 Then If ewCurLvl = -1 Then ' System Administrator ewCurSec = 31 ElseIf ewCurLvl > 0 and ewCurLvl <= 1 Then ewCurSec = arrSecurity(ewCurLvl, sTmp1) End If End If End If %> <% ' Initialize common variables x_Part_No = Null x_Sale = Null x_Special = Null x_Category = Null x_Product_Name = Null x_Preferred_Supplier = Null x_Image_Prefix = Null x_ImageSuffix = Null x_Weight = Null x_WeightPrice = Null x_VAT = Null x_Percentage = Null x_Actual_Cost = Null x_Retail_Price = Null x_Retail_Inc = Null x_Description = Null x_SpecialPrice = Null x_RedMessage = Null x_Image = Null x_CartPrefix = Null x_CartHyphen = Null x_CartCode1 = Null x_CartSuffix = Null x_Upsell1_Name = Null x_Upsell1_PartNo = Null x_Upsell2_Name = Null x_Upsell2_PartNo = Null x_Upsell3_Name = Null x_Upsell3_PartNo = Null x_Upsell_Prefix = Null x_Upsell_Suffix1 = Null %> <% ' Open connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str IF request.Form("chkbox_update") <>"" then Set objRec = Server.CreateObject ("ADODB.Recordset") ' SET Sale 'If Request.form("sale").Count > 0 then found_sale_chk=true within=LEFT(session("xxkey"),LEN(session("xxkey"))-1) session("xupdate")="" For intLoop = 1 to Request.form("sale").Count xchecked=xchecked &"'"& Request.form("sale")(intloop)& "'," sql="UPDATE accessories set sale =-1 WHERE [Part_No] ='" & Request.form("sale")(intloop) &"'" conn.execute(sql) session("xupdate")=session("xupdate") & "
"& sql Next 'IF xchecked <>"" then IF xchecked ="" then xchecked="'0' " 'REMOVE CHECKED xchecked=LEFT(xchecked,LEN(xchecked)-1) conn.execute "UPDATE accessories set sale =0 WHERE [Part_No] not in (" & xchecked & ") AND [Part_No] in ("& within & ")" 'end if 'set special ' SET Sale session("xupdate")="" 'If Request.form("special").Count > 0 then found_special_chk=true xchecked="" For intLoop = 1 to Request.form("special").Count xchecked=xchecked &"'"& Request.form("special")(intloop)& "'," sql="UPDATE accessories set Special =-1 WHERE [Part_No] ='" & Request.form("special")(intloop) &"'" conn.execute(sql) session("xupdate")=session("xupdate") & "
"& sql Next 'REMOVE CHECKED IF xchecked ="" then xchecked="'0' " xchecked=LEFT(xchecked,LEN(xchecked)-1) conn.execute "UPDATE accessories set Special =0 WHERE [Part_No] not in (" & xchecked & ") AND [Part_No] in ("& within & ")" 'end if end if session("xxkey")="" nStartRec = 0 nStopRec = 0 nTotalRecs = 0 nRecCount = 0 nRecActual = 0 sKeyMaster = "" sDbWhereMaster = "" sSrchAdvanced = "" sSrchBasic = "" sSrchWhere = "" sDbWhere = "" sDefaultOrderBy = "" sDefaultFilter = "" sWhere = "" sGroupBy = "" sHaving = "" sOrderBy = "" sSqlMaster = "" nDisplayRecs = 20 nRecRange = 10 ' Handle Reset Command ResetCmd() ' Get Search Criteria for Basic Search SetUpBasicSearch() 'm SetUpBlankDeskSrch() ' 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("accessories_searchwhere") = sSrchWhere ' Reset start record counter (new search) nStartRec = 1 Session("accessories_REC") = nStartRec Else sSrchWhere = Session("accessories_searchwhere") End If ' Build WHERE condition sDbWhere = "" If sDbWhereMaster <> "" Then sDbWhere = sDbWhere & "(" & sDbWhereMaster & ") 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 ' Build SQL sSql = "SELECT * FROM [accessories]" ' Load Default Filter sDefaultFilter = "" sGroupBy = "" sHaving = "" ' Load Default Order sDefaultOrderBy = "" sWhere = "" If sDefaultFilter <> "" Then sWhere = sWhere & "(" & sDefaultFilter & ") AND " End If If sDbWhere <> "" Then sWhere = sWhere & "(" & sDbWhere & ") AND " End If If (ewCurSec And ewAllowList) <> ewAllowList Then sWhere = sWhere & "(0=1) 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 'Session("ewmsg") = 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: Accessories

   Show all  
Exact phrase  All words  Any word
Show Blank Descriptions
<% If Session("ewmsg") <> "" Then %>

<%= Session("ewmsg") %>

<% Session("ewmsg") = "" ' Clear message End If %>
<% If nTotalRecs > 0 Then %> <% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %> <% End If %> <% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %> <% End If %> <% End If %> <% ' 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""" ' Display alternate color for rows If nRecCount Mod 2 <> 0 Then sItemRowClass = " bgcolor=""#F5F5F5""" End If ' Load Key for record sKey = rs("Part_No") session("xxkey")=session("xxkey")& "'" & sKey & "'," x_Part_No = rs("Part_No") x_Sale = rs("Sale") x_Special = rs("Special") x_Category = rs("Category") x_Product_Name = rs("Product Name") x_Preferred_Supplier = rs("Preferred Supplier") x_Image_Prefix = rs("Image_Prefix") x_ImageSuffix = rs("ImageSuffix") x_Weight = rs("Weight") x_WeightPrice = rs("WeightPrice") x_VAT = rs("VAT") x_Percentage = rs("Percentage") ' x_Actual_Cost = rs("Actual Cost") x_Retail_Price = rs("Retail Price") x_Retail_Inc = rs("Retail Inc") x_Description = rs("Description") x_SpecialPrice = rs("SpecialPrice") x_RedMessage = rs("RedMessage") x_Image = rs("Image") x_CartPrefix = rs("CartPrefix") x_CartHyphen = rs("CartHyphen") x_CartCode1 = rs("CartCode1") x_CartSuffix = rs("CartSuffix") x_Upsell1_Name = rs("Upsell1_Name") x_Upsell1_PartNo = rs("Upsell1_PartNo") x_Upsell2_Name = rs("Upsell2_Name") x_Upsell2_PartNo = rs("Upsell2_PartNo") x_Upsell3_Name = rs("Upsell3_Name") x_Upsell3_PartNo = rs("Upsell3_PartNo") x_Upsell_Prefix = rs("Upsell_Prefix") x_Upsell_Suffix1 = rs("Upsell_Suffix1") %> > <% If (ewCurSec And ewAllowEdit) = ewAllowEdit Then %> <% End If %> <% If (ewCurSec And ewAllowDelete) = ewAllowDelete Then %> <% End If %> <% End If rs.MoveNext Loop %>
" style="color: #000000;">Part No <% If Session("accessories_x_Part_No_Sort") = "ASC" Then %><% ElseIf Session("accessories_x_Part_No_Sort") = "DESC" Then %><% End If %> " style="color: #000000;">Sale<% If Session("accessories_x_Sale_Sort") = "ASC" Then %><% ElseIf Session("accessories_x_Sale_Sort") = "DESC" Then %><% End If %> " style="color: #000000;">Special<% If Session("accessories_x_Special_Sort") = "ASC" Then %><% ElseIf Session("accessories_x_Special_Sort") = "DESC" Then %><% End If %> " style="color: #000000;">Category <% If Session("accessories_x_Category_Sort") = "ASC" Then %><% ElseIf Session("accessories_x_Category_Sort") = "DESC" Then %><% End If %> " style="color: #000000;">Product Name <% If Session("accessories_x_Product_Name_Sort") = "ASC" Then %><% ElseIf Session("accessories_x_Product_Name_Sort") = "DESC" Then %><% End If %> " style="color: #000000;">Image <% If Session("accessories_x_Image_Sort") = "ASC" Then %><% ElseIf Session("accessories_x_Image_Sort") = "DESC" Then %><% End If %>   
<% Response.Write x_Part_No %> <% If x_Sale = True Then %> <% Else %> <% End If %> <% If x_Special = True Then %> <% Else %> <% End If %> <% Response.Write x_Category %> <% Response.Write x_Product_Name %> <% Response.Write x_Image %> ">Edit">Delete
<% ' 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 %> <% If (ewCurSec And ewAllowList) = ewAllowList Then %> No records found <% Else %> No Permission <% End If %> <% End If %>
<% '------------------------------------------------------------------------------- ' Function BasicSearchSQL ' - Build WHERE clause for a keyword Function BasicSearchSQL(Keyword) Dim sKeyword sKeyword = AdjustSql(Keyword) BasicSearchSQL = "" BasicSearchSQL = BasicSearchSQL & "[Part_No] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Category] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Product Name] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Preferred Supplier] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Image_Prefix] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[ImageSuffix] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Weight] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[VAT] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Percentage] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Retail Price] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Retail Inc] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Description] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[SpecialPrice] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[RedMessage] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Image] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[CartPrefix] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[CartHyphen] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[CartCode1] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[CartSuffix] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Upsell1_Name] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Upsell1_PartNo] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Upsell2_Name] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Upsell2_PartNo] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Upsell3_Name] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Upsell3_PartNo] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Upsell_Prefix] LIKE '%" & sKeyword & "%' OR " BasicSearchSQL = BasicSearchSQL & "[Upsell_Suffix1] 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 Sub SetUpBlankDeskSrch() Dim sSearch, sSearchType, arKeyword, sKeyword if Request.QueryString("desc")<>"" then 'sSrchBasic="(len(description)=0)" sSrchBasic="description is null" end if 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 Part_No If sOrder = "Part_No" Then sSortField = "[Part_No]" sLastSort = Session("accessories_x_Part_No_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("accessories_x_Part_No_Sort") = sThisSort Else If Session("accessories_x_Part_No_Sort") <> "" Then Session("accessories_x_Part_No_Sort") = "" End If ' Field Sale If sOrder = "Sale" Then sSortField = "[Sale]" sLastSort = Session("accessories_x_Sale_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("accessories_x_Sale_Sort") = sThisSort Else If Session("accessories_x_Sale_Sort") <> "" Then Session("accessories_x_Sale_Sort") = "" End If ' Field Special If sOrder = "Special" Then sSortField = "[Special]" sLastSort = Session("accessories_x_Special_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("accessories_x_Special_Sort") = sThisSort Else If Session("accessories_x_Special_Sort") <> "" Then Session("accessories_x_Special_Sort") = "" End If ' Field Category If sOrder = "Category" Then sSortField = "[Category]" sLastSort = Session("accessories_x_Category_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("accessories_x_Category_Sort") = sThisSort Else If Session("accessories_x_Category_Sort") <> "" Then Session("accessories_x_Category_Sort") = "" End If ' Field Product Name If sOrder = "Product Name" Then sSortField = "[Product Name]" sLastSort = Session("accessories_x_Product_Name_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("accessories_x_Product_Name_Sort") = sThisSort Else If Session("accessories_x_Product_Name_Sort") <> "" Then Session("accessories_x_Product_Name_Sort") = "" End If ' Field Image If sOrder = "Image" Then sSortField = "[Image]" sLastSort = Session("accessories_x_Image_Sort") If sLastSort = "ASC" Then sThisSort = "DESC" Else sThisSort = "ASC" Session("accessories_x_Image_Sort") = sThisSort Else If Session("accessories_x_Image_Sort") <> "" Then Session("accessories_x_Image_Sort") = "" End If Session("accessories_OrderBy") = sSortField & " " & sThisSort Session("accessories_REC") = 1 End If sOrderBy = Session("accessories_OrderBy") If sOrderBy = "" Then sOrderBy = sDefaultOrderBy Session("accessories_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("accessories_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("accessories_REC") = nStartRec Else nStartRec = Session("accessories_REC") If Not IsNumeric(nStartRec) Or nStartRec = "" Then nStartRec = 1 ' Reset start record counter Session("accessories_REC") = nStartRec End If End If Else nStartRec = Session("accessories_REC") If Not IsNumeric(nStartRec) Or nStartRec = "" Then nStartRec = 1 'Reset start record counter Session("accessories_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("accessories_searchwhere") = sSrchWhere ' Reset Search Criteria & Session Keys ElseIf UCase(sCmd) = "RESETALL" Then sSrchWhere = "" Session("accessories_searchwhere") = sSrchWhere ' Reset Sort Criteria ElseIf UCase(sCmd) = "RESETSORT" Then sOrderBy = "" Session("accessories_OrderBy") = sOrderBy If Session("accessories_x_Part_No_Sort") <> "" Then Session("accessories_x_Part_No_Sort") = "" If Session("accessories_x_Sale_Sort") <> "" Then Session("accessories_x_Sale_Sort") = "" If Session("accessories_x_Special_Sort") <> "" Then Session("accessories_x_Special_Sort") = "" If Session("accessories_x_Category_Sort") <> "" Then Session("accessories_x_Category_Sort") = "" If Session("accessories_x_Product_Name_Sort") <> "" Then Session("accessories_x_Product_Name_Sort") = "" If Session("accessories_x_Image_Sort") <> "" Then Session("accessories_x_Image_Sort") = "" End If ' Reset Start Position (Reset Command) nStartRec = 1 Session("accessories_REC") = nStartRec End If End Sub %>