<%@ Language=VBScript %> <% On Error Resume Next Response.Expires = 0 Response.ExpiresAbsolute = DateAdd("d", -1, Date()) Response.Buffer = True ' ' initialise local variable(s) current_file = Request.ServerVariables("SCRIPT_NAME") current_path = Left(current_file, InStrRev(current_file, "/")) %>