<%
	base = Request.ServerVariables("PATH_TRANSLATED")

	set fs = CreateObject("Scripting.FileSystemObject")
    CurrASP = "ReToFile.asp"
	fileMainCounter = "CGI_BIN\Counter.asp"
	tore = fileMainCounter
	MyArray = Split(base, "\", -1, 1)
	fNameCounter = Left(base,Len(base)-Len(CurrASP))
	base = fNameCounter + fileMainCounter

	for i = 0 to ubound(MyArray) - 1
		if (fs.FileExists(base))then
			set fs = nothing
			Response.Redirect tore
		else
			fNameCounter = Left(base,Len(base)-Len(fileMainCounter) - Len(MyArray(ubound(MyArray) - i - 1)) - 1)
			base = fNameCounter + fileMainCounter
			tore = "..\" + tore		
		end if
	next
%>