
1-800-718-8526	D E C O R A T I V E C O N C R E T E & P O O L R E S T O R A T I O N

<% Dim objFileSystem Set objFileSystem = CreateObject("Scripting.FileSystemObject") Function ePodPathNext (strPageMain, strPageTopic, strNumber) ePodPathNext = strPageMain & "-" & strPageTopic & "-" & (strNumber + 1) & ".asp" If Not objFileSystem.FileExists(strWebSitePathRoot & ePodPathNext) Then Select Case strPageTopic Case "product" ePodPathNext = strPageMain & "-questions-0.asp" Case "questions" ePodPathNext = strPageMain & "-BeforeAfter-0.asp" Case "beforeafter" ePodPathNext = strPageMain & "-IdeaGallery-0.asp" Case Else ePodPathNext = strPageMain & "-" & strPageTopic & "-" & strNumber & ".asp" End Select End If If Not objFileSystem.FileExists(strWebSitePathRoot & ePodPathNext) Then ePodPathNext = strPageMain & "-" & strPageTopic & "-" & strNumber & ".asp" End If ePodPathNext = "/" & ePodPathNext End Function Function ePodPathPrevious (strPageMain, strPageTopic, strNumber) Dim strCount If (strNumber - 1) < 0 Then Select Case strPageTopic case "questions" ePodPathPrevious = strPageMain & "-Product-5" Case "beforeafter" ePodPathPrevious = strPageMain & "-Questions-5" Case "ideagallery" ePodPathPrevious = strPageMain & "-BeforeAfter-5" Case Else ePodPathPrevious = strPageMain & "-" & strPageTopic & "-" & strNumber End Select strCount = 0 Do While Not objFileSystem.FileExists(strWebSitePathRoot & ePodPathPrevious & ".asp") and Not (strCount < 0) strCount = CLng(Right(ePodPathPrevious, 1)) - 1 ePodPathPrevious = Left(ePodPathPrevious,Len(ePodPathPrevious)-1) & strNumber Loop Else ePodPathPrevious = "/" & strPageMain & "-" & strPageTopic & "-" & (strNumber - 1) & ".asp" Exit Function End If ePodPathPrevious = "/" & ePodPathPrevious & ".asp" End Function %> <% Else %>

<% End If%> <% Else %>

<% End If%>


<% If (strPageFile <> "Concrete") Then %>	<% If (strPageFile <> "Pool") Then %>	<% If (strPageFile <> "Fiberglass") Then %>	<% If (strPageFile <> "Contact") Then %>

<% If (strPageFile = "Concrete") or (strPageFile = "Pool") Then %> <% Else %> .asp" onmouseover="changeImages('btnProduct', '/Images/Menu/Product-Over.gif'); return true;" onmouseout="changeImages('btnProduct', '/Images/Menu/Product-Sel.gif'); return true;">

<% End If%> <% Else %> .asp" onmouseover="changeImages('btnQuestions', '/Images/Menu/Questions-Over.gif'); return true;" onmouseout="changeImages('btnQuestions', '/Images/Menu/Questions-Sel.gif'); return true;">

<% End If%> <% Else %> .asp" onmouseover="changeImages('btnBeforeAfter', '/Images/Menu/BeforeAfter-Over.gif'); return true;" onmouseout="changeImages('btnBeforeAfter', '/Images/Menu/BeforeAfter-Sel.gif'); return true;">

<% End If%> <% Else %> .asp" onmouseover="changeImages('btnIdeaGallery', '/Images/Menu/IdeaGallery-Over.gif'); return true;" onmouseout="changeImages('btnIdeaGallery', '/Images/Menu/IdeaGallery-Sel.gif'); return true;">

<% End If%> <% Else %> <% End If %>

		<% If (strPageFile1 <> "product") Then %> .asp" onmouseover="changeImages('btnProduct', '/Images/Menu/Product-Over.gif'); return true;" onmouseout="changeImages('btnProduct', '/Images/Menu/Product.gif'); return true;">		<% If (strPageFile1 <> "questions") Then %> .asp" onmouseover="changeImages('btnQuestions', '/Images/Menu/Questions-Over.gif'); return true;" onmouseout="changeImages('btnQuestions', '/Images/Menu/Questions.gif'); return true;">		<% If (strPageFile1 <> "beforeafter") Then %> .asp" onmouseover="changeImages('btnBeforeAfter', '/Images/Menu/BeforeAfter-Over.gif'); return true;" onmouseout="changeImages('btnBeforeAfter', '/Images/Menu/BeforeAfter.gif'); return true;">		<% If (strPageFile1 <> "ideagallery") Then %> .asp" onmouseover="changeImages('btnIdeaGallery', '/Images/Menu/IdeaGallery-Over.gif'); return true;" onmouseout="changeImages('btnIdeaGallery', '/Images/Menu/IdeaGallery.gif'); return true;">

Ugly Pool Interior?
THE LAST FINISH YOUR POOL WILL EVER NEED

ULTRACRETE 9000 A Step Ahead in Concrete Technology

WORLD'S FINEST POOL INTERIORS


Click on image for larger photo

Unlike marcite plaster, ULTRACRETE 9000 is a far denser, non-porus, hi-tech pool interior, so durable it won't spot etch or mottle. And it's warranted for 15 YEARS against material disintegration. Only ULTRACRETE 9000 offers a proprietary mix of polymer aggregates that is superior to any other product on the market today.

15 Year Warranty
Hi-Tech Industrial Coating
Algae & Stain Resistant
Commerical & Residential

DO IT ONCE !
DO IT RIGHT !

<% Else %> Click HERE to return home
<% End If %>

<% If (strPageFile = "Concrete") or (strPageFile = "Pool") Then %> Click NEXT here or above for NEXT PAGE

Web Hosting and Design by ePodWorks.net