<%
'----------------------------------------------------------------------
'****************************************************************
' 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 FName
FName = thisCurrPage()
Function ChangePage2Next(strplus)
dim pageno
If strplus = 1 then
pageno= cint(right(Fname,2))-1
Else
pageno = cint(right(Fname,2))+1
End If
pageno = "00" & cstr(pageno)
ChangePage2Next = right(pageno,2)
End Function
%>
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
"Nec tamen consumebatur."
Yet the bush was not consumed. Exodus 3:2
