Associates

<% nof_rootDir="../" nof_scriptDir="scripts" nof_debug=true nof_sitePath = GetSitePath(nof_rootDir) function GetSitePath(RootDir) Dim relPath relPath = split(RootDir, "/") forwardSteps = UBound(relPath) - 1 if forwardSteps = 0 and relPath(0) = "." then forwardSteps = -1 GetSitePath = Server.MapPath(".") for idx=0 to forwardSteps GetSitePath = Left(GetSitePath, inStrRev(GetSitePath, "\") - 1) next GetSitePath = GetSitePath & "\" end function %> <% function FileExists(ByVal file, ByVal sitePath, ByVal scriptDir) dim fso, filePath on error resume next Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & file FileExists = fso.FileExists(filePath) set fso = nothing end function %> <% sub IncludeLib(ByVal lib, ByVal sitePath, ByVal scriptDir) dim fso, f, buf, filePath Set fso = Server.CreateObject("Scripting.FileSystemObject") filePath = sitePath & scriptDir & "\" & lib if fso.FileExists(filePath) then set f = fso.OpenTextFile(filePath, 1, false, -2) buf = f.ReadAll f.close() set f = nothing Dim regEx Set regEx = New RegExp regEx.Pattern = "^\s*<" & chr(37) & "\s*" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf,"") regEx.Pattern = "\s*" & chr(37) & ">\s*$" regEx.IgnoreCase = True regEx.Global = True buf = regEx.Replace(buf, "") set regEx = nothing ExecuteGlobal buf else if nof_debug then Response.Write "Could not include the file `" & filePath & "`." else Response.Write "

An error occured. Please contact the site administrator.

" Response.Write "

Error code: 103

" end if Response.End end if set fso = nothing end sub %> <% call IncludeLib("ss_XMLlib.asi", nof_sitePath, nof_scriptDir) %> <% call IncludeLib("ss_checkUserLogin.asi", nof_sitePath, nof_scriptDir) %> <% nof_componentName="securepage" nof_componentId="1189082916628" nof_scriptInterfaceFile="SecureSite1188460666510.xml.asp" nof_debug=true set nof_locale = ssLocaleToDictionary(nof_sitePath & nof_scriptDir, "SecureSite_en.properties") call ssCheckUserLoginMain() %> Associates

Associates

Stafford
Eaton
Properties


	NOW AVAILABLE


	Secure Page


	Welcome back to your Associates page

Admin


	As an Associate of Stafford Eaton Properties you have access to all the Stafford Eaton Tools that you can use to assist your clients in their drive toward wealth creation.


	Although we are providing these tools, you are using them at your own discretion and Stafford Eaton Properties accepts no responsibility for the manner in which they are used. They are intended as a approximation indicator and should not be relied upon for final numbers or used for legal or taxation purposes.