set rs = Server.CreateObject ("adodb.Recordset")
ssql = "SELECT [QUOTES DETAIL].QteLineSerialNbr, [QUOTES DETAIL].[NC/NR] AS NCNR, [QUOTES DETAIL].[QUOTE #], [QUOTES DETAIL].QTY, [QUOTES DETAIL].[CUST ITEM #] AS CustItem, [QUOTES DETAIL].MFG, [QUOTES DETAIL].[PART #] AS PartNum, [QUOTES DETAIL].PRICE, [QUOTES DETAIL].UM, [QUOTES DETAIL].[DEE COST] AS DeeCost, [QUOTES DETAIL].DELIVERY, [QUOTES DETAIL].NOTES, [QUOTES DETAIL].SOURCE, [QUOTES DETAIL].WIN, [QUOTES DETAIL].INTNOTE, [QUOTES DETAIL].TAG, [QUOTES DETAIL].MARK_UP, [QUOTES DETAIL].MinQty, [QUOTES DETAIL].StdPkgQty, [QUOTES DETAIL].[NC/NR], [QUOTES DETAIL].PriceBreakInfo, [QUOTES DETAIL].SEQ, [QUOTES DETAIL].CustMinQty, [QUOTES DETAIL].CustMultQty, [QUOTES DETAIL].VenMarginRating, [QUOTES DETAIL].VendorID, [QUOTES DETAIL].MfgOrderFrequencyInfo, [QUOTES DETAIL].CurrentBiz, INVENTORYMASTER1.OH, INVENTORYMASTER1.OO, INVENTORYMASTER1.SCHDOO, INVENTORYMASTER1.[90DayUsage] AS NinetyDay, [QUOTES DETAIL].PartID AS PartID, [QUOTES DETAIL].NCPipelineQty, [QUOTES DETAIL].NCWindowDays, [QUOTES DETAIL].InvCode, [QUOTES DETAIL].TotQty, [QUOTES DETAIL].Turns, [QUOTES DETAIL].FacMin, [QUOTES DETAIL].[Frt%] AS FrtPer, [QUOTES DETAIL].Schd, [QUOTES DETAIL].TargetPrice, [QUOTES DETAIL].WgtFctr, [QUOTES DETAIL].OrderQty, INVENTORYMASTER1.BestSplCost, INVENTORYMASTER1.BestSplEndDt, [DEE COST]*[TotQty] AS ExtendedCost"
ssql = ssql & " FROM [QUOTES DETAIL] LEFT JOIN INVENTORYMASTER1 ON [QUOTES DETAIL].PartID = INVENTORYMASTER1.ID"

if len(intQteLineSerialNbr) > 0 then
	ssql = ssql & " WHERE ([QUOTES DETAIL].QteLineSerialNbr = "&intQteLineSerialNbr&")"
else
	ssql = ssql & " WHERE ([QUOTES DETAIL].[QUOTE #] = "&intQuoteNum&")"	
end if

ssql = ssql & " ORDER BY "&strSortColumn&""

rs.Open ssql, dbc, adOpenForwardOnly, adLockReadOnly

for r = 10 to 20
   display 10th to 20th records
next