<!--#include file=playgroundSubInc.asp-->
<%
	playground_GetMemberInfo MemberID, Member, ScreenName, EMail, Privacy, Block, Privilege, ProtestPoints
	If MemberID <> 0 Then
		LoggedIn = true
	End If

	playground_GetAdminOptions SiteAvailable, AllowAllPosts, ModeratorPrivs, ProtestPointsMax
	if Not SiteAvailable then
		Response.Redirect("playgroundNotAvailable.asp")
	end if
%>
<%
    ' handle the submitted form
	Member = Request.Form("Member")
	EnteredPassword = Request.Form("Password")

	If Member = "" Then
	    Session.Value("playground_Member") = ""
	    Response.Redirect "fruvousplayground.asp"
	End If

      'fetch the record

        Set MemberTable = CreateObject("ADODB.Recordset")
        MemberTable.Open "Members WHERE Member = '" & Member & "'", "DSN=frumembers;", 1, 3, 2

        If Not MemberTable.EOF Then
		MemberID = MemberTable.Fields("ID")
		Member = MemberTable.Fields("Member")
		ScreenName = MemberTable.Fields("ScreenName")
		FirstName = MemberTable.Fields("FirstName")
		LastName = MemberTable.Fields("LastName")
		Email = MemberTable.Fields("Email")
		Password = MemberTable.Fields("Password")
		Privilege = MemberTable.Fields("Privilege")
		Visits = MemberTable.Fields("Visits")
		FirstDate = MemberTable.Fields("FirstDate")
		LastDate = MemberTable.Fields("LastDate")
		Block = MemberTable.Fields("Block")
		WarningLevel = MemberTable.Fields("WarningLevel")
		Privacy = MemberTable.Fields("Privacy")
		ModeratorRequest = MemberTable.Fields("ModeratorRequest")
	End If
        
        If MemberID <> 0 Then
		If EnteredPassword = Password Then
		    Session.Value("playground_Member") = Member
		    MemberTable.Fields("LastDate") = Now()
		    MemberTable.Fields("Visits") = Visits + 1
		    Block = MemberTable.Fields("Block")
		    FirstDate = MemberTable.Fields("FirstDate")
		    LastDate = MemberTable.Fields("LastDate")
		    ProtestResetDate = MemberTable.Fields("ProtestPointsReset")
		    ThisDay = Year(Now()) * 10000 + Month(Now())*100 + Day(Now())
		    FirstOn = Year(FirstDate) * 10000 + Month(FirstDate) * 100 + Day(FirstDate)
		    LastOn = Year(LastDate) * 10000 + Month(LastDate) * 100 + Day(LastDate)
		    PointsReset = Year(ProtestResetDate) * 10000 + Month(ProtestResetDate) * 100 + Day(ProtestResetDate)
		    Set AdminTable = CreateObject("ADODB.Recordset")
  		    AdminTable.Open "Select * From AdminOptions", "DSN=fruplay;"
		    If Not AdminTable.EOF Then
			MemberProtestPointsMax = AdminTable.Fields("MemberProtestPointsMax")
			ProtestWaitPeriod = AdminTable.Fields("ProtestWaitPeriod")
			ProtestResetPeriod = AdminTable.Fields("ProtestResetPeriod")
		    End If
		    AdminTable.Close

		    'If (ThisDay - FirstOn >= ProtestWaitPeriod) and (ThisDate - PointsReset >= ProtestResetPeriod or PointsReset<=FirstOn) and Not Block Then			
			'MemberTable.Fields("ProtestPoints") = MemberProtestPointsMax
			'MemberTable.Fields("ProtestPointsReset") = Now()
		    'End If

		    MemberTable.Update
		    MemberTable.Close
		    Response.Redirect "fruvousplayground.asp"
		Else
		    Response.Redirect "playgroundLogin.asp?Message=1"
		End If
	Else
	    Session.Value("playground_Member") = Member
	    Response.Redirect "playgroundCreateLogin.asp?Message=2&NewLogin=" & Request.Form("Member")
        End If 
%>