cookie question

[middletree]

I use a browser cookie on an Intranet application. On one certain page, it
checks to see what someone's network name is, then if they are in a certain
department, it redirects them to a particular page. If in other departments,
it redirects them to another page.

Here's the code:

===================================

strLogon= UCASE(Request.ServerVariables("LOGON_USER"))

Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT EmployeeID, DepartmentID "
strSQL = strSQL & "FROM Employee "
strSQL = strSQL & "WHERE NetworkID = '"&strLogon&"'"

RS.Open strSQL, objConnection

'this is to pass the value of the name of the TSE to the next page
Response.Cookies("TSE_ID") = rs("EmployeeID")
strDepartmentID = rs("DepartmentID")
strEmployeeID = rs("EmployeeID")
rs.Close
Set rs = Nothing

If strDepartmentID = "9" then
Response.Redirect("DisplaySortableTickets.asp?selectTSE="&strEmployeeID&"")
Else
Response.Redirect("DisplaySortableTickets.asp?AssistEmp="&strEmployeeID&"")
===================================
For some reason, every now and then, I get this in the browser:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'RS(...).Cookies'
yourticketsredirect.asp, line 22

I have checked and according to the network people, they have not made any
changes. In fact, this error usually goes away in a few minutes. Any
suggestions, comments, or insights to share?

 

[Ray Costanzo [MVP]]

What line is line 22? One of the redirect lines?

What happens if you change

strDepartmentID = rs("DepartmentID")
strEmployeeID = rs("EmployeeID")

to

strDepartmentID = rs.Fields.Item("DepartmentID").Value
strEmployeeID = rs.Fields.Item("EmployeeID").Value

?

Ray at work

 

[middletree]

Ray:

Yes, sorry I forgot to say which was line 22. Here it is:

Response.Cookies("TSE_ID") = rs("EmployeeID")

I can change that code, but since this problem happens so sproadically and
unpredictably, I'll just have to see what happens.

I do realize that having ".Fields.Item" is better form, but didn't realize
that it caused problems.

 

[Ray Costanzo [MVP]]

I've heard comments before about how rs("name") returns an object with a
default property of the item's value, but I can't find anything to back that
up. From the error you posted I thought it ~~might~~ have something do do
with that. But, really, it's probably not that likely.


Does this work?

<%
sTest = rs("EmployeeID")
Response.Write "The value is " & sTest
Response.Cookies("TSE_ID") = sTest
%>

Ray at work

 

[Mark Schupp]

Is it possible for employeeid to be null?

--
--Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com

 

[Chris Hohmann]

I've heard comments before about how rs("name") returns an object with a
default property of the item's value, but I can't find anything to back that
up.

http://www.msdn.microsoft.com/library/en-us/ado270/htm/mdconfieldobject.asp

Quote from second bullet item, "Value is the default property of the Field
object."

 

[Ray Costanzo [MVP]]

Thank you. :]

Ray at work

http://www.msdn.microsoft.com/library/en-us/ado270/htm/mdconfieldobject.asp

Quote from second bullet item, "Value is the default property of the Field
object."

 

[Ben Strackany]

My guess is rs("EmployeeID") is sometimes null or doesn't exist. Add some
code to check recordcount & check

if ("" & rs("EmployeeID")) = "" then
' blank EmployeeID, handle it somehow
end if