<%
Sub ssCheckAdminLoginMain()
On error resume next
if Len(Request.QueryString("url")) > 0 then
Dim suiteTags
Set suiteTags = Server.CreateObject("scripting.dictionary")
suiteTags.Add "dbpath", "dbPath"
suiteTags.Add "uploaddir", "dbFileUploadDir"
suiteTags.Add "sendemail", "sendEmail"
suiteTags.Add "smtpip", "emailServer"
suiteTags.Add "smtpport", "emailServerPort"
suiteTags.Add "emailto", "emailToAddress"
suiteTags.Add "emailfrom", "emailFromAddress"
suiteTags.Add "debug", "publishInDebugMode"
suiteTags.Add "dbcolumns", "dbColumns"
Dim compGeneralTags
set compGeneralTags = Server.CreateObject("scripting.dictionary")
compGeneralTags.Add "currentpage", "currentPage"
compGeneralTags.Add "nextpage", "nextPage"
compGeneralTags.Add "errormark", "errorMark"
compGeneralTags.Add "accessdeniedpage", "accessDeniedPage"
Set XMLDoc = ssOpenXMLFile(nof_sitePath & nof_scriptDir & "\" & nof_scriptInterfaceFile)
If Err.number <> 0 then
Call ssRaiseFatalError(err, "div", nof_debug)
Response.End()
end if
If CompName = "" Then
CompName = "admin"
End If
Dim componentNode
set componentNode = ssGetNode(XMLDoc,,"Component", Array("name","id"), Array(nof_componentName, nof_componentId), -1)
If componentNode Is Nothing Then
Err.Raise 400, "ss_checkAdminLogin.Main.10", ssGetLocaleString("Error.400", Null)
Call ssRaiseFatalError(err, "div", nof_debug)
Response.End()
End If
nextPage = ssGetProperty(componentNode, compGeneralTags.Item("accessdeniedpage"))
Session("ssUserReqPage") = Request.QueryString("url")
Session("ssReqPageType") = "a"
Session("ErrLogin") = ssGetProperty(componentNode, Session("ErrLogin"))
set componentNode = nothing
set XMLDoc = nothing
response.write ""
response.end
elseif Len(Session("ssMemberId")) > 0 then
if Len(Session("ssAdminStat")) > 0 then
if not CBool(Session("ssAdminStat")) then
Session("ErrLogin") = "unauthorized"
response.write ""
response.end
end if
else
Session("ErrLogin") = "unauthorized"
response.write ""
response.end
end if
else
Session("ErrLogin") = "authenticationNeeded"
response.write ""
response.end
end if
end sub
%>