<% Function SetPath(city) city = lcase(city) 'response.write("City=" & city) If city = "colington" Then vpath = "colington" ElseIf city = "corolla" Then vpath = "corolla" ElseIf city = "duck" Then vpath = "duck" ElseIf city = "hatteras" Then vpath = "hatteras island" ElseIf city = "kill devil hills" Then vpath = "KillDevilHills" ElseIf city = "kitty hawk" Then vpath = "KittyHawk" ElseIf city = "Kitty Hawk" Then vpath = "KittyHawk" ElseIf city = "manteo" Then vpath = "manteo" ElseIf city = "nags head" Then vpath = "nags head" ElseIf city = "southern shores" Then vpath = "southern-shores" ElseIf city = "rodanthe" Then vpath = "rodanthe" ElseIf city = "waves" Then vpath = "waves" ElseIf city = "salvo" Then vpath = "salvo" ElseIf city = "avon" Then vpath = "avon" ElseIf city = "buxton" Then vpath = "buxton" ElseIf city = "frisco" Then vpath = "frisco" End If SetPath = "outer banks/real estate/" & vpath End Function %> <% Function ShowAllRetsListings response.write("") temp = replace(temp,"select * from retsproperty where","select * from retsproperty where status not like '%sold%' and ") 'response.write(temp) set (temp) if not r.eof and not r.bof then do while not r.eof and not r.bof vheading = r("address").value & "," & " " & r("city").value vphotos=r("photos").value if len(vphotos) > 0 then vphotos= mid(vphotos,1,len(vphotos)-1) Newphotofiles = Split(vphotos, "@") vfile="https://" & Newphotofiles(0) else vfile="https://obimages.rewebs.net/nophoto.gif" end if DirName=SetPath(r("city").value) Filename = "'http://www.outerbanks-real-estate.com/" & DirName & "/" & r("mlsno").value & "-" & replace(r("address").value," ","-") & "-" & replace(r("city").value," ","-") & "-" & r("state").value & "-" & r("zip").value & ".asp'" if se = "s" then response.write("") response.write("") elseif se = "l" then response.write("") response.write("") elseif se="bank" then Filename = "http://www.outerbanks-real-estate.com/NewShowProperty.asp?source=bank&aid=" & aid & "&mls=" & r("mlsno").value & "&id=" & id & "&type=1" response.write("") response.write("") '","37gtrj9") & "&Pgno=" & PgNo & "> else response.write("

" & vheading & " "& " " & "
Asking: " & formatcurrency(r("askprice").value,0) & "
" & mid(r("remarks").value,1,185) & " MORE" & "
Call Agent 800-647-1868 " & "

") end if r.movenext loop end if response.write("
" & Headline & "

" & vheading & "
" & formatcurrency(r("askprice").value,0) & "

" & vheading & "
" & formatcurrency(r("askprice").value,0) & "

" & vheading & "
" & formatcurrency(r("askprice").value,0) & "

") End Function %>
Shore Realty Outer Banks Home Sales
Search Outer Banks MLS real estate

Outer Banks Boat Slips

This list below contains the Boat Slips currently for sale at some of the area Marinas.

 

<% temp = "select * from retsproperty where class='LOTS/LAND' and type = 'Boat Slip' and county = 'Dare' and AskPrice > 0 and AskPrice < 75000 and StatusCat= 'active'" ShowAllRetsListings %> <% temp = "select * from retsproperty where class='LOTS/LAND' and type = 'Boat Slip' and county = 'Dare' and AskPrice > 75000 and StatusCat= 'active'" ShowAllRetsListings %>

You can find the Boat Slips that have SOLD recently HERE.

Search Outer Banks MLS real estate

Shore Realty of the Outer Banks Inc.
Locally Owned & Operated
252-441-3416 OR 800-647-1868

About Us | Testimonials & Reviews | Privacy Policy | Site Map | OBX Blog | Contact Us

©1995-2024 Shore Realty OBX Inc.