Residential
We are a State Certified General Building
Contractor
(CBC058067)
Site
Built Custom Home -
Design build feature...The architect and Dan will sit with
you, the customer to design the specific custom home you want.
Once the blueprints are created then a virtual reality tour of
the home is created so you can see a 3D rendering of the plans
before the house is even built!
Modular
Built Custom Home
- Custom built to your specifications in an enclosed
factory. Several advantages over a site built home:
Lower overall costs
30 - 90 day move-in
Many more
Contact us for additional
information
We can
help you build your dream TODAY!
Remodeling
- Complete home and condominium remodeling to include:
Kitchens
Bathrooms
Room Additions
Solid Surface Countertops
Ceramic Tile
Finished Carpentry
Carpet
Paint
Laminate Flooring
Brick & Block Work
Foundations
Hurricane / Tornado Safe
Rooms
<%
' Graphical Hit Counter Example By www.PowerASP.com
' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
Dim FixedDigitCount
Dim DigitCount
Dim DigitCountLength
Dim DigitZerosToAdd
Dim DigitZeroCount
Dim ShowDigits
Dim DigitPath
' (FixedDigitCount) will add zeros to the front of your count
' if the count is less then the (FixedDigitCount)
' just like "frontpage" counters let you do
FixedDigitCount = 5
DigitPath = "digits/red_on_white"
On Error Resume Next
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
CounterFile = Server.MapPath ("counter.txt")
Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If
ReadCounterFile.Close
Set ReadCounterFile = Nothing
CounterHits = CounterHits + 1
Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing
Set ObjCounterFile = Nothing
DigitCountLength = Len(CounterHits)
If DigitCountLength < FixedDigitCount Then
DigitZerosToAdd= FixedDigitCount - DigitCountLength
DigitZeroCount = 1
For DigitZeroCount = DigitZeroCount to DigitZerosToAdd
ShowDigits = ShowDigits & ""
Next
End If
DigitCount = 1
For DigitCount = DigitCount to DigitCountLength
ShowDigits = ShowDigits & ""
Next
%>
<% =ShowDigits %>
