<%
Function ShowAllRetsListings
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 = "outer banks/real estate/buxton"
Filename = "'http://www.outerbanks-real-estate.com/outer banks/real estate/buxton/" & r("mlsno").value & "-" & replace(r("address").value," ","-") & "-" & replace(r("city").value," ","-") & "-" & r("state").value & "-" & r("zip").value & ".asp'"
if se = "s" then
response.write("" & vheading & "
" & formatcurrency(r("askprice").value,0) & "
Bedrooms" & " " & r("beds").value & "
Full Baths" & " " & r("fbaths").value & "")
response.write(" ")
elseif se = "l" then
response.write("" & vheading & "
" & formatcurrency(r("askprice").value,0) & " ")
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("" & vheading & "
" & formatcurrency(r("askprice").value,0) & " ")
response.write("")
else
response.write("" & vheading & " "& " " & "
Asking: " & formatcurrency(r("askprice").value,0) & "
Beds-" & r("beds").value & " " & " " & "Baths-" & r("fbaths").value & " " & "SqFt: " & " " & r("htdlvarsf").value & "
" & mid(r("remarks").value,1,185) & " MORE" & "
Call Agent 800-647-1868 " & "
")
end if
r.movenext
loop
end if
response.write("")
End Function
%>
<%
Function ShowRetsSoldListings
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 = "outer banks/real estate/buxton"
Filename = "'http://www.outerbanks-real-estate.com/outer banks/real estate/buxton/" & r("mlsno").value & "-" & replace(r("address").value," ","-") & "-" & replace(r("city").value," ","-") & "-" & r("state").value & "-" & r("zip").value & ".asp'"
if se = "s" then
response.write("" & vheading & "
" & formatcurrency(r("askprice").value,0) & "
Bedrooms" & " " & r("beds").value & "
Full Baths" & " " & r("fbaths").value & " | ")
response.write("")
elseif se = "l" then
response.write(" " & vheading & "
" & formatcurrency(r("askprice").value,0) & " ")
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("" & vheading & "
" & formatcurrency(r("askprice").value,0) & " ")
response.write("")
else
response.write("" & vheading & " "& " " & "
Asking: " & formatcurrency(r("askprice").value,0) & "
: " & formatcurrency(r("SoldPrice").value,0) & " " & " " & "Closing Date: " & r("CloseDate").value & "
Beds-" & r("beds").value & " " & " " & "Baths-" & r("fbaths").value & "
" & mid(r("remarks").value,1,185) & "
")
end if
r.movenext
loop
end if
response.write("")
End Function
%><%
Function ShowAllRetsLandListings
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 = "outer banks/real estate/buxton"
Filename = "'http://www.outerbanks-real-estate.com/outer banks/real estate/buxton/" & r("mlsno").value & "-" & replace(r("address").value," ","-") & "-" & replace(r("city").value," ","-") & "-" & r("state").value & "-" & r("zip").value & ".asp'"
if se = "s" then
response.write("" & vheading & "
" & formatcurrency(r("askprice").value,0) & "
Bedrooms" & " " & r("beds").value & "
Full Baths" & " " & r("fbaths").value & " | ")
response.write("")
elseif se = "l" then
response.write(" " & vheading & "
" & formatcurrency(r("askprice").value,0) & " ")
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("" & vheading & "
" & formatcurrency(r("askprice").value,0) & " ")
response.write("")
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("")
End Function
%>
<%
Function ShowRetsSoldLandListings
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 = "outer banks/real estate/buxton"
Filename = "'http://www.outerbanks-real-estate.com/outer banks/real estate/buxton/" & r("mlsno").value & "-" & replace(r("address").value," ","-") & "-" & replace(r("city").value," ","-") & "-" & r("state").value & "-" & r("zip").value & ".asp'"
if se = "s" then
response.write("" & vheading & "
" & formatcurrency(r("askprice").value,0) & "
Bedrooms" & " " & r("beds").value & "
Full Baths" & " " & r("fbaths").value & " | ")
response.write("")
elseif se = "l" then
response.write(" " & vheading & "
" & formatcurrency(r("askprice").value,0) & " ")
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("" & vheading & "
" & formatcurrency(r("askprice").value,0) & " ")
response.write("")
else
response.write("" & vheading & " "& " " & "
Asking: " & formatcurrency(r("askprice").value,0) & " " & "
: " & formatcurrency(r("SoldPrice").value,0) & " " & " " & "Closing Date: " & r("CloseDate").value & "
" & mid(r("remarks").value,1,185) & " MORE" & "
Call Agent 800-647-1868 " & "
")
end if
r.movenext
loop
end if
response.write("")
End Function
%>
 Buxton Homes For Sale on Hatteras Island
<%
temp = "select * from retsproperty where type = 'Single Family - Detached' and city='Buxton' and StatusCat='active'"
ShowAllRetsListings
%>
Buxton Homes Sold Recently
The properties below are NOT For Sale. These properties SOLD recently.
<%
temp = "select * from retsproperty where type = 'Single Family - Detached' and city='Buxton' and StatusCat= 'sold'"
ShowRetsSoldListings
%>
There are areas, referred to as COBRA Zones, where FEMA backed flood insurance is not available.
This plat of Buxton outlines the COBRA Zone. Please do not use this plat to make an important decision. If you have any question as to whether a house/property is insurable, please enlist the sevice of a professional. This plat is being provided to help educate you about flood insurance and is not an accurate survey.
| 
