<% sub ssCheckUserLoginMain() 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" Err.Clear() Dim XMLDoc 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 ComponentName = "" then ComponentName = "securepage" 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_checkUserLogin.Main.20", 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") = "u" Application("ErrLogin") = ssGetProperty(ComponentNode, Application("ErrLogin")) set ComponentNode = nothing set XML = nothing response.write "" response.end elseif Session("ssMemberId") = "" then Application("ErrLogin") = "authenticationNeeded" response.write "" response.end end if end sub %>