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;">

	The Idea Photo Gallery: Page <%=strPageFile2 + 1%>

<% 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