<%
'----------------------------------------------------------------------
'****************************************************************
' 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
'----------------------------------------------------
%>
Thy mercy, O LORD, is in the heavens; and thy faithfulness reacheth unto the clouds. Psalm 36:5
