<%@ LANGUAGE=vbscript%> <%'response.write(session("id")) 'response.end%> <% if len(trim(session("id"))) < 1 then Response.Buffer = True %> <% else dim filename,t Response.Expires = 0 Response.Buffer = TRUE Response.Clear t=Request.QueryString("dir") filename=Request.QueryString("filenm") anc=Request.QueryString("anc") 'response.write filename & " " & t if t="enviroclub" then if (filename="teacher.asp" AND anc="yes") then filenm="../" & filename & "#event" else filenm="../" & filename end if response.redirect(filenm) elseif t="themes" then filenm="../themes/" & filename response.redirect(filenm) 'elseif t="docs" then 'filenm="http://www.safir.teri.res.in" & filename 'response.redirect(filenm) end if end if %>