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

A Mission Work in Morris County, New Jersey

<% If pageN = "default.asp" then %> <% Else %> <% End If %> <% If pageN = "believe.asp" then %> <% Else %> <% End If %> <% If pageN = "when.asp" then %> <% Else %> <% End If %> <% If pageN = "contact.asp" then %> <% Else %> <% End If %>
HomeHomeWhat We BelieveWhat We BelieveWhen we MeetWhen we MeetHow to Contact UsHow to Contact Us