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










click the jigsaw to learn more about elan