<% '---------------------------------------------------------------------- '**************************************************************** ' pulls page name from PATH_INFO / same as myPageN in ahidl.inc '**************************************************************** Function thisCurrPage() Dim name, pperiod, pslash name = Request.serverVariables("PATH_INFO") pperiod = InStrRev(name,".") pslash = InStrRev(name,"/") thisCurrPage = LCase(Mid(name, pslash + 1, pperiod - (pslash-3))) End Function '---------------------------------------------------- Dim pageN pageN = thisCurrPage() %>
Thy mercy, O LORD, is in the heavens;
and thy faithfulness reacheth unto the clouds. Psalm 36:5
GRACE PRESBYTERIAN CHURCH

Morris County, New Jersey


"Nec tamen consumebatur."
Yet the bush was not consumed. Exodus 3:2

<% If pageN = "default.asp" then %> <% Else %> <% End If %> <% If pageN = "believe.asp" then %> <% Else %> <% End If %> <% 'Sermons %> <% If pageN = "sermons.php" then %> <% Else %> <% End If %> <% 'Blog %> <% If pageN = "blog.php" then %> <% Else %> <% End If %> <% If pageN = "when.asp" then %> <% Else %> <% End If %> <% If pageN = "contact.asp" then %> <% Else %> <% End If %>
HomeHomeWhat We BelieveWhat We BelieveOur SermonsOur SermonsOur BlogOur BlogWhen/Where We MeetWhen/Where We MeetHow to Contact UsHow to Contact Us