Microsoft VBScript runtime error '800a005e' Invalid use of Null: 'clng' /mc/functions/rpt_downline.asp, line 187

Question

while I am in one of my sites I can access most pages except one and I get this message.

Answer 1

"samspram" <[email protected]> wrote in
message
news:fifhoq$cr7$[email protected]..
> Hi There
> Thanks for the reply.
> It is a MySQL DB, the fields I am referencing are TEXT
datatypes and I
> have
> tried referencing them both left and right.
> The data stored in the fields are comma separated
strings e.g. 1, 2, 3, 4,
> which I am loading into Session variables at login with
the following
> code:-
> Session("allowedsubmenus") =
> Left(rsLogin.Fields.Item("u_allowed_sub_menus").Value,
> (Len(rsLogin.Fields.Item("u_allowed_sub_menus").Value) -
1))
> Session("allowedtopmenus") =
> Left(rsLogin.Fields.Item("u_allowed_top_menus").Value,
> (Len(rsLogin.Fields.Item("u_allowed_top_menus").Value) -
1))
> Session("allowedempmenus") =
> Left(rsLogin.Fields.Item("u_allowed_emp_menus").Value,
> (Len(rsLogin.Fields.Item("u_allowed_emp_menus").Value) -
1))
> Session("allowedcoys") =
> Left(rsLogin.Fields.Item("u_allowed_companies").Value,
> (Len(rsLogin.Fields.Item("u_allowed_companies").Value) -
1))
>
> If I load the data into a variable before performing the
Left() function
> on
> the field then it goes past the lines OK but when I try
and use the
> Session
> variable it then throws the Invalid Use of Null error
again.
> i.e.
> Dim varNum
> varNum =
(Len(rsLogin.Fields.Item("u_allowed_top_menus").Value) - 1)
> Session("allowedsubmenus") =
> Left(rsLogin.Fields.Item("u_allowed_sub_menus").Value,
varNum)
> Code will execute past the loading of sessions in this
way but when I try
> to
> use the session later i.e. as with the Split() function
I get the same
> error
> again.
>
> Regards
> Brendan
You are referencing the Recordset Column Value multiple
times.
try putting it into a variable first
varValue = rsLogin.Fields.Item("u_allowed_sub_menus").Value
then proceed with your operations using that variable
Session("allowedsubmenus") = Left(varValue , (Len(varValue )
- 1))