<% if not isAdmin and len(session(dbName&"Impersonate")) = 0 then response.redirect("redirect.asp") response.end end if Dim mem, objRS, arrImp, impersonate:impersonate = "" if request.form<>"" then if len(session(dbName&"Impersonate"))<>0 then session(dbName&"MemInfo") = session(dbName&"Impersonate") session(dbName&"Impersonate") = "" arrMemberInfo = split(session(dbName&"MemInfo"),chr(1)) call checkSessionIntegrity(arrMemberInfo) memID=arrMemberInfo(0) memLogin=arrMemberInfo(1) memBrowser=arrMemberInfo(2) memLastVisit=arrMemberInfo(3) memViewPref=Cint(arrMemberInfo(4)) erase arrMemberInfo call GetBlockedList(memID) response.write ("") response.end end if response.end end if mem = Clng(request.querystring("memID")) Dim objCom Set objCom = server.createobject("adodb.command") set objRS = server.createobject("adodb.recordset") with objCom .activeconnection = datastore '.commandTimeout = 200 .commandText = dbOwnerPrefix&"spImpersonate" .commandType = adCmdStoredProc .Parameters.Append .Createparameter("@mem", adInteger, adParamInput, 0, mem) .Parameters.Append .Createparameter("@memBrowser", adVarChar, adParamInput, 4, memBrowser) .Parameters.Append .Createparameter("@memLastVisit", adDBTimeStamp, adParamInput, 0, memLastVisit) set objRS = .execute end with Set objCom = nothing with objRS If not (.EOF or .BOF) then arrImp = .getrows 'impersonate = .getString(,,chr(1),"","") End if .close end with set objRS=nothing If isArray(arrImp) then impersonate = arrImp(0,0)&chr(1)&arrImp(1,0)&chr(1)&arrImp(2,0)&chr(1)&FormatDateTime(arrImp(3,0))&chr(1)&arrImp(4,0) end if if len(impersonate)<>0 then session(dbName&"Impersonate") = session(dbName&"MemInfo") session(dbName&"MemInfo") = impersonate else response.end end if arrMemberInfo = split(session(dbName&"MemInfo"),chr(1)) call checkSessionIntegrity(arrMemberInfo) memID=arrMemberInfo(0) memLogin=arrMemberInfo(1) memBrowser=arrMemberInfo(2) memLastVisit=arrMemberInfo(3) memViewPref=Cint(arrMemberInfo(4)) erase arrMemberInfo call GetBlockedList(memID) 'response.write impersonate&"
" 'response.write memLastVisit %> <%= Application(dbName&"forumtitle") %> <%= OutputCSS() %> style="margin:0px 0px 0px 0px" onload="opener.location.reload(); self.focus()">
<%= impersonateHeadDesc %>
> <%= impersonateDesc &" "& memLogin %>

<%= impersonateWarn %>