False
      Set uRs = Conn.Execute("Select Top 1 WM_RZEmail,WM_RZID From WM_Member Where WM_UserName='"&u_UserName&"'")
      If Not uRs.Eof Then
	    Select Case UCase(u_Str)
		  Case "EMAIL"
		    If uRs(0) = 1 Then ChkRZEdit = True
		  Case "TRUENAME"
		    If uRs(1) = 1 Then ChkRZEdit = True
		End Select
      End If
      uRs.Close
      Set uRs = Nothing
	End Function
End Class

Set WRUser = New Cls_User

%>