<% 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 %>
Maryland Real Estate
Welcome to The Carmen Group’s online center for real estate information! The purchase of your home or investment property is usually the largest investment that you will ever make. You can’t afford to trust the details of making such a purchase with anyone other than a full time real estate professional. The Maryland real estate market has been moving at a lightning pace. What you need is a real estate professional that knows the market, can quickly evaluate the properties available and can be there when YOU need to make your move.
Severna Park and Annapolis, Maryland
Severna Park is a well established, mature community in Anne Arundel county Maryland. As the county shares nearly 450 miles of shoreline, Severna Park has numerous waterfront residential communities bordered by the Severn or Magothy Rivers . If you are looking for a mature tree-lined neighborhood to watch the sunset over the waters......you will undoubtedly find it in Severna Park .
"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."
<%
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 "
