<%
Sub checkLoggedUser()
	On Error Resume Next
	Session("UZ" & strSUnique) = True
	If Len(Request.Cookies("amazing_scenery" & strUnique)) > 0 then
		uID = CryptText(Request.Cookies("amazing_scenery" & strUnique), key, True)
		If IsNumeric(uID) then
			set rsuser = objConn.Execute("SELECT " & tablUPfx & "User.* FROM " & tablUPfx & "User WHERE userID = " & CLng(uID) & ";")
			If not rsuser.EOF then
				Select Case acountStatus
					Case 0
						acountStatus = CLng(rsuser("status"))
						sdd = dd(objConn)
						IP = Request.ServerVariables("REMOTE_ADDR")
						ismod = rsuser("moder")
						If ismod then session("user_logged_moderator" & strSUnique) = True
						session("user_logged_ID" & strSUnique) = CLng(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)
						
						If ispack then
							session("user_pack_ID" & strSUnique) = Empty
							session("user_pack_expire" & strSUnique) = Empty
							session("user_pack_name" & strSUnique) = Empty
							session("user_pack_ID" & strSUnique) = CLng(rsuser("paypack"))
							session("user_pack_expire" & strSUnique) = CDate(rsuser("pexpire"))
							ishold = Cbool(rsuser("ishold"))
							If session("user_pack_ID" & strSUnique) > 0 then
								Set rspack = objConn.Execute("SELECT pname,pdur FROM " & tablPfx & "Pack WHERE packID = " & session("user_pack_ID" & strSUnique) & ";")
								If rspack.EOF then 
									session("user_pack_ID" & strSUnique) = 0
								Else
									If ishold then
										session("user_pack_name" & strSUnique) = rspack(0)
										pdur = rspack(1)
										session("user_pack_expire" & strSUnique) = DateAdd("d", pdur, Now)
										packExp = ConvDate(session("user_pack_expire" & strSUnique))
										objConn.Execute("UPDATE " & tablUPfx & "User SET pexpire = " & sdd & packExp & sdd & ", ishold = 0 WHERE userID = " & uID & ";")
									Else
										If session("user_pack_expire" & strSUnique) < Now then
											packExpire = True
											session("user_pack_ID" & strSUnique) = 0
											objConn.Execute("UPDATE " & tablUPfx & "User SET paypack = 0 WHERE userID = " & uID & ";")
											emailContent = getTemplate("Package_Expire", session("user_logged_email" & strSUnique), Empty, session("user_logged_nick" & strSUnique), Empty, Empty)
											uSubject = Split(emailContent, chr(15))(0)
											uBody = Split(emailContent, chr(15))(1)
											uBody = Replace(uBody, ":adCred:", rspack(0))
											Call sendEmail(session("user_logged_email" & strSUnique), notify_email, uSubject, uBody)
										Else: session("user_pack_name" & strSUnique) = rspack(0)
										End If
									End If
								End If
								rspack.close
							End If
						End If
						
						set rsstat = objConn.Execute("SELECT ID FROM " & tablPfx & "Ads WHERE userID = " & CLng(uID) & ";")
						If not rsstat.EOF then
							rsdata = rsstat.getrows
							myads = UBound(rsdata,2) + 1
						Else: myads = 0
						End If
						rsstat.close
						session("user_logged_ads" & strSUnique) = myads
						If not session("admin_loggedin" & strSUnique) = Session.SessionID then updateIP = ", IP = '" & IP & "' "
						objConn.Execute("UPDATE " & tablUPfx & "User SET lastLogon = " & sdd & ConvDate(Now) & sdd & updateIP & ", ads = " & myads & " WHERE userID = " & CLng(uID) & ";")
						If not session("admin_loggedin" & strSUnique) = Session.SessionID then Call checkIP(IP)
						If isEvents then Call logEvent("User Logon", "(From Cookies)", Empty, Empty, Empty, Empty)
					Case Else
						Response.Cookies("amazing_scenery" & strUnique).Expires = Now
				End Select
			End If
			rsuser.close
		End If
	End If
End Sub
%>