<% set rs = conn.execute("Select featuredlistings.show_home_pic, featuredlistings.show_home_price, featuredlistings.show_home_address, listing.price, listing.id, listing.pic1, featuredlistings.listing_id, featuredlistings.active, listing.address1 from listing INNER JOIN featuredlistings ON listing.id = featuredlistings.listing_id where realtor="& iAgentID &" and active=1")
If rs.eof then
%>
<% else %>
<%end if
set rs = conn.execute("Select featuredlistings.show_home_pic, featuredlistings.show_home_price, featuredlistings.show_home_address, listing.id, listing.pic1, 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 (show_home_pic =1 OR show_home_price =1 AND show_home_price =1)")
If rs.eof then
%>
<% else %>
<%
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 "
"& formatcurrency(rs1("price")) &"
"
Else
response.write " "
End If
If (rs1("address1") <> "") AND (rs1("show_home_address") = 1) Then
response.write "
"&rs1("address1")&"
"
Else
response.write ""
End If
End if
set rs1 = nothing
Function RandomNumber(intHighestNumber)
Randomize
RandomNumber = Int(Rnd * intHighestNumber) + 1
End Function
%>
<% end if %>
Welcome to Regotti.com
The Fourth of July BBQ!
Regotti.com is a real estate website dedicated to providing you with all of the tools and resources you will need to find your next home, find the value of your current home, and even give you access to real estate information that every home buyer, seller and homeowner should know. In addition to this information, we also give you direct access to the local MLS, where you can view all homes that are for sale by all Realtors® in the State of Maryland and the Washington Metro areas.
Maryland Real Estate Information Center Welcome to our online real estate resource center for Maryland. You can find listings of homes that are for sale, home buying and selling guides, inspectors and other tools that will make your real estate transaction much easier.
Meet Your Agent, Joe Regotti Joe Regotti, Realtor®
Realty Executives Premier 3919 National Drive, Suite 310
Burtonsville, Maryland 20866
Brokerage Office:
301-476-7700
"Disclosure: Information about Maryland real estate broker listed homes for sale from the Internet Data Exchange (IDX) contained in this website is provided by the Metropolitan Regional Information System (MRIS) through participating IDX brokers."