<% ' handle the submitted form Member = Request.Form("Member") ScreenName = Request.Form("ScreenName") FirstName = Request.Form("FirstName") LastName = Request.Form("LastName") Email = Request.Form("Email") Password = Request.Form("Password") Privacy = Request.Form("Privacy") ModeratorRequest = Request.Form("ModeratorRequest") Update = Request.Form("Update") MemberID = 0 'fetch the record Set MemberTable = CreateObject("ADODB.Recordset") MemberTable.Open "SELECT * FROM members WHERE Member = '" & Member & "'", "DSN=frumembers;" If Update <> "true" Then If Not MemberTable.EOF Then MemberTable.Close Response.Redirect "playgroundCreateLogin.asp?NewLogin=" & strLoginName & "&Message=1" Else MemberTable.Close If Member = " " or Len(Member) < 2 or Len(FirstName) < 1 or Len(LastName) < 1 or Len(Email) < 3 or Instr(Email, "@") < 1 or InStr(Email,".") < 1 or Len(Password) < 1 Then Response.Redirect "playgroundCreateLogin.asp?Message=3" Else MemberTable.Open "Members", "DSN=frumembers;", 1, 3, 2 MemberTable.AddNew MemberTable.Fields("Member") = Member MemberTable.Fields("ScreenName") = ScreenName MemberTable.Fields("FirstName") = FirstName MemberTable.Fields("LastName") = LastName MemberTable.Fields("Email") = Email MemberTable.Fields("Password") = Password MemberTable.Fields("ProtestPointsReset") = Now() MemberTable.Fields("FirstDate") = Now() MemberTable.Fields("LastDate") = Now() MemberTable.Fields("Privilege") = 0 MemberTable.Fields("Block") = false MemberTable.Fields("WarningLevel") = 0 MemberTable.Fields("Visits") = 1 if Privacy="True" or Privacy = true or Privacy = "on" then MemberTable.Fields("Privacy") = true else MemberTable.Fields("Privacy") = false end if if ModeratorRequest="True" or ModeratorRequest = true then MemberTable.Fields("ModeratorRequest") = true else MemberTable.Fields("ModeratorRequest") = false end if MemberTable.Update MemberTable.Close Session.Value("playground_Member") = Member End if End If Else If MemberTable.EOF Then MemberTable.Close Response.Redirect "playgroundModifyLogin.asp?Message=2" Else MemberTable.Close If Member = " " or Len(Member) < 2 or Len(FirstName) < 1 or Len(LastName) < 1 or Len(Email) < 3 or Instr(Email, "@") < 1 or InStr(Email,".") < 1 or Len(Password) < 1 Then Response.Redirect "playgroundModifyLogin.asp?Message=3" Else MemberTable.Open "Members WHERE Member = '" & Member & "'", "DSN=frumembers;", 1, 3, 2 MemberTable.Fields("Member") = Member MemberTable.Fields("ScreenName") = ScreenName MemberTable.Fields("FirstName") = FirstName MemberTable.Fields("LastName") = LastName MemberTable.Fields("Email") = Email MemberTable.Fields("Password") = Password if Privacy="True" or Privacy = true or Privacy = "on" then MemberTable.Fields("Privacy") = true else MemberTable.Fields("Privacy") = false end if if ModeratorRequest="True" or ModeratorRequest = true then MemberTable.Fields("ModeratorRequest") = true else MemberTable.Fields("ModeratorRequest") = false end if MemberTable.Update MemberTable.Close Session.Value("playground_Member") = Member End if End If End If Response.Redirect "fruvousplayground.asp" %>