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?sele ctTSE="&strEmployeeID&"")
Else
Response.Redirect("DisplaySortableTickets.asp?Assi stEmp="&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" <mi********@htomail.com> wrote in message
news:eu*************@TK2MSFTNGP11.phx.gbl...

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?sele ctTSE="&strEmployeeID&"")
Else
Response.Redirect("DisplaySortableTickets.asp?Assi stEmp="&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?

[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]" <my first name at lane 34 dot commercial> wrote in
message news:um*************@TK2MSFTNGP15.phx.gbl...

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" <mi********@htomail.com> wrote in message
news:eu*************@TK2MSFTNGP11.phx.gbl...

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?sele ctTSE="&strEmployeeID&"") Else
Response.Redirect("DisplaySortableTickets.asp?Assi stEmp="&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]]

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

"middletree" <mi********@htomail.com> wrote in message
news:eQ**************@TK2MSFTNGP09.phx.gbl...

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]" <my first name at lane 34 dot commercial> wrote in
message news:um*************@TK2MSFTNGP15.phx.gbl...

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" <mi********@htomail.com> wrote in message
news:eu*************@TK2MSFTNGP11.phx.gbl...

>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?sele ctTSE="&strEmployeeID&"") > Else
> Response.Redirect("DisplaySortableTickets.asp?Assi stEmp="&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?
>
>
>
>
>
>
>
>

[Mark Schupp]

Is it possible for employeeid to be null?

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

"middletree" <mi********@htomail.com> wrote in message
news:eQ**************@TK2MSFTNGP09.phx.gbl...

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]" <my first name at lane 34 dot commercial> wrote in
message news:um*************@TK2MSFTNGP15.phx.gbl...

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" <mi********@htomail.com> wrote in message
news:eu*************@TK2MSFTNGP11.phx.gbl...

>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?sele ctTSE="&strEmployeeID&"") > Else
> Response.Redirect("DisplaySortableTickets.asp?Assi stEmp="&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?
>
>
>
>
>
>
>
>

[Chris Hohmann]

"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in
message news:Ok**************@TK2MSFTNGP09.phx.gbl...

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/librar...ieldobject.asp

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

[Ray Costanzo [MVP]]

Thank you. :]

Ray at work

"Chris Hohmann" <no****@thankyou.com> wrote in message
news:ON**************@TK2MSFTNGP09.phx.gbl...

"Ray Costanzo [MVP]" <my first name at lane 34 dot commercial> wrote in
message news:Ok**************@TK2MSFTNGP09.phx.gbl...

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/librar...ieldobject.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

--
Ben Strackany
www.developmentnow.com
"middletree" <mi********@htomail.com> wrote in message
news:eQ**************@TK2MSFTNGP09.phx.gbl...

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]" <my first name at lane 34 dot commercial> wrote in
message news:um*************@TK2MSFTNGP15.phx.gbl...

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" <mi********@htomail.com> wrote in message
news:eu*************@TK2MSFTNGP11.phx.gbl...

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?sele ctTSE="&strEmployeeID&"")

Else

Response.Redirect("DisplaySortableTickets.asp?Assi stEmp="&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?