1-888-639-7695
   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%> <% 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;">

eMails are for Industrial and Commercial Clients Only.
We recommend that Residential Customers call us
directly at 1-888-639-7695 for the best possible service.
* = required information
* Name:  
Company:  
Address:  
 
*CITY
  
*STATE
  
ZIP
Telephone
with
Area Code
 		  

DAY TIME PHONE		  
* EVENING PHONE		  
FAX
* E-Mail:  
Contact:  

REPLY BY		  
CONTACT WHEN?		  
TIME		  
AM / PM
Topic:  
  Other:  
Questions
or
Comments		  
 
<% Else %> Click HERE to return home
  <% End If %>
 
<% If (strPageFile = "Concrete") or (strPageFile = "Pool") Then %> Click NEXT here or above for NEXT PAGE
 
Contact US at:
153 Waverly Rd
Mt Laurel, NJ 08054
1-888-639-7695
 
 
 
 
Web Hosting and Design by ePodWorks.net