<%

Sub playground_GetMemberInfo (MemberID, Member, ScreenName, EMail, Privacy, Block, Privilege, ProtestPoints)

	Member = Session.Value("playground_Member")

	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")
		Privacy = MemberTable.Fields("Privacy")
		Block = MemberTable.Fields("Block")
		Privilege = MemberTable.Fields("Privilege")
		ModeratorRequest = MemberTable.Fields("ModeratorRequest")
		ProtestPoints = MemberTable.Fields("ProtestPoints")
	Else
		Member = 0
		Session.Value("playground_Member") = 0
	End If
	MemberTable.Close

End Sub

Sub playground_GetAdminOptions (SiteAvailable, AllowAllPosts, ModeratorPriv, ProtestPointsMax)


	Set AdminTable = CreateObject("ADODB.Recordset")
	AdminTable.Open "Select * From AdminOptions", "DSN=fruplay;"
	If Not AdminTable.EOF Then
		SiteAvailable = AdminTable.Fields("SiteAvailable")
		AllowAllPosts = AdminTable.Fields("AllowAllPosts")
		ModeratorPriv = AdminTable.Fields("ModeratorPriv")
		ProtestPointsMax = AdminTable.Fields("ProtestPointsMax")

	End If
		AdminTable.Close

End Sub

%>