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


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