<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=0"
If (CStr(Request("MM_Logoutnow")) = "0") Then
Session.Contents.Remove("MM_Username")
Session.Contents.Remove("MM_UserAuthorization")
MM_logoutRedirectPage = "../"
' 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 <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
:: Cutback ::
<%
Dim usuario__MMColParam
usuario__MMColParam = "0"
If (Session("MM_Username") <> "") Then
usuario__MMColParam = Session("MM_Username")
End If
%>
<%
Dim usuario
Dim usuario_numRows
Set usuario = Server.CreateObject("ADODB.Recordset")
usuario.ActiveConnection = MM_conecxao_STRING
usuario.Source = "SELECT * FROM tb_user WHERE email = '" + Replace(usuario__MMColParam, "'", "''") + "'"
usuario.CursorType = 0
usuario.CursorLocation = 2
usuario.LockType = 1
usuario.Open()
usuario_numRows = 0
%>
<% If Not usuario.EOF Or Not usuario.BOF Then %>
