<%@Language=VBScript%> <% Option Explicit 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 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 sPos Dim iData Dim iRealData Dim iStrData Dim iOpt Dim Qry_String Dim NavQry_String Dim Filter_String 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 PaypalCode Dim PaypalDesc Dim PaypalPrice Dim ConditionStr %> <% 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 RS.CursorLocation = 3 if request("Page") = "" Then Current_Page = 1 else Current_Page = CInt(request("Page")) end if Page_Size = 70 RS.PageSize = Page_Size QuoteChar = "`" QuoteDate = "#" SQL = "" SQL_Ext = "" ReDim Fields(8) Fields(0) = "clearance.Type" Fields(1) = "clearance.Color" Fields(2) = "clearance.Model" Fields(3) = "clearance.Style" Fields(4) = "clearance.`Size`" Fields(5) = "clearance.`Bone #`" Fields(6) = "clearance.Manuf" Fields(7) = "clearance.Options" SQL = SQL & " Select" SQL = SQL & " clearance.Type," SQL = SQL & " clearance.Color," SQL = SQL & " clearance.Model," SQL = SQL & " clearance.Style," SQL = SQL & " clearance.`Size`," SQL = SQL & " clearance.`Bone #`," SQL = SQL & " clearance.Manuf," SQL = SQL & " clearance.Options" SQL = SQL & " From" SQL = SQL & " clearance clearance" ReDim SearchMode(8) ReDim StdSearchOpt(8) SearchMode(0) = 1 SearchMode(1) = 1 SearchMode(2) = 1 SearchMode(3) = 1 SearchMode(4) = 1 SearchMode(5) = 1 SearchMode(6) = 1 SearchMode(7) = 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 RS.Open SQL & " " & SQL_Ext, MyConn, 3, 1, 1 Filter_String = "" Qry_String = "" i = 0 for each Fld in RS.Fields if (SearchMode(i)=0) then ' 0 = Std, 1 = Advance if ((StdSearchOpt(i))=0) then ' 0=Contain , 1 = Equal : for standard mode SearchStartKey = "%" SearchEndKey = "%" else SearchStartKey = "" SearchEndKey = "" end if else SearchStartKey = "" SearchEndKey = "" end if if (request("search_fd"&i) <> "") and (request("search_fd"&i) <> "*") then iData = request("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 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 (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&" " & "=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("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& "=" & iData Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & 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& "=" & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData & " " else Qry_String = Qry_String & "&search_fd"&i& "=" & iRealData Filter_String = Filter_String & " AND " & Fields(i) & " " & iOpt & " " & iRealData & " " 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 (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = "(" & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) &SearchEndKey & QuoteDate next Filter_String = Filter_String & ")" else Qry_String = Qry_String & "&search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate for j = 0 To UBound(SearchArray) SearchIndex = Cint(SearchArray(j)) Filter_String = Filter_String & " OR " & Fields(SearchIndex) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate next Filter_String = Filter_String & ")" end if else if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Filter_String = Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate else Qry_String = Qry_String & "&search_fd"&i&"=" & QSURLencode(iData) Filter_String = Filter_String & " AND " & Fields(i) & ConditionStr & " " & QuoteDate & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & QuoteDate end if end if case adBigInt, adUnsignedBigInt, adTinyInt, adSmallInt, adError, adInteger, adUnsignedInt, adUnsignedTinyInt, adUnsignedSmallInt, adDecimal, adNumeric, adVarNumeric if isNumeric(iRealData) then if (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("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&"=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & 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&"=" & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData else Qry_String = Qry_String & "&search_fd"&i& "=" & iData Filter_String = Filter_String & " AND " & Fields(i) & " " & iOpt & " " & iRealData 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 (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("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& "=" & iData Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & 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&"=" & iData Filter_String = Fields(i) & " " & iOpt & " " & iRealData else Qry_String = Qry_String & "&search_fd"&i& "=" & iData Filter_String = Filter_String & " AND " & Fields(i) & " " & iOpt & " " & iRealData 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 (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("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&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i&"=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & 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&"=" & QSURLencode(iData) Filter_String = Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" else Qry_String = Qry_String & "&search_fd"&i&"=" & QSURLencode(iData) Filter_String = Filter_String & " AND " & Fields(i) & ConditionStr & " '" & SearchStartKey &QSReplaceSingleQuote(iStrData) & SearchEndKey & "'" end if end if case else if (request("multisearch_fd"&i) <> "") Then MultiSearch = request("multisearch_fd"&i) SearchArray = Split(MultiSearch,",",-1,1) if Qry_String = "" Then Qry_String = "search_fd"&i&"=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("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& "=" & QSURLencode(iData) Qry_String = Qry_String & "&multisearch_fd"&i& "=" & request("multisearch_fd"&i) Filter_String = Filter_String & " AND " & "(" & 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& "=" & QSURLencode(iData) Filter_String = Fields(i) & " = '" & QSReplaceSingleQuote(iRealData) & "'" else Qry_String = Qry_String & "&search_fd"&i& "=" & QSURLencode(iData) Filter_String = Filter_String & " AND " & Fields(i) & iOpt & "'" & QSReplaceSingleQuote(iRealData) & "'" end if end if end select end if i = i + 1 next RS.Close if (Filter_String <> "") then SQL = SQL & " Where " & Filter_String end if SortString = "" if (request("SortField") <> "") then SQL = SQL & " Order By " & request("SortField") & " " & request("SortBy") SortString = "&SortField=" & request("SortField") & "&SortBy=" & request("SortBy") else SQL = SQL & " " & SQL_Ext end if RS.Open SQL, MyConn, 3, 1, 1 Page_Count = RS.PageCount if Current_Page > Page_Count Then Current_Page = Page_Count 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 %> Gravina Window and Door Clearance Center
 


Below is our current list of clearance window and door items. NOTE: All items sold "as is".
You can sort any column by clicking on the arrows at the top of each column.

All sizes are width by height. If you have any questions, please call Gina or Nick.

(Updated 2/12/10)

<% if Qry_String <> "" then NavQry_String = "&" & Qry_String else NavQry_String = "" end if Response.Write "First Page | " if Current_Page > 1 then Response.Write "Previous | " else Response.Write "Previous | " end if if Current_Page < Page_Count then Response.Write "Next | " else Response.Write "Next | " end if Response.Write "Last Page | " Response.Write "Bottom

" if (Filter_String <> "") then Response.Write("Found "& RS.RecordCount & " record(s)") end if if (RS.RecordCount > 0) then %> <% if (request("SortField") = Fields(0)) then if (request("SortBy") <> "") then if UCASE(request("SortBy")) ="ASC" then NextSortASC = "" NextSortDESC = "" else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if %> <% if (request("SortField") = Fields(1)) then if (request("SortBy") <> "") then if UCASE(request("SortBy")) ="ASC" then NextSortASC = "" NextSortDESC = "" else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if %> <% if (request("SortField") = Fields(2)) then if (request("SortBy") <> "") then if UCASE(request("SortBy")) ="ASC" then NextSortASC = "" NextSortDESC = "" else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if %> <% if (request("SortField") = Fields(3)) then if (request("SortBy") <> "") then if UCASE(request("SortBy")) ="ASC" then NextSortASC = "" NextSortDESC = "" else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if %> <% if (request("SortField") = Fields(4)) then if (request("SortBy") <> "") then if UCASE(request("SortBy")) ="ASC" then NextSortASC = "" NextSortDESC = "" else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if %> <% if (request("SortField") = Fields(5)) then if (request("SortBy") <> "") then if UCASE(request("SortBy")) ="ASC" then NextSortASC = "" NextSortDESC = "" else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if %> <% if (request("SortField") = Fields(6)) then if (request("SortBy") <> "") then if UCASE(request("SortBy")) ="ASC" then NextSortASC = "" NextSortDESC = "" else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if %> <% if (request("SortField") = Fields(7)) then if (request("SortBy") <> "") then if UCASE(request("SortBy")) ="ASC" then NextSortASC = "" NextSortDESC = "" else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if else NextSortASC = "" NextSortDESC = "" end if %> <% intRowCount = 0 Do While RS.AbsolutePage = Current_Page And Not RS.EOF Response.Write "" if intRowCount mod 2 = 0 then CssClass = """TrOdd""" else CssClass = """TrRows""" end if CellValue = ""&Rs(0)&"" if CellValue = "" then CellValue = " " end if Response.Write "" CellValue = ""&Rs(1)&"" if CellValue = "" then CellValue = " " end if Response.Write "" CellValue = ""&Rs(2)&"" if CellValue = "" then CellValue = " " end if Response.Write "" CellValue = ""&Rs(3)&"" if CellValue = "" then CellValue = " " end if Response.Write "" CellValue = ""&Rs(4)&"" if CellValue = "" then CellValue = " " end if Response.Write "" CellValue = ""&Rs(5)&"" if CellValue = "" then CellValue = " " end if Response.Write "" CellValue = ""&Rs(6)&"" if CellValue = "" then CellValue = " " end if Response.Write "" CellValue = ""&Rs(7)&"" if CellValue = "" then CellValue = " " end if Response.Write "" Response.Write "" intRowCount = intRowCount + 1 Rs.MoveNext Loop %>
<%=NextSortASC%>  Type  <%=NextSortDESC %><%=NextSortASC%>  Color  <%=NextSortDESC %><%=NextSortASC%>  Model  <%=NextSortDESC %><%=NextSortASC%>  Style  <%=NextSortDESC %><%=NextSortASC%>  Size  <%=NextSortDESC %><%=NextSortASC%>  Bone #  <%=NextSortDESC %><%=NextSortASC%>  Manuf  <%=NextSortDESC %><%=NextSortASC%>  Options  <%=NextSortDESC %>
" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "" &CellValue& "

<% else if (Filter_String <> "") then %>
No record 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 "First Page | " if Current_Page > 1 then Response.Write "Previous | " else Response.Write "Previous | " end if if Current_Page < Page_Count then Response.Write "Next | " else Response.Write "Next | " end if Response.Write "Last Page | " Response.Write "Top

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