Back to Homepage
PH: 281.858.9696
Welcome to Custom Outdoors














Pool Nanny Pool School
Better Business Bureau
The Association of Pool & Spa Professionals
Greater Houston Builders Association
Since 1996 Custom Outdoors has brought vibrant and exciting outdoor decor to many businesses and residences. Call us today for a free consultation and we'll suggest many options to fit your budget, location and desires. We help bring your outdoors to life.
Thinking about a new deck or patio with a shade arbor? Dreaming of a new pool or just sprucing up an old one? Perhaps you are looking into a waterfall, fountain or maybe a fishpond to jazz up that empty space in your yard that just needs something?
Check out our extensive portfolio gallery
for examples of our work.

<% dim menu menu=Request.querystring("menu") Select Case menu case Empty Open() case "WhyChooseUs" Whychooseus() case "Gazebos" Gazebo() case "Surfaces" Surface() case "Construction" Construction() case "ShadeArbors" Shadearbors() case "Spa" Spa() case "SprayWash" Spraywash() case "SwimmingPools" Swimmingpools() case "WoodDecks" Wooddecks() case "Waterfalls" Waterfalls() case "BathPoolHouses" BathPoolHouses() case "FenceLattice" FenceLattice() case "Flagstone" Flagstone() case "Lagoons" Lagoons() case "RoomAdditions" RoomAdditions() case "TexasPorches" TexasPorches() case "UniquePools" UniquePools() case "Walkways" Walkways() case "SpecialItems" SpecialItems() case else Enlarge() End Select sub Open() response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf response.write "" & vbCrLf & vbcrlf response.Write "
" & vbcrlf response.Write "
" & vbcrlf response.Write "
Member of the
GREATER HOUSTON BUSINESS ASSOCIATION" end sub sub PaintThumbs(folder) dim fs, f, f1, f2, fc, i, filename, result, picture, size, drive i = 1 Set fs = CreateObject("Scripting.FileSystemObject") drive = Server.MapPath("/") 'drive = "c:\documents and settings\falcon\websites\customoutdoors\live\" 'Response.Write drive 'Response.End Set f = fs.GetFolder(drive & "\Images\" & folder) Set fc = f.Files For Each f1 in fc if inStr(f1.name, "thumb") Then filename = f1.name size = len(filename) - 9 picture = Left(filename, size) & ".jpg" response.write "" response.write "Click To Enlarge"& vbCrLf ' Print a line to seperate images i=i+1 if i=5 Then response.write "
" & vbCrLf i=1 end if end if Next end sub sub Enlarge() response.write "" & vbCrLf end sub sub Whychooseus() %>
<% end sub sub BathPoolHouses() Response.Write "

Bath & Pool Houses

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("BathPoolHouses") response.write "

" & vbCrLf end sub sub Construction() Response.Write "

Construction

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("construction") response.write "

" & vbCrLf end sub sub FenceLattice() Response.Write "

Fence & Lattice

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("Fence") response.write "

" & vbCrLf end sub sub Flagstone() Response.Write "

Flagstone

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("Flagstone") response.write "

" & vbCrLf end sub sub Gazebo() Response.Write "

Gazebos

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("gazebo") response.write "

" & vbCrLf end sub sub Lagoons() Response.Write "

Natural Fish Ponds

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("Lagoon") response.write "

" & vbCrLf end sub sub RoomAdditions() Response.Write "

Room Additions

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("RoomAdditions") response.write "

" & vbCrLf end sub sub Shadearbors() Response.Write "

Shade Arbors

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("arbor") response.write "

" & vbCrLf end sub sub Spa() Response.Write "

Spas

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("spa") response.write "

" & vbCrLf end sub sub Spraywash() Response.Write "

Spray Wash

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("wash") response.write "

" & vbCrLf end sub sub Surface() Response.Write "

Patio Surfaces

" &vbCrLf Response.Write "

Flagstone

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("surface/surface_flagstone") response.write "

" & vbCrLf Response.Write "

Peagravel

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("surface/surface_peagravel") response.write "

" & vbCrLf Response.Write "

Brick Pavers

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("surface/surface_brickpavers") response.write "

" & vbCrLf Response.Write "

