AVS Computer Services - Online Shopping

<%@Language=VBScript%> <% Response.Buffer = True dim MyConn ' Database connection object dim RS ' Recordset object dim Fld ' Field object dim Connect_String ' ADO Connection String dim SQL ' SQL Statement dim SQL_Ext ' SQL Extension Statement dim SQLMaster ' SQL Statement dim SQL_ExtMaster ' SQL Extension Statement dim Page_Size ' Number of records per page dim StartPage ' The page that we are starting on dim Current_Page ' The current page that we are on dim Page_Count ' Total pages dim CssClass ' Style Sheet file dim CellValue ' data value dim intRowCount ' Total rows dim iRecCount dim i dim j dim iData dim iRealData dim iStrData dim iOpt dim iCon dim iOldCon dim Qry_String dim NavQry_String dim Filter_String dim Filter_StringMaster dim iConMaster dim Err_String dim SearchArray dim SearchIndex dim MultiSearch dim QuoteChar dim QuoteDate dim Fields dim StdSearchOpt dim SearchEndKey dim PageSecureLevel dim ItemValue dim CurrentRow_String dim StartStrData dim EndStrData dim StrKeyWord dim SearchMode dim SearchStartKey dim NextSortASC dim NextSortDESC dim SortString dim ref %> <% Err_String = "" set MyConn=Server.CreateObject("ADODB.Connection") set RS=Server.CreateObject("ADODB.Recordset") MyConn.Open Connect_String if err <> 0 then Err_String = Err_String& "Error:While opening recordset.
" Err_String = Err_String& "Description" & err.description & "
" err = 0 end if if request("clearsession") = "1" then session.contents.remove("computer_store_computer_store") end if RS.CursorLocation = 3 ParamPage = split(Session("computer_store_computer_store"), "||") n = ubound(ParamPage) Current_Page = 1 Page_Size = 6 if (n > 0) then if (ParamPage(0) <> "") then Current_Page = cint(ParamPage(0)) end if if (ParamPage(1) <> "") then Page_Size = cint(ParamPage(1)) end if end if if (request("Page") <> "") then Current_Page = cint(request("Page")) end if if (request("Page_Size") <> "") then if (request("Page_Size") <> Page_Size) then Current_Page = 1 end if Page_Size = cint(request("Page_Size")) end if if request("SortField") <> "" then Session("computer_store_SortField") = request("SortField") end if if request("SortBy") <> "" then Session("computer_store_SortBy") = request("SortBy") end if Session("computer_store_computer_store") = Current_Page&"||"&Page_Size RS.PageSize = 6 QuoteChar = "`" QuoteDate = "#" SQL = "" SQL_Ext = "" Redim Fields(18) Redim ParamMaster(18) Fields(0) = "Products.`ProductID`" Fields(1) = "Products.`ModelNumber`" Fields(2) = "Products.`WebActive`" Fields(3) = "Products.`PayID`" Fields(4) = "Products.`Brand`" Fields(5) = "Products.`Category`" Fields(6) = "Products.`ProdName`" Fields(7) = "Products.`ListPrice`" Fields(8) = "Products.`SellPrice`" Fields(9) = "Products.`Description`" Fields(10) = "Products.`Specifications`" Fields(11) = "Products.`Dimensions`" Fields(12) = "Products.`Color`" Fields(13) = "Products.`PicFileName`" Fields(14) = "Products.`InStock`" Fields(15) = "Products.`Availability`" Fields(16) = "Products.`ShippingInfo`" Fields(17) = "Products.`ShippingRates`" SQL = SQL & " Select" & vbCrLf SQL = SQL & " Products.`ProductID`," & vbCrLf SQL = SQL & " Products.`ModelNumber`," & vbCrLf SQL = SQL & " Products.`WebActive`," & vbCrLf SQL = SQL & " Products.`PayID`," & vbCrLf SQL = SQL & " Products.`Brand`," & vbCrLf SQL = SQL & " Products.`Category`," & vbCrLf SQL = SQL & " Products.`ProdName`," & vbCrLf SQL = SQL & " Products.`ListPrice`," & vbCrLf SQL = SQL & " Products.`SellPrice`," & vbCrLf SQL = SQL & " Products.`Description`," & vbCrLf SQL = SQL & " Products.`Specifications`," & vbCrLf SQL = SQL & " Products.`Dimensions`," & vbCrLf SQL = SQL & " Products.`Color`," & vbCrLf SQL = SQL & " Products.`PicFileName`," & vbCrLf SQL = SQL & " Products.`InStock`," & vbCrLf SQL = SQL & " Products.`Availability`," & vbCrLf SQL = SQL & " Products.`ShippingInfo`," & vbCrLf SQL = SQL & " Products.`ShippingRates`" & vbCrLf SQL = SQL & " From" & vbCrLf SQL = SQL & " Products Products" & vbCrLf Redim SearchMode(18) Redim StdSearchOpt(18) SearchMode(0) = 0 SearchMode(1) = 0 SearchMode(2) = 0 SearchMode(3) = 0 SearchMode(4) = 0 SearchMode(5) = 0 SearchMode(6) = 0 SearchMode(7) = 0 SearchMode(8) = 1 SearchMode(9) = 0 SearchMode(10) = 0 SearchMode(11) = 0 SearchMode(12) = 0 SearchMode(13) = 0 SearchMode(14) = 0 SearchMode(15) = 0 SearchMode(16) = 0 SearchMode(17) = 0 StdSearchOpt(0) = 0 StdSearchOpt(1) = 0 StdSearchOpt(2) = 0 StdSearchOpt(3) = 0 StdSearchOpt(4) = 0 StdSearchOpt(5) = 0 StdSearchOpt(6) = 0 StdSearchOpt(7) = 0 StdSearchOpt(8) = 0 StdSearchOpt(9) = 0 StdSearchOpt(10) = 0 StdSearchOpt(11) = 0 StdSearchOpt(12) = 0 StdSearchOpt(13) = 0 StdSearchOpt(14) = 0 StdSearchOpt(15) = 0 StdSearchOpt(16) = 0 StdSearchOpt(17) = 0 'Analyze the columns definitions. dim SQLTemp if InStr(UCase(SQL), " WHERE ") > 0 then SQLTemp = SQL & " And (1=0) " else SQLTemp = SQL & " Where (1=0) " end if RS.Open SQLTemp & " " & SQL_Ext, MyConn, 3, 1, 1 Filter_StringMaster = "" iConMaster = "" Filter_String = "" Qry_String = "" i = 0 for each Fld in RS.Fields if request("clearsession") = "1" then session.contents.remove("computer_store_search_fd"&i) session.contents.remove("computer_store_multisearch_fd"&i) session.contents.remove("computer_store_search_fd_"&i) end if if request("search_fd"&i) <> "" then session("computer_store_search_fd"&i) = request("search_fd"&i) end if if request("multisearch_fd"&i) <> "" then session("computer_store_multisearch_fd"&i) = request("multisearch_fd"&i) end if if request("search_fd_"&i) <> "" then session("computer_store_search_fd_"&i) = request("search_fd_"&i) end if if (SearchMode(i)=0) then ' 0 = Std, 1 = Advance if ((StdSearchOpt(i))=0) then ' 0=Contain , 1 = Equal, 2 = Between : for standard mode SearchStartKey = "%" SearchEndKey = "%" else SearchStartKey = "" SearchEndKey = "" end if else SearchStartKey = "" SearchEndKey = "" end if if (session("computer_store_search_fd"&i) <> "") and (session("computer_store_search_fd"&i) <> "*") then iData = session("computer_store_search_fd"&i) if Filter_StringMaster <> "" then iConMaster = " AND " end if iCon = " AND " iOldCon = "" if Left(iData,2) = "||" then iCon = " Or " iOpt = Mid(iData,3,2) iData = Right(iData,Len(iData) - 2) iOldCon = "||" else iOpt = Left(iData,2) end if iRealData = iData iStrData = Replace(iData,"*","%",1,1,1) iOpt = Left(iData,2) if (iOpt = "<=") or (iOpt = "=<") then iOpt = "<=" iRealData = Right(iData,Len(iData) - 2) elseif (iOpt = ">=") or (iOpt = "=>") then iOpt = ">=" iRealData = Right(iData,Len(iData) - 2) elseif iOpt = "==" then iOpt = "=" iRealData = Right(iData,Len(iData) - 2) elseif iOpt = "<>" then iRealData = Right(iData,Len(iData) - 2) else iOpt = Left(iData,1) if (iOpt = "<") or (iOpt = ">") or (iOpt = "=") then iRealData = Right(iData,Len(iData) - 1) else iOpt = "=" end if end if if Lcase(iData) = "{current date and time}" then iData = Now elseif Lcase(iData) = "{current date}" then iData = Date elseif Lcase(iData) = "{current time}" then iData = Time end if select case Fld.Type case adBoolean if (session("computer_store_multisearch_fd"&i) <> "") Then MultiSearch = session("computer_store_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&" " & "=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("computer_store_multisearch_fd"&i) Filter_String = "(" & Fields(i) & " " & iOpt & " " & iRealData & " " for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData & " " next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("computer_store_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & Fields(i) & " " & iOpt & " " & iRealData & " " for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData & " " next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i& "=" & iOldCon & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData & " " if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & " " & iOpt & " " & iRealData & " " end if else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & iRealData Filter_String = Filter_String & iCon & Fields(i) & " " & iOpt & " " & iRealData & " " if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & " " & iOpt & " " & iRealData & " " end if end if end if case adLongVarBinary 'noop case adDBDate, adDBTime, adDate, adDBTimeStamp, adFileTime if (Right(iStrData,1) = "*") then iStrData = Replace(iStrData,"*","%",1,-1,1) SearchEndKey = "" else istrdata = iRealData iStrData = Replace(iStrData,"*","%",1,-1,1) end if if ((iOpt = "=")) then ConditionStr = " = " iStrData = Replace(iStrData,"=","",1,1,1) else ConditionStr = iOpt iStrData = iRealData end if if (session("computer_store_multisearch_fd"&i) <> "") Then MultiSearch = session("computer_store_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("computer_store_multisearch_fd"&i) Filter_String = "(" & Fields(i) & ConditionStr & " " & QuoteDate & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & QuoteDate for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " " & QuoteDate & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & QuoteDate next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("computer_store_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & Fields(i) & ConditionStr & " " & QuoteDate & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & QuoteDate for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " " & QuoteDate & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & QuoteDate next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Filter_String = Fields(i) & ConditionStr & " " & QuoteDate & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & QuoteDate if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & ConditionStr & " " & QuoteDate & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & QuoteDate end if else Qry_String = Qry_String & "&search_fd"&i&"=" & iOldCon & QSURLencode(iData) Filter_String = Filter_String & iCon & Fields(i) & ConditionStr & " " & QuoteDate & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & QuoteDate if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & ConditionStr & " " & QuoteDate & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & QuoteDate end if end if end if case adBigInt, adUnsignedBigInt, adTinyInt, adSmallInt, adError, adInteger, adUnsignedInt, adUnsignedTinyInt, adUnsignedSmallInt, adDecimal, adNumeric, adVarNumeric if isNumeric(iRealData) then if (session("computer_store_multisearch_fd"&i) <> "") Then MultiSearch = session("computer_store_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("computer_store_multisearch_fd"&i) Filter_String = "(" & Fields(i) & " " & iOpt & " " & iRealData for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i&"=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("computer_store_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & Fields(i) & " " & iOpt & " " & iRealData for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & " " & iOpt & " " & iRealData end if else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & iData Filter_String = Filter_String & iCon & Fields(i) & " " & iOpt & " " & iRealData if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & " " & iOpt & " " & iRealData end if end if end if else Err_String = Err_String& "Error:while searching." & Fld.name & ".
" Err_String = Err_String& "Description: Type mismatch.
" end if case adSingle, adDouble, adCurrency if isNumeric(iRealData) then if (session("computer_store_multisearch_fd"&i) <> "") Then MultiSearch = session("computer_store_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("computer_store_multisearch_fd"&i) Filter_String = "(" & Fields(i) & " " & iOpt & " " & iRealData for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("computer_store_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & Fields(i) & " " & iOpt & " " & iRealData for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " " & iOpt & " " & iRealData next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & " " & iOpt & " " & iRealData end if else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & iData Filter_String = Filter_String & iCon & Fields(i) & " " & iOpt & " " & iRealData if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & " " & iOpt & " " & iRealData end if end if end if else Err_String = Err_String& "Error:while searching." & Fld.name & ".
" Err_String = Err_String& "Description: Type mismatch.
" end if case adChar, adVarChar, adLongVarChar, adWChar, adVarWChar, adLongVarWChar if (Right(iStrData,1) = "*") then iStrData = Replace(iStrData,"*","%",1,-1,1) SearchEndKey = "" else istrdata = iRealData iStrData = Replace(iStrData,"*","%",1,-1,1) end if if ((iOpt = "=")) then ConditionStr = " Like " iStrData = Replace(iStrData,"=","",1,1,1) else ConditionStr = iOpt iStrData = iRealData end if if (session("computer_store_multisearch_fd"&i) <> "") Then MultiSearch = session("computer_store_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("computer_store_multisearch_fd"&i) Filter_String = "(" & Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) &SearchEndKey & "'" next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & session("computer_store_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Filter_String = Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" if ParamMaster(i) <> "" then Filter_StringMaster = ParamMaster(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" end if else Qry_String = Qry_String & "&search_fd"&i&"=" & iOldCon & QSURLencode(iData) Filter_String = Filter_String & iCon & Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" end if end if end if case else if (session("computer_store_multisearch_fd"&i) <> "") Then MultiSearch = session("computer_store_multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("computer_store_multisearch_fd"&i) Filter_String = "(" & Fields(i) & " = '" & iRealData & "'" for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & " = '" & iRealData & "'" next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i& "=" & session("computer_store_multisearch_fd"&i) Filter_String = Filter_String & iCon & "(" & Fields(i) & iOpt & "'" & iRealData & "'" for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) + 1 Filter_String = Filter_String & " OR " & Fields(SearchIndex) & iOpt & "'" & iRealData & "'" next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i& "=" & iOldCon & QSURLencode(iData) Filter_String = Fields(i) & " = '" & QSReplaceSingleQuote(iRealData) & "'" if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & ParamMaster(i) & " = '" & QSReplaceSingleQuote(iRealData) & "'" end if else Qry_String = Qry_String & "&search_fd"&i& "=" & iOldCon & QSURLencode(iData) Filter_String = Filter_String & iCon & Fields(i) & iOpt & "'" & QSReplaceSingleQuote(iRealData) & "'" if ParamMaster(i) <> "" then Filter_StringMaster = Filter_StringMaster & iConMaster & ParamMaster(i) & iOpt & "'" & QSReplaceSingleQuote(iRealData) & "'" end if end if end if end select end if if (session("computer_store_search_fd_"&i) <> "") then iData = session("computer_store_search_fd_"&i) iStrData = Replace(iData,"*","%",1,1,1) iRealData = iData iOpt = Left(iData,2) if (iOpt = "<=") or (iOpt = "=<") then iOpt = "<=" iRealData = Right(iData,Len(iData) - 2) elseif (iOpt = ">=") or (iOpt = "=>") then iOpt = ">=" iRealData = Right(iData,Len(iData) - 2) elseif iOpt = "==" then iOpt = "=" iRealData = Right(iData,Len(iData) - 2) elseif iOpt = "<>" then iRealData = Right(iData,Len(iData) - 2) else iOpt = Left(iData,1) if (iOpt = "<") or (iOpt = ">") or (iOpt = "=") then iRealData = Right(iData,Len(iData) - 1) else iOpt = "=" end if end if select case Fld.Type case adDBDate, adDBTime, adDate, adDBTimeStamp, adFileTime if (Right(iStrData,1) = "*") then iStrData = Replace(iStrData,"*","%",1,-1,1) SearchEndKey = "" else istrdata = iRealData iStrData = Replace(iStrData,"*","%",1,-1,1) end if if ((iOpt = "=")) then ConditionStr = " = " iStrData = Replace(iStrData,"=","",1,1,1) else ConditionStr = iOpt iStrData = iRealData end if if Qry_String = "" Then Qry_string = "search_fd_"&i& "=" & iOpt & Qsurlencode(iStrData) Filter_String = Filter_String & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & SearchEndKey & QuoteDate Else Qry_string = Qry_string & "&search_fd_"&i& "=" & iOpt & Qsurlencode(iStrData) Filter_String =Filter_String & " AND " & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey & qsconvertdate2basedate(QSReplaceSingleQuote(iStrData)) & SearchEndKey & QuoteDate End If case adBigInt, adUnsignedBigInt, adTinyInt, adSmallInt, adError, adInteger, adUnsignedInt, adUnsignedTinyInt, adUnsignedSmallInt, adDecimal, adNumeric, adVarNumeric,adSingle, adDouble, adCurrency if isNumeric(iRealData) then if Qry_String = "" Then Qry_String = "search_fd_"&i&"=" & iOpt & iRealData Filter_String = Fields(i) & " " & iOpt & " " & iRealData else Qry_String = Qry_String & "&search_fd_"&i& "=" & iOpt & iRealData Filter_String = Filter_String & " AND " & Fields(i) & " " & iOpt & " " & iRealData end if else Err_String = Err_String& "Error:while searching." & Fld.name & ".
" Err_String = Err_String& "Description: Type mismatch.
" end if end select end if i = i + 1 next RS.Close if (Filter_String <> "") then Filter_String = "(" & Filter_String & ")" if InStr(UCase(SQL), "WHERE ") > 0 then SQL = SQL & " And " & Filter_String else SQL = SQL & " Where " & Filter_String end if end if SortString = "" if (Session("computer_store_SortField") <> "") then SQL = SQL & " Order By " & Session("computer_store_SortField") & " " & Session("computer_store_SortBy") SortString = "&SortField=" & QSURLencode(Session("computer_store_SortField")) & "&SortBy=" & Session("computer_store_SortBy") else SQL = SQL & " " & SQL_Ext end if %> AVS Computer Services - Online Shopping

"> "> <%CssClass = """TrOdd"""%> <% if Err_String <> "" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if %> <% if isEmpty(session("computer_store_search_fd5")) or (session("computer_store_search_fd5") = "*") then ItemValue = "*" else ItemValue = session("computer_store_search_fd5") iOpt = Left(ItemValue,2) if (iOpt = "==") then ItemValue = Right(ItemValue,Len(ItemValue) - 2) end if end if CellValue = "" CellValue = CellValue & "" if CellValue = "" then CellValue = " + sCrLf;" end if %>

Error:	" &Err_String& "
Category :	<%=CellValue%>

<% RS.Open SQL, MyConn, 3, 1, 1 if (Filter_String <> "") then Response.Write("Found "& RS.RecordCount & " record(s)") Response.Write("
") end if Page_Count = RS.PageCount if Current_Page > Page_Count Then Current_Page = 1 if Current_Page < 1 Then Current_Page = 1 if Page_Count > 0 then RS.AbsolutePage = Current_Page if Page_Count < 1 then Page_Count = 1 %> <% if Qry_String <> "" then NavQry_String = "&" & Qry_String else NavQry_String = "" end if Response.Write "Back to Site Control Panel | " Response.Write "" Response.Write "Show All | " Response.Write "Search | " Response.Write "Add New | " if (Current_Page mod 20) = 0 then StartPage = Current_Page - 19 else StartPage = Current_Page - (Current_Page mod 20) + 1 end if if (StartPage <> 1) then Response.Write(" ... | ") end if if Current_Page = 1 then Response.Write "Previous | " else Response.Write "Previous | " end if for i = 0 to 19 if (StartPage + i) <= Page_Count then if (StartPage + i) = Current_Page then Response.Write "" &(StartPage + i)& " | " else Response.Write"" &(StartPage + i)& " | " end if end if next if Current_Page = Page_Count then Response.Write "Next" else Response.Write "Next" end if if ((StartPage + 19)< Page_Count) then Response.Write(" | ... ") end if Response.Write "

" %> <% if (RS.RecordCount > 0) then %> <% intRowCount = 0 Do While RS.AbsolutePage = Current_Page And Not RS.EOF if intRowCount mod 2 = 0 then CssClass = """TrOdd""" else CssClass = """TrRows""" end if Response.Write "" for iRecCount = 1 To 2 Response.Write "" next Response.Write "" intRowCount = intRowCount + 1 Loop %>

" if Not RS.EOF then Response.Write "" Response.Write "" Response.Write "

" %>

<% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %>

<% CellValue = "" & Rs(6) & "" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>

List Price:	<% CellValue = "$" & QSFormatNumber(Rs(7),2,-1,0,-1) & "" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>
Sell Price:	<% CellValue = "$" & QSFormatNumber(Rs(8),2,-1,0,-1) & "" if CellValue = "" then CellValue = " " end if Response.Write CellValue %>

" Response.Write " " '########################################################## %>

<% CellValue = "" if CellValue = "" then CellValue = " " end if '####### code for send payment gate way ####### ValueShip = 0 Response.Write "

" Response.Write " " Response.Write " " Value = Rs(0) Response.Write " " Response.Write " " Value = Rs(7) Value = Rs(8) Response.Write " " Value = Rs(17) Response.Write " " Response.Write " " Response.Write " " Response.Write "

<% CellValue = "" if CellValue = "" then CellValue = " " end if Response.Write "" &CellValue& "" %>

<% Response.Write "

" Rs.MoveNext else Response.Write " " end if Response.Write "

<% else if (Filter_String <> "") then %>

No records matched your search criteria.

<% else %>

No record found.

<% end if end if %> <% if Qry_String <> "" then NavQry_String = "&" & Qry_String else NavQry_String = "" end if Response.Write "Back to Site Control Panel | " Response.Write "" Response.Write "Show All | " Response.Write "Search | " Response.Write "Add New | " if (Current_Page mod 20) = 0 then StartPage = Current_Page - 19 else StartPage = Current_Page - (Current_Page mod 20) + 1 end if if (StartPage <> 1) then Response.Write(" ... | ") end if if Current_Page = 1 then Response.Write "Previous | " else Response.Write "Previous | " end if for i = 0 to 19 if (StartPage + i) <= Page_Count then if (StartPage + i) = Current_Page then Response.Write "" &(StartPage + i)& " | " else Response.Write"" &(StartPage + i)& " | " end if end if next if Current_Page = Page_Count then Response.Write "Next" else Response.Write "Next" end if if ((StartPage + 19)< Page_Count) then Response.Write(" | ... ") end if Response.Write "

" %> <% RS.Close set RS = Nothing MyConn.Close set MyConn = Nothing %>