Forums

This topic is locked

Logout error

Posted 11 Oct 2002 16:10:34
1
has voted
11 Oct 2002 16:10:34 Jelle-Jacob de Vries posted:
On DMX I keep getting the following error when I'm trying to logout,

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Session.Contents.Remove'

/test/messages.asp, line 6


Whit Ultradev this is never been a problem ??

I hope somebody can help.

Replies

Replied 15 Oct 2002 07:44:14
15 Oct 2002 07:44:14 Jeff S replied:
Yeah, Im having the same problem as well!! Please anyone help!!

<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
On DMX I keep getting the following error when I'm trying to logout,

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Session.Contents.Remove'

/test/messages.asp, line 6


Whit Ultradev this is never been a problem ??

I hope somebody can help.

<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
Replied 29 Oct 2002 20:59:41
29 Oct 2002 20:59:41 Kim Jansen replied:
Hi,

Apparently the 'Session.Contents.Remove'
is ASP 3 (the Remove) where a lot of people use ASP 2 (like those running on IIS and NT4)

Try using the old UD4 code which uses Session.Abandon
&lt;%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL") & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow") = "1" Then
Session.Abandon
MM_logoutRedirectPage = "index.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "" Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString &lt;&gt; "" Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item &lt;&gt; "MM_Logoutnow" Then
If (Len(MM_newQS) &gt; 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) &gt; 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%&gt;

Reply to this topic