If strPath = "" Then strPath = "." If InStr(strPath,":/") = 0 Then fullPath = Server.MapPath(strPath) Else strPath = Replace(strPath,"../","") fullPath = Trim(strPath) If Right(fullPath, 1) = "/" Then fullPath = Left(fullPath, Len(fullPath) - 1) End If End If ChkMapPath = fullPath End Function
