<%
DIM scr
scr = Request.ServerVariables("SCRIPT_NAME")
if instr(scr,"/")>0 then
scr = right(scr, len(scr) - instrRev(scr,"/"))
end if
Function checkCurrent(who)
If (who = scr) Then
response.write " class=""current"""
End If
End Function
Function checkTopNav(who)
If (who = scr) Then
response.write " class=""navLeftON"""
End If
End Function
%>