Americoat / Sundek

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("surface/surface_americoat") response.write "

" & vbCrLf end sub sub Swimmingpools() Response.Write "

Swimming Pools

" &vbCrLf Response.Write "

Pebble Tec

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("pool/pool_pebbletec") response.write "

" & vbCrLf Response.Write "

White Plaster

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("pool/pool_whiteplaster") response.write "

" & vbCrLf end sub sub TexasPorches() Response.Write "

Texas Porches

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("TexasPorches") response.write "

" & vbCrLf end sub sub UniquePools() Response.Write "

Unique Pool Features

" &vbCrLf Response.Write "

Bar Stools

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/bar_stools") response.write "

" & vbCrLf Response.Write "

Bubblers

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/bubblers") response.write "

" & vbCrLf Response.Write "

Dive Rocks / Accent Boulders

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/dive_rocks") response.write "

" & vbCrLf Response.Write "

Flagstone On Steps

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/flagstone_on_steps") response.write "

" & vbCrLf Response.Write "

Mosaic Tile

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/mosaic_tile") response.write "

" & vbCrLf Response.Write "

Poolside Dry Bar

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/poolside_drybar") response.write "

" & vbCrLf Response.Write "

Poolside Planters

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/poolside_planters") response.write "

" & vbCrLf Response.Write "

Raised Beam

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/raised_beam") response.write "

" & vbCrLf Response.Write "

Child & Pet Safety Fence

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/safety_fence") response.write "

" & vbCrLf Response.Write "

Spa Spillways

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/spa_spillways") response.write "

" & vbCrLf Response.Write "

Sprayers

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/sprayers") response.write "

" & vbCrLf Response.Write "

Sun Shelf

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/sun_shelf") response.write "

" & vbCrLf Response.Write "

Waterfall with Cave

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/waterfall_cave") response.write "

" & vbCrLf Response.Write "

Ultimate Waterfall with Cave, Slide, and Spa

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/waterfall_cave_slide") response.write "

" & vbCrLf Response.Write "

Double Waterfalls

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/waterfall_double") response.write "

" & vbCrLf Response.Write "

Waterfall with Flowing River

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/waterfall_river") response.write "

" & vbCrLf Response.Write "

Sheer Descent / Powerfalls

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/waterfall_sheer") response.write "

" & vbCrLf Response.Write "

Waterfall with Slide

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/waterfall_slide") response.write "

" & vbCrLf PaintThumbs("uniquepools/waterfall_spa") response.write "

" & vbCrLf Response.Write "

Waterfall / Spa Combo

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/waterfall_spa_combo") response.write "

" & vbCrLf Response.Write "

Weeping Wall

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("uniquepools/weeping_wall") response.write "

" & vbCrLf end sub sub Wooddecks() Response.Write "

Wood Decks

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("deck") response.write "

" & vbCrLf end sub sub Walkways() Response.Write "

Walkways

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("Walkways") response.write "

" & vbCrLf end sub sub Waterfalls() Response.Write "

Waterfalls

" &vbCrLf Response.Write "

Schist Rock

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("waterfalls/schist_rock") response.write "

" & vbCrLf Response.Write "

Moss Rock

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("waterfalls/moss_rock") response.write "

" & vbCrLf Response.Write "

Sheer Descent / Powerfalls

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("waterfalls/powerfalls") response.write "

" & vbCrLf end sub sub SpecialItems() Response.Write "

Special Items

" &vbCrLf response.write "

" & vbCrLf PaintThumbs("specialitems") response.write "

" & vbCrLf end sub %>
   
Custom Outdoors - PH: (281) 858-9696 - Email: kenneth@customoutdoors.com
   

About Us
Before/After
Fence & Lattice
Gazebos
Natural Fish Ponds
Outdoor Kitchens
Patio Surfaces
Romm Additions
Shade Arbor
Spas
 Special Items
Swimming Pools
Texas Porches
Unique Pool Feature
Walkways
Waterfalls
Water Feature
Wood Decks
Links
Pool Maintenance
Contact Us

Free Consultation
Call 281.858.9696
 
     
 
Copyright © 2005 - 2006 Custom Outdoors, ALL RIGHTS RESERVED Website Design by TrioCollective.com