<% dim iOrderBy, strOrderby, iDescAsc, strAscDesc iOrderBy = RandomNumber(5) If iOrderBy = 1 then strOrderby = "listing.id" ElseIf iOrderBy = 2 Then strOrderby = "listing.city" ElseIf iOrderBy = 3 Then strOrderby = "listing.targetState" ElseIf iOrderBy = 4 Then strOrderby = "listing.price" Else strOrderby = "listing.address1" End If iDescAsc = RandomNumber(1) If iDescAsc = 1 then strAscDesc = "ASC" Else strAscDesc = "DESC" End If 'Show featured homes if selected to be on home page set rs1 = conn.execute("Select listing.address1, listing.city, listing.targetState, listing.price, listing.pic1, featuredlistings.show_home_pic, featuredlistings.show_home_price, featuredlistings.show_home_address, listing.id, featuredlistings.listing_id, featuredlistings.active, listing.address1 from listing INNER JOIN featuredlistings ON listing.id = featuredlistings.listing_id where (realtor="& iAgentID &") and (active=1) and (featuredlistings.show_home_pic=1 OR featuredlistings.show_home_price=1 or featuredlistings.show_home_address=1) order by "& strOrderby &" "& strAscDesc &" LIMIT 1") If not rs1.eof then If (NOT isnull(rs1("pic1"))) AND (rs1("pic1") <> "") and (rs1("show_home_pic")=1) then response.write "
" End if If (rs1("price") <> "") AND (rs1("show_home_price") = 1) Then response.write " " Else response.write " " End If If (rs1("address1") <> "") AND (rs1("show_home_address") = 1) Then response.write "" Else response.write "" End If End if set rs1 = nothing Function RandomNumber(intHighestNumber) Randomize RandomNumber = Int(Rnd * intHighestNumber) + 1 End Function %>