<%
Function CurrentPage()
Dim strURL, strPage
strURL = request("url")
strPage = Right(strURL, Len(strURL) - InstrRev(strURL, "/"))
CurrentPage = lcase(strPage)
End Function
Function NavImg(strNav)
If CurrentPage() = strNav Then
NavImg = "_up"
Else
NavImg = ""
End If
End Function
%>
.
<%
Function IsUp(strPage)
If CurrentPage = strPage Then
response.write "_up"
End If
End Function
%>
