Bug in Security Assist
There is a bug in SA ASP version.
The WA_Auth_RulePasses("Logged in to customer")
gives:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'WA_Auth_RulePasses'
It happens only when you have ONE column value to check in Authorization script, like here:
If (Not WA_Auth_RulePasses("Logged in to customer")) and Request.Cookies("AutoLoginHash")<>"" Then
Dim WA_AuthParameter101 : Set WA_AuthParameter101 = Server.CreateObject("Scripting.Dictionary")
WA_AuthParameter101.Add "connection" , MM_xxx_STRING
WA_AuthParameter101.Add "tableName" , "customer"
WA_AuthParameter101.Add "columns" , Split("Cookie", WA_Auth_Separator)
WA_AuthParameter101.Add "columnValues" , Split("" & cStr(cStr(Request.Cookies("AutoLoginHash"))) & "", WA_Auth_Separator)
WA_AuthParameter101.Add "columnTypes" , Split("200", WA_Auth_Separator)
WA_AuthParameter101.Add "columnSizes" , Split("40", WA_Auth_Separator)
WA_AuthParameter101.Add "sessionColumns" , Split("CustomerID"&WA_Auth_Separator&"Username"&WA_Auth_Separator&"Password", WA_Auth_Separator)
WA_AuthParameter101.Add "sessionNames" , Split("CustomerID"&WA_Auth_Separator&"Username"&WA_Auth_Separator&"Password", WA_Auth_Separator)
WA_AuthParameter101.Add "successRedirect" , "/default.asp"
WA_AuthParameter101.Add "failRedirect" , ""
WA_AuthParameter101.Add "gotoPreviousURL" , True
WA_AuthParameter101.Add "keepQueryString" , True
WA_AuthenticateUser WA_AuthParameter101
End If
Could you please fix that?
Jerry