public function getNav(byval strer)
dim re,tmpSpace,tmpClassid,tmpClassNav
re="<a href="""&chn.url("index")&""">"&chn.var("title")&"</a>"
tmpSpace=" - "
tmpClassid=0
select case strer
case "list"
tmpClassid=classid
case "view"
tmpClassid=classid
end select
if int(tmpClassid)>0 then tmpClassNav=modClass.getNav(tmpClassid,tmpSpace)
if len(tmpClassNav)>0 then re=re&(tmpSpace&tmpClassNav)
if len(web.getTitle())>0 then re=re&(tmpSpace&web.getTitleLinkURL())
if len(web.getModTitle())>0 then re=re&(tmpSpace&web.getModTitleLinkURL())
if len(web.getSubTitle())>0 then re=re&(tmpSpace&web.getSubTitleLinkURL())
getNav=re
end function