<%
Function GetLastFolderName()
	dim strWebPath
	dim intForeSlashStartPos
	dim intForeSlashEndPos
	strWebPath = Request.ServerVariables("PATH_INFO")
	intForeSlashEndPos = InStrRev(strWebPath, "/")
	intForeSlashStartPos = InStrRev(strWebPath, "/", intForeSlashEndPos - 1)
	GetLastFolderName = Mid(strWebPath, intForeSlashStartPos + 1, intForeSlashEndPos - (intForeSlashStartPos + 1))
End Function
Function GetCurrentFileName()
	dim strWebPath
	dim intForeSlashPos
	strWebPath = Request.ServerVariables("PATH_INFO")
	intForeSlashPos = InStrRev(strWebPath, "/")
	GetCurrentFileName = Mid(strWebPath, intForeSlashPos + 1, Len(strWebPath) - intForeSlashPos)
End Function
Function GetMode()
	dim strMode
	strMode = Trim(Request.QueryString("mode"))
	If strMode = "" Then
		GetMode = ""
	Else
		GetMode = UCase(Left(strMode, 1)) & LCase(Mid(strMode, 2, Len(strMode) - 1))
	End If
End Function
%>