% Function curr_page(set_page) npage = mid(Request.ServerVariables("PATH_INFO"),InStrrev(Request.ServerVariables("PATH_INFO"),"/")+1) If CStr(set_page) = CStr(npage) Then curr_page="r" End Function %>