<!--#include file="header.asp"-->

<%
If session("admin_loggedin" & strSUnique) = Session.SessionID then
	setLocale server_locale
	set rsuser = objConn.Execute("SELECT " & tablUPfx & "User.* FROM " & tablUPfx & "User WHERE userID = " & CLng(Request("id")) & ";")
	If Not rsuser.EOF then
		ismod = rsuser("moder")
		uID = rsuser("userID")
		If ismod then session("user_logged_moderator" & strSUnique) = True
		session("user_logged_ID" & strSUnique) = uID
		session("user_logged_email" & strSUnique) = CryptText(rsuser("email"), key, True)
		session("user_logged_nick" & strSUnique) = rsuser("nick")
		session("user_logged_city" & strSUnique) = rsuser("city")
		session("user_logged_credit" & strSUnique) = FormatNumber(CCur(rsuser("credits")), 2)
		session("user_logged_ads" & strSUnique) = rsuser("ads")
		
				If ispack then
					session("user_pack_ID" & strSUnique) = CLng(rsuser("paypack"))
					session("user_pack_expire" & strSUnique) = CDate(rsuser("pexpire"))
					If session("user_pack_ID" & strSUnique) > 0 then
						Set rspack = objConn.Execute("SELECT pname FROM " & tablPfx & "Pack WHERE packID = " & session("user_pack_ID" & strSUnique) & ";")
						If rspack.EOF then 
							session("user_pack_ID" & strSUnique) = 0
						Else
							session("user_pack_name" & strSUnique) = rspack(0)
						End If
						rspack.close
					End If
				End If
	End If
	rsuser.close
End If
			
Response.Redirect "admin_user.asp"
%><!--#include file="footer.asp"-->