<% Response.Buffer = TRUE %>
<%
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
%>
Moxy Früvous Playground Modify Login
Moxy Früvous Playground
Modify Your Member Info
<%
If Request.QueryString("Message") = "3" Then
%>
Please Enter All The Information
<%
End If
If Request.QueryString("Message") = "2" Then
%>
Can't Find Your Record
<%
End If
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
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")
If Privacy = true then
PrivacyChecked = "checked"
End If
If ModeratorRequest = true then
ModeratorChecked = "checked"
End If
End If
MemberTable.Close
%>
Member:
<%=Member%>
Password:
Screen Display Name:
First Name:
Last Name:
Email:
Privacy Please:
>
Check this box to post using only your Screen Name.
Your full name and email won't be shown