<%
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
%>
<%
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_checkAdminLogin.asi", nof_sitePath, nof_scriptDir)
call IncludeLib("ss_admin.asp", nof_sitePath, nof_scriptDir)
%>
<% nof_componentName="securepage"
nof_componentId="1189082824784"
nof_scriptInterfaceFile="SecureSite1188460666510.xml.asp"
nof_debug=true
set nof_locale = ssLocaleToDictionary(nof_sitePath & nof_scriptDir, "SecureSite_en.properties")
call ssCheckAdminLoginMain()%>
FAQ Admin
