<%
'Get Featured Products
mySQL="SELECT idProduct,description,descriptionLong," _
& " listPrice,price,smallImageUrl,stock," _
& " fileName,noShipCharge,sortOrder,handlingFee " _
& "FROM products " _
& "WHERE active = -1 " _
& "AND homePage = -1 " _
& "ORDER BY sortOrder ASC,idProduct DESC "
set rsTemp = openRSopen(mySQL,adUseClient,adOpenStatic,adLockOptimistic,adCmdText,0)
'Randomize the recordset
if homeViewRandom > 0 and rsTemp.RecordCount > 2 then
'Disconnect recordset and initialize random seed
set rsTemp.ActiveConnection = nothing
randomize()
'Update sortOrder field with random numbers and sort
do while not rsTemp.EOF
rsTemp.Update "sortOrder",Int((9999 * Rnd) + 1)
rsTemp.MoveNext
loop
rsTemp.Sort = "sortOrder"
'Delete any extra records from disconnected recordset
rsTemp.move homeViewRandom,1
do while not rsTemp.EOF
rsTemp.Delete
rsTemp.MoveNext
loop
'Reposition to first record
rsTemp.MoveFirst
end if
'If Featured Products = 0 then use "_INCright_.asp"
if rsTemp.EOF or showFeaturedProducts = 0 then
call noProd()
else
'If Featured Products <= 2 then display single rows
if rsTemp.RecordCount <= 2 then
do while not rsTemp.EOF
call singleProd()
if not rsTemp.EOF then
rsTemp.MoveNext
end if
loop
'If Featured Products > 2 then display double rows
else
do while not rsTemp.EOF
call doubleProd()
'call tripleProd()
if not rsTemp.EOF then
rsTemp.MoveNext
end if
loop
end if
end if
%>
|
